[求助]VBA如何在本图遍寻找字符串且代替

zjbook

请给个例子，我是新手。谢谢

mikewolf2k

我在源码共享里发了一个文字多重替换程序，你可以找找看

zjbook

On Error Resume Next
    Dim n As Integer
    Dim textold As String, textnew As String
    Dim Enttype As Variant
    Dim Endata As Variant
    textold = "MetalclipsLONG"
    textnew = "sss"
    On Error Resume Next
    For n = 0 To ThisDrawing.ModelSpace.Count - 1
       'If ThisDrawing.ModelSpace(n).EntityType = acText Then
         ThisDrawing.ModelSpace(n).GetXData "", 0, Enttype
       If Enttype = "text" Then
          ThisDrawing.ModelSpace(n).GetXData "", 1, Endata
           If Endata = textold Then
          
          ThisDrawing.ModelSpace(n).SetXData 1, textnew
          End If
       End If
    Next
    On Error Resume Next

jsyang_ren

如果要替换的文字在一个字符串中就不能用了，我建议你遍历所有字符，可以解决