Question

求一段CAD VBA的代码

我想在CAD图上查找到“坐落”这两个字，然后替换成“位置”，“产权人”替换成“房主”。用VBA写段代码。研究了半天也没弄明白。求高人给写一段。别怪我强迫，我知道直接改就行，但是好多文件，我想用一段VBA代码写好，并作用于所有CAD文件。意思是，只要打开CAD文件，运行代码，就行了。另外，一定告诉我代码怎样才能运用于所有CAD文件，谢谢。





Answer 1

可以参考一下下面的代码

Option Explicit

Sub re_text()
    Dim obj As Variant
    For Each obj In ThisDrawing.ModelSpace
        If TypeName(obj) = "IAcadMText" Or TypeName(obj) = "IAcadText" Then
            If obj.TextString = "test" Then obj.TextString = "re_successful!"
        End If
    Next obj
End Sub

追问

首先非常感谢您的代码，不过我没弄懂啊，运行代码后找到的都是

紫色部分的文字，我想要红色部分的文字，进行修改。