[1123]请教如何撷取图层资料输出到TXT档案中呢?

tctabc

[1123]请教如何撷取图层资料输出到TXT档案中呢?

请问各位高手们
如何才能够将图层中的,图层名称.图层颜色.图层笔号.这些资料
输出到TXT档案,且也可以透过这方式,
在回传输入到CAD档案中的图层.

小弟查到应该是要运用以下这些命令
但不是全部
(setq dat_file (getfiled "输出资料档案" "c:\\test" "txt" 1))
(setq ff (open dat_file "w"))
(write-line "图层名称 线型名称 颜色编号" ff)
(write-line (strcat "\n<" (layna) (comm) (colornu) ) ff)
  (close ff)
)

(tblnext "layer")
;配合符号表的群码2 图层名称62 颜色编号6 线型名称

目前遇到问题是,如何才能够执行重复的图层名称判断
及输出栏位资料的位置该怎样控制

如果论坛有相似的文章,或是范例
请各位告知,就可以去参考一下了
希望各位帮忙解答一下
谢谢

citykunan

列出所有的图层名

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

龙龙仔

3. (defun GET-LAYER-LIST (/ LAYERS LAYLST)
4.   (setq LAYERS (vla-get-layers
5.    (vla-get-activedocument
6.      (vlax-get-acad-object)
7.    )
8.         )
9.   )
10.   (vlax-for OBJ LAYERS
11.     (setq LAYLST (cons (vla-get-name OBJ) LAYLST))
12.   )
13.   (acad_strlsort LAYLST)
14. )

(defun GET-LAYER-LIST (/ LAYERS LAYLST)   (setq LAYERS (vla-get-layers    (vla-get-activedocument      (vlax-get-acad-object)    )         )   )   (vlax-for OBJ LAYERS     (setq LAYLST (cons (vla-get-name OBJ) LAYLST))   )   (acad_strlsort LAYLST) )