获取具有特定文本的层（

confuzzled · 发表于 2022-7-6 10:30:09

你好现在，我正试图通过调试返回任何层名称。打印包含特定文本的函数。例如，如果有10个不同的层，那么我只想显示层名称中包含文本字符串“local”的层。有人知道怎么做吗？非常感谢您的帮助。

BIGAL · 发表于 2022-7-6 11:09:17

你可以很容易地访问图层表，现在只需查找它，并列出你的图层名，然后你可以逐步通过这个列表，在每个图层名中搜索与你的文本匹配的内容，然后使用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

BlackBox · 发表于 2022-7-6 11:27:56

虽然Visual LISP和VBA都使用ActiveX COM API，但我不精通VBA语法。

然而，使用Visual LISP，这是返回包含“local”的图层名列表的一种方法（许多方法中的一种）：

copy


(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

也许某位大师能给你更好的建议。。。？（不反对亚比加尔）

希望这有帮助！

confuzzled · 发表于 2022-7-6 11:43:56

好的，非常感谢。它起作用了。

[编程交流] 获取具有特定文本的层（

发表回复

精选推荐