2010年6月14日 星期一

AutoCAD Autolisp repeat 範例

;印出list所有資料
(setq l1(list "acad.stb" "Autodesk-Color.stb" "Autodesk-MONO.stb")
n1 (length l1)
n 0)
(repeat n1
(print (1+ n))
(princ (strcat ":「" (nth n l1) "」 ,"))
(setq n (1+ n))
)

Search Google

Google

熱門文章