AutoCAD VBA查找/搜索路径

muck · 发表于 2022-7-6 22:42:03

AutoCAD 2010

是否有人拥有AutoCAD VBA查找/搜索例程，可以放大图形中的stings，包括
街区等？与AutoCAD find命令类似。我想要一个我可以加入的常规
VBA批处理循环，用于一次搜索多个图形。我有很多画，我正在看，我认为
这对我有帮助。

非常感谢。

BlackBox · 发表于 2022-7-6 22:49:33

我不知道有任何VBA例程可以实现这一点，但一个优秀的LISP例程是Lee Mac的批量查找和替换文本。

muck · 发表于 2022-7-6 22:53:27

我正在寻找一个搜索工具在VBA。不是替换例程。
放大文本以查看某个字符串是否在
绘画

BIGAL · 发表于 2022-7-6 22:59:46

像Renderman一样，你必须先搜索，然后才能替换！

这是搜索块，只需将serach更改为文本、多行文字等

copy

Dim SS As AcadSelectionSet
Dim Count As Integer
Dim FilterDXFCode(1) As Integer
Dim FilterDXFVal(1) As Variant
Dim attribs As Variant
Dim BLOCK_NAME As String
On Error Resume Next
FilterDXFCode(0) = 0
FilterDXFVal(0) = "INSERT"
FilterDXFCode(1) = 2
FilterDXFVal(1) = "Myblockname"
Set SS = ThisDrawing.SelectionSets.Add("issued")
SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal
For Cntr = 0 To SS.Count - 1
do what ever here and find string