求大神整个用lsp读取所有图层名称代码

180dux

要求输入命令直接读取所有图层的名称，再读出每个图层里面的说明信息。

各位大侠，这个功能好写不哦

Gu_xl

1. (defun c:tt ()
   
2.   (vlax-for la (vla-get-layers
   
3.                  (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.                )
   
5.     (princ (strcat "\n图层名称:\""
   
6.                    (vla-get-name la)
   
7.                    "\"  图层说明:\""
   
8.                    (vla-get-Description la)
   
9.                    "\""
   
10.            )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt ()<br />   (vlax-for la (vla-get-layers<br />                  (vla-get-ActiveDocument (vlax-get-acad-object))<br />                )<br />     (princ (strcat "\n图层名称:\""<br />                    (vla-get-name la)<br />                    "\"  图层说明:\""<br />                    (vla-get-Description la)<br />                    "\""<br />            )<br />     )<br />   )<br />   (princ)<br /> )

180dux

Gu_xl 发表于 2020-3-18 19:48

谢谢大神，我整这个的目的是想过滤不需要的图层，通过名称过滤，貌似我的思路有点复杂了。

看大神这么几句代码就可以读名称了，大神，那我问一下 lsp 也可以直接新建 图层 组过滤 来分组来区分了，

在读每个组里面的名称，这个是不是更好了，我不太懂 扩展函数，也没这扩展函数的资料 ，求大神指点一下了