如何提取文件中所有图层的名称到记事本中？

fantan

如题


谢谢

alin

(defun c:Test (/ filename f)
(defun laylist (/ LayerTable layers)
(setq layers (vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
)
)
(vlax-for each layers
(setq LayerTable (cons (vla-get-Name each) LayerTable))
)
(reverse LayerTable)
)
(vl-load-com)
(setq filename (vl-filename-mktemp "layers.txt"))
(setq f (open filename "w"))
(foreach each (laylist)
(write-line each f)
)
(close f)
(startapp "notepad" filename)
)

fantan

多谢！