For i = 0 To ThisDrawing.Layouts.Count '在各布局各中循环
Set lay1 = ThisDrawing.Layouts.Item(i)
If lay1.Name "model" Then
' filterdata = "A" & (10 * i)
' On Error Resume Next
lay1.Name = filterdata
' On Error Resume Next
End If
' MsgBox lay1.Name '得到所有布局的名称
Next
sti = 0
For j = 0 To ThisDrawing.PaperSpace.Count - 1 '在当前图纸空间内循环
Set a = ThisDrawing.PaperSpace.Item(j)
If a.ObjectName = "AcDbText" Then
st(sti) = a.TextString
If st(sti) = "图号:1" Then
MsgBox st(sti)
st(sti) = "图号:2" '替换字符串
a.TextString = st(sti)
End If
sti = sti + 1
End If
Next
我想把到如A0,A10,A20布局中的"图号:1"都替换成"图号:2"要如何做,请老大们指点下
我前面的程序只能一个个的改.