获取具有特定文本的层（
你好现在，我正试图通过调试返回任何层名称。打印包含特定文本的函数。例如，如果有10个不同的层，那么我只想显示层名称中包含文本字符串“local”的层。有人知道怎么做吗？非常感谢您的帮助。 你可以很容易地访问图层表，现在只需查找它，并列出你的图层名，然后你可以逐步通过这个列表，在每个图层名中搜索与你的文本匹配的内容，然后使用vla做你的事情，这是一种方式。图层名比旧的lisp更容易检索。发现（tblnext“层”）重复，它将遍历您的层（cadr（tblnext“层”）或（assoc 2（tblnext“层”））
在这里搜索任何lee mac或alanjt程序，它们通常都会在开始时读取层表。
抱歉，你想在vba中使用它
没有一个层，但这里是块层是做类似的
FilterDXFCode（0）=0
FilterDXFVal（0）=“插入”
设置SS=ThisDrawing。选择集。添加（“mysel”）
SS。选择acSelectionSetAll、、FilterDXFCode、FilterDXFVal
对于Cntr=0到SS。计数-1
如果SS。项目（Cntr）。名称=BLOCK\u Name，然后将其更改为查找部分图层名称
其他：如果结束
下一个Cntr 虽然Visual LISP和VBA都使用ActiveX COM API，但我不精通VBA语法。
然而，使用Visual LISP，这是返回包含“local”的图层名列表的一种方法（许多方法中的一种）：
(defun c:TEST (/ layerName layerList)
(vl-load-com)
(cond
(*activeDoc*)
((setq *activeDoc* (vla-get-activedocument (vlax-get-acad-object)))))
(vlax-for lay (vla-get-layers *activeDoc*)
(if (wcmatch (setq layerName (strcase (vla-get-name lay))) "*LOCAL*")
(setq layerList (cons layerName layerList))))
(setq layerList layerList)) ;_end defun
也许某位大师能给你更好的建议。。。？（不反对亚比加尔）
希望这有帮助！ 好的，非常感谢。它起作用了。
页:
[1]