[VBA]各种对象中的文字的替换方法。

efan2000

有朋友提到的，如何在单行文字、多行文字、属性定义、属性引用（或参照）替换文字。

2. 
   
3. Public Sub TextReplace()
   
4. 
   
5.     '创建选择集，名称为TextReplace
   
6.    
   
7.     Dim SSetObj As AcadSelectionSet
   
8.     On Error Resume Next
   
9.     Set SSetObj = ThisDrawing.SelectionSets("TextReplace")
   
10.     If Err Then
    
11.         Err.Clear
    
12.         Set SSetObj = ThisDrawing.SelectionSets.Add("TextReplace")
    
13.     End If
    
14.     SSetObj.Clear
    
15.     On Error GoTo 0
    
16.    
    
17.     '创建过滤器，仅选择Text（单行文本）、Mtext（多行文本）、AttDef（属性定义）
    
18.    
    
19.     '关于过滤器的详细使用资料，请参考有关书籍
    
20.    
    
21.     Dim fType(0 To 0) As Integer
    
22.     Dim fData(0 To 0) As Variant
    
23.     fType(0) = 0
    
24.     fData(0) = "Text,Mtext,AttDef"
    
25.    
    
26.     '选择全部的Text、Mtext、AttDef
    
27.    
    
28.     SSetObj.Select acSelectionSetAll, , , fType, fData
    
29.    
    
30.     Dim i As Integer
    
31.     If SSetObj.Count <> 0 Then
    
32.         For i = 0 To SSetObj.Count - 1
    
33.             '在Text和Mtext中显示的是TextString，在AttDef中显示的是TagString
    
34.             If TypeOf SSetObj(i) Is AcadAttribute Then
    
35.                 If SSetObj(i).TagString = "ABC" Then SSetObj(i).TagString = "XYZ"
    
36.             Else
    
37.                 If SSetObj(i).TextString = "ABC" Then SSetObj(i).TextString = "XYZ"
    
38.             End If
    
39.         Next
    
40.     End If
    
41.    
    
42.     '清空选择集中的数据，准备下一次操作
    
43.    
    
44.     SSetObj.Clear
    
45.    
    
46.     '创建过滤器，仅选择BlockRef（块引用）
    
47.    
    
48.     fType(0) = 0
    
49.     fData(0) = "Insert"
    
50.    
    
51.     '选择全部的BlockRef
    
52.    
    
53.     SSetObj.Select acSelectionSetAll, , , fType, fData
    
54.    
    
55.     Dim v As Variant
    
56.     Dim j As Integer
    
57.     If SSetObj.Count <> 0 Then
    
58.         For i = 0 To SSetObj.Count - 1
    
59.             If SSetObj(i).HasAttributes Then
    
60.                 v = SSetObj(i).GetAttributes
    
61.                 For j = 0 To UBound(v)
    
62.                     '在BlockRef中的AttRef中显示的是TextString
    
63.                     If v(j).TextString = "ABC" Then v(j).TextString = "XYZ"
    
64.                 Next
    
65.             End If
    
66.         Next
    
67.     End If
    
68.    
    
69.     SSetObj.Clear
    
70.    
    
71.     SSetObj.Delete
    
72.    
    
73.     Set SSetObj = Nothing
    
74. End Sub
    

<br /> Public Sub TextReplace()<br /> <br />     '创建选择集，名称为TextReplace<br />     <br />     Dim SSetObj As AcadSelectionSet<br />     On Error Resume Next<br />     Set SSetObj = ThisDrawing.SelectionSets("TextReplace")<br />     If Err Then<br />         Err.Clear<br />         Set SSetObj = ThisDrawing.SelectionSets.Add("TextReplace")<br />     End If<br />     SSetObj.Clear<br />     On Error GoTo 0<br />     <br />     '创建过滤器，仅选择Text（单行文本）、Mtext（多行文本）、AttDef（属性定义）<br />     <br />     '关于过滤器的详细使用资料，请参考有关书籍<br />     <br />     Dim fType(0 To 0) As Integer<br />     Dim fData(0 To 0) As Variant<br />     fType(0) = 0<br />     fData(0) = "Text,Mtext,AttDef"<br />     <br />     '选择全部的Text、Mtext、AttDef<br />     <br />     SSetObj.Select acSelectionSetAll, , , fType, fData<br />     <br />     Dim i As Integer<br />     If SSetObj.Count <> 0 Then<br />         For i = 0 To SSetObj.Count - 1<br />             '在Text和Mtext中显示的是TextString，在AttDef中显示的是TagString<br />             If TypeOf SSetObj(i) Is AcadAttribute Then<br />                 If SSetObj(i).TagString = "ABC" Then SSetObj(i).TagString = "XYZ"<br />             Else<br />                 If SSetObj(i).TextString = "ABC" Then SSetObj(i).TextString = "XYZ"<br />             End If<br />         Next<br />     End If<br />     <br />     '清空选择集中的数据，准备下一次操作<br />     <br />     SSetObj.Clear<br />     <br />     '创建过滤器，仅选择BlockRef（块引用）<br />     <br />     fType(0) = 0<br />     fData(0) = "Insert"<br />     <br />     '选择全部的BlockRef<br />     <br />     SSetObj.Select acSelectionSetAll, , , fType, fData<br />     <br />     Dim v As Variant<br />     Dim j As Integer<br />     If SSetObj.Count <> 0 Then<br />         For i = 0 To SSetObj.Count - 1<br />             If SSetObj(i).HasAttributes Then<br />                 v = SSetObj(i).GetAttributes<br />                 For j = 0 To UBound(v)<br />                     '在BlockRef中的AttRef中显示的是TextString<br />                     If v(j).TextString = "ABC" Then v(j).TextString = "XYZ"<br />                 Next<br />             End If<br />         Next<br />     End If<br />     <br />     SSetObj.Clear<br />     <br />     SSetObj.Delete<br />     <br />     Set SSetObj = Nothing<br /> End Sub<br />

neteasy

best

tukuitk

谢谢efan2000替我成功解答！
请问用VB怎么实现替换一个文件夹内中所有图形，最好是生成一个EXE文件，谢谢！！！

myfreemind

不错!!

XJ_HE

If SSetObj(i).HasAttributes Then   '在选择集的对象中，这个属性代表却好象没有？
                v = SSetObj(i).GetAttributes   
                For j = 0 To UBound(v)             ’UBOUND（）的用法是什么？什么意思呢？
                    If v(j).TextString = "ABC" Then v(j).TextString = "XYZ"
                Next
            End If


还望指教。

efan2000

不是选择集的， SSetObj(i)，也即SSetObj.Item(i)的意思，代表选择集中的一个实体，而之前使用了过滤机制，只选择块，因而这个实体就是块引用对象。HasAttributes是块引用对象的属性，没有异议了吧。
UBound是取数组范围的上限，LBound是取数组范围的下限，一般数组的下限是从0开始的，那么数组的元素个数应该就是UBound(v)+1，如果不是从0开始的，则是UBound(v)-LBound(v)+1。

XJ_HE

谢谢指教，这次明白了。：）

gjliang

我有一问题，如果我只想替换掉“ABC”中的“AB”，在批量替换条件下，该怎样实现呢。

efan2000

这只是字符操作的问题，自己可更改为任意形式。
如：
If v(j).TextString = "ABC" Then v(j).TextString = "XYZ" & Mid(v(j).TextString, 3)

bluemoon

哈哈 又学了一着啊