[LISP]请高手指教：如何枚举图纸中所有图层名称

xhpei1 · 发表于 2004-9-21 02:57:00

如何枚举图纸中所有图层名称，敬请高手指教。

alin · 发表于 2004-9-21 08:05:00

(defun get-layer-list    ( / layers laylst idx)
   (setq layers (vla-get-layers
   (vla-get-activeDocument
   (vlax-get-acad-object))))
   (setq idx -1)
   (repeat (vla-get-count layers)
   (setq laylst (cons
   (vla-get-name (vla-item layers (setq idx (1+ idx)))) laylst)))
   (reverse laylst)
   )

[LISP]请高手指教：如何枚举图纸中所有图层名称

发表回复

精选推荐