[求助]怎么获取一个图形中所有图形名称

ghl_729

大家好 ！我怎么能用lsp获取一幅图形中的所有图层名称呢？

caoyin

;;vla
(defun c:tt1 (/ lst)
(vlax-for lay
(vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq lst (cons (vla-get-name lay) lst))
)
)
;;autoLisp
(defun c:tt2 (/ lay lst)
(while (setq lay (tblnext "layer" (not lay)))
(setq lst (cons (cdr (assoc 2 lay)) lst))
)
lst
)

ghl_729

谢谢版主！

danberlove

为什么tt1这个函数不能用啊？。。。