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

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

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

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

(defun get-layer-list       ( / layers laylst idx)<BR>       (setq layers (vla-get-layers<BR>                                                                                                                               (vla-get-activeDocument<BR>                                                                                                                                               (vlax-get-acad-object))))<BR>       (setq idx -1)<BR>       (repeat (vla-get-count layers)<BR>                       (setq laylst (cons<BR>                                                                                                                                               (vla-get-name (vla-item layers (setq idx (1+ idx)))) laylst)))<BR>       (reverse laylst)<BR>       )
页: [1]
查看完整版本: [LISP]请高手指教：如何枚举图纸中所有图层名称