好吧问答库 > 求一段CAD VBA的代码

求一段CAD VBA的代码

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

2026年09月26日 07:26

有1个网友回答

网友（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