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

fantan · 发表于 2004-6-18 23:15:00

如题
谢谢

alin · 发表于 2004-6-19 07:18:00

(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 · 发表于 2004-6-20 00:08:00

多谢！

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

发表回复

精选推荐

浏览过的版块