2008年12月11日 星期四

AutoLISP畫線

(princ "\n畫線: tt")
(defun c:tt()
(setq pt1 (getpoint "\n請選取第一點: "))
(setq pt2 (getpoint pt1 "\n請選取第二點: "))

(command "line" pt1 pt2 "")
(princ "\n完成畫線: ")(princ pt1)(princ pt2)
(princ)
)

沒有留言:

Search Google

Google

熱門文章