急！！在CAD2002中如何批量查找替换文字？

sjz_zxh

在CAD2002中如何批量查找替换文字？
在CAD文件中有许多连续的数字。我想把每个数都加上一个1。即：1变成2，2变成3。。。
用VBA该如何实现呢？谢谢。。

mccad

2. Sub AddNum()
   
3.     Dim Txt As AcadText
   
4.     Dim Obj As AcadEntity
   
5.     For Each Obj In ThisDrawing.ModelSpace
   
6.     If Obj.ObjectName = "AcDbText" Then
   
7.         Set Txt = Obj
   
8.         If Val(Txt.TextString) <> 0 Or Txt.TextString = "0" Then
   
9.             Txt.TextString = Val(Txt.TextString) + 1
   
10.         End If
    
11.     End If
    
12.     Next Obj
    
13.     Update
    
14. End Sub
    

Sub AddNum()<br />     Dim Txt As AcadText<br />     Dim Obj As AcadEntity<br />     For Each Obj In ThisDrawing.ModelSpace<br />     If Obj.ObjectName = "AcDbText" Then<br />         Set Txt = Obj<br />         If Val(Txt.TextString) <> 0 Or Txt.TextString = "0" Then<br />             Txt.TextString = Val(Txt.TextString) + 1<br />         End If<br />     End If<br />     Next Obj<br />     Update<br /> End Sub<br />

sjz_zxh

谢谢。那要是P1、P2、P3等每个都加1变成P2、P3、P4呢？
即：P1变P2、P2变P3、P3变P4。。。

mccad

2. Sub AddNum()
   
3.     Dim Txt As AcadText
   
4.     Dim Obj As AcadEntity
   
5.     Dim strTxt As String
   
6.     Dim rTxt As String
   
7.     strTxt = ThisDrawing.Utility.GetString(0, vbCrLf & " 输入文字的前缀<P>：")
   
8.     If strTxt = "" Then strTxt = "P"
   
9.     For Each Obj In ThisDrawing.ModelSpace
   
10.     If Obj.ObjectName = "AcDbText" Then
    
11.         Set Txt = Obj
    
12.         rTxt = Right(Txt.TextString, Len(Txt.TextString) - Len(strTxt))
    
13.         If Left(Txt.TextString, Len(strTxt)) = strTxt And (Val(rTxt) <> 0 Or rTxt = "0") Then
    
14.             Txt.TextString = strTxt + Trim(Str(Val(rTxt) + 1))
    
15.         End If
    
16.     End If
    
17.     Next Obj
    
18.     Update
    
19. End Sub
    

Sub AddNum()<br />     Dim Txt As AcadText<br />     Dim Obj As AcadEntity<br />     Dim strTxt As String<br />     Dim rTxt As String<br />     strTxt = ThisDrawing.Utility.GetString(0, vbCrLf & " 输入文字的前缀<P>：")<br />     If strTxt = "" Then strTxt = "P"<br />     For Each Obj In ThisDrawing.ModelSpace<br />     If Obj.ObjectName = "AcDbText" Then<br />         Set Txt = Obj<br />         rTxt = Right(Txt.TextString, Len(Txt.TextString) - Len(strTxt))<br />         If Left(Txt.TextString, Len(strTxt)) = strTxt And (Val(rTxt) <> 0 Or rTxt = "0") Then<br />             Txt.TextString = strTxt + Trim(Str(Val(rTxt) + 1))<br />         End If<br />     End If<br />     Next Obj<br />     Update<br /> End Sub<br />

莫名

用菜单“编辑/查找 ”可以实现！

zhaobin210

怎么按上面的方法使不了啊，提示说，无效的变量

清风明月名字

谢谢mccad,两个宏都可有效运行

9937965

这个要请高手来回答了，我是新人

wwswwswws

这实际上是字符串操作的内容了，很简单的，多看看VBA的帮助文件，有许多的字符串操作函数可用的。明总亲自回复不容易哦，珍惜哦。