Question

我现在正在用LISP做CAD二次i开发，求LISP程序代码，能列出一个图形图层名称、数量，颜色等尽可能多的信息

Answer 1

(defun getlayers (/ ly l d)
(setq d(TBLNEXT "LAYER" 't) l nil)
(while d
(setq ly(cdr(assoc 2 d)))
(setq l(append l(list ly)))
(setq d(TBLNEXT "layer"))
) l
)

你可以在每个"D"后面加个"(princ d)"，即可查看每个图层的完整信息。

追问

谢谢！本人愚钝，应该将"(princ d)"语句放在何处？能否说得再具体一点。再次感谢

追答

(defun getlayers (/ ly l d)
(setq d(TBLNEXT "LAYER" 't) l nil)
(while d
(princ "\n")(princ d) ----插入此处
(setq ly(cdr(assoc 2 d)))
(setq l(append l(list ly)))
(setq d(TBLNEXT "layer"))
) l
)

Answer 2

中毒了。看我之前的回答