VBA如何得到具体哪个布局中的数据

wxm790621

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 我想把到如Ａ０，Ａ１０，Ａ２０布局中的"图号：1"都替换成"图号：2"要如何做，请老大们指点下 我前面的程序只能一个个的改．

zfbj

你要替换的文字是在模型空间还是图纸空间？

wxm790621

是图纸空间

zfbj

用选择集来操作吧，分别设置当前的布局为A0、A10等，然后选择符合条件的文字，并且进行替换。

wxm790621

　　　我就是不知如何用程序来设置，能写简单的ＶＢＡ代码给我吗．

mccad

用以下程序就可以得到所有布局中的文字：

2. Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())
3.        Dim fType() As Integer, fData()
4.        Dim index As Long, i As Long
5.       
6.        index = LBound(gCodes) - 1
7.                
8.        For i = LBound(gCodes) To UBound(gCodes) Step 2
9.                index = index + 1
10.                ReDim Preserve fType(0 To index)
11.                ReDim Preserve fData(0 To index)
12.                fType(index) = CInt(gCodes(i))
13.                fData(index) = gCodes(i + 1)
14.        Next
15.        typeArray = fType: dataArray = fData
16. End Sub
17. Function CreateSelectionSet(Optional SSetName As String = "mjtd") As AcadSelectionSet
18.        On Error Resume Next
19.        ThisDrawing.SelectionSets(SSetName).Delete
20.        Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SSetName)
21. End Function
22. Sub SelectAllLayoutText()
23.        Dim ss As AcadSelectionSet
24.        Set ss = CreateSelectionSet
25.        Dim typeArray As Variant
26.        Dim dataArray As Variant
27.        BuildFilter typeArray, dataArray, 0, "TEXT"
28.        ss.Select acSelectionSetAll, , , typeArray, dataArray
29.        Debug.Print ss.Count
30. End Sub

Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())        Dim fType() As Integer, fData()        Dim index As Long, i As Long               index = LBound(gCodes) - 1                        For i = LBound(gCodes) To UBound(gCodes) Step 2                index = index + 1                ReDim Preserve fType(0 To index)                ReDim Preserve fData(0 To index)                fType(index) = CInt(gCodes(i))                fData(index) = gCodes(i + 1)        Next        typeArray = fType: dataArray = fData End Sub Function CreateSelectionSet(Optional SSetName As String = "mjtd") As AcadSelectionSet        On Error Resume Next        ThisDrawing.SelectionSets(SSetName).Delete        Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SSetName) End Function Sub SelectAllLayoutText()        Dim ss As AcadSelectionSet        Set ss = CreateSelectionSet        Dim typeArray As Variant        Dim dataArray As Variant        BuildFilter typeArray, dataArray, 0, "TEXT"        ss.Select acSelectionSetAll, , , typeArray, dataArray        Debug.Print ss.Count End Sub

特别提示：Select 的 acSelectionSetAll 项所选择的是所有图形中的对象，不管对象是在哪个空间或布局中。
如果需要过滤出某个布局中的对象，则使用实用函数中的以下函数解决：
http://www.mjtd.com/function/list.asp?id=304&ordertype=bysort&orderkey=33

wxm790621

非常感谢，可以用了