[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)
)

账号		自动登录	找回密码
密码			注册