2009年11月16日 星期一

autocad lisp 程式 list組合成一個座標串列

(princ " , list 組合成一個座標 串列 : zz")
(defun c:zz(/ pt1 pt2 pt3)
(setq tt2 (list))
(setq pt1 '(998.616 801.561 0.0)
pt2 (list 1031.75 790.782 0.0)
pt3 '(1061.41 796.171 0.0)
)
(setq tt2 (cons pt1 tt2)
tt2 (cons pt2 tt2)
tt2 (cons pt3 tt2))
(print "結束!完成List= ")(princ tt2)
(princ)
);end lisp

;autocad lisp 程式 autolisp

沒有留言:

Search Google

Google

熱門文章