180dux 发表于 2020-3-18 19:24:11

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

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

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

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

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

180dux 发表于 2020-3-19 22:50:10

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


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

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

在读每个组里面的名称，这个是不是更好了，我不太懂 扩展函数，也没这扩展函数的资料 ，求大神指点一下了
页: [1]
查看完整版本: 求大神整个用lsp读取所有图层名称代码