2009年7月3日 星期五

autolisp 等分物件(measure)

(print "等分物件: dd")
(defun c:dd(/ mc ss1)
(setq mc (getreal "請輸入節點長度:"))
(princ "\n 請選取要列示路線: ") (setq ss1 (entsel))
(if (= ss1 nil)(progn
(print "沒有選取物件!!"))
(progn (command "_.measure" ss1 mc)(print "完成繪製!"))
)

(princ)
)

沒有留言:

Search Google

Google

熱門文章