[分享]：建筑城规。。。描图专用小程序

狂刀 · 发表于 2005-5-15 05:26:13

演示
(用ｃａｄ的极轴追踪)

小小鲜 · 发表于 2005-5-17 02:19:14

帮帮忙,爱心币不够,下不了

wkai · 发表于 2005-5-17 08:23:12

谢谢狂刀制作的演示！

cqg2004ch · 发表于 2005-5-19 09:34:39

先下了看看，不知好使不。

pfw · 发表于 2005-6-9 15:53:59

谢谢！

coldface000 · 发表于 2005-6-11 11:03:45

感觉很不错不过要在实列中体会。谢谢

huiling6868 · 发表于 2005-6-12 16:21:39

很好很实用的程序.

alonedsn-1 · 发表于 2005-6-12 19:25:08

R14版底下可以用吗？

xx69as · 发表于 2016-10-11 07:33:55

确实是难得好帖啊，顶先

sdlyjc · 发表于 2019-2-20 22:16:43

不错,我下了,好东东.

wjlddh · 发表于 2019-4-21 01:18:49

软件在哪啊

创佳 · 发表于 2021-8-10 21:44:56

(defun c:quickdraw (/ p1 p2 lst setucs)
  (defun err-new (msg)

(command "._redraw")
(princ msg)
(ended)
  )
;;;________________________________
  (defun ended (/ tmp)
(setq *error* err-old)
(if setucs
   (command "_.ucs" "p")
)
  )
  (setq err-old *error*)
  (setq *error* err-new)
  (princ "\nWRITEN BY WKAI , XDCAD.NET , 20040611")
  (setvar "ORTHOMODE" 0)
  (setvar "cmdecho" 1)

  (if (setq p1 (getpoint "\n指定第一点:"))
(if (setq p2 (getpoint p1 "\n指定下一点:"))
   (progn
(setq p1 (trans p1 1 0))
(setq p2 (trans p2 1 0))
(entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
(command "_.ucs" "ob" (entlast))
(setq setucs t)
(entdel (entlast))
(setvar "ORTHOMODE" 1)
(command "_.pline" (trans p1 0 1) (trans p2 0 1))
(while (/= (getvar "cmdactive") 0)
(command pause)
)
(command)
   )
)
  )
  (ended)
)
(defun c:qd () (c:quickdraw))

jt133 · 发表于 2024-1-21 21:05:27

软件在哪还能下吗

账号		自动登录	找回密码
密码			立即注册