请问如何遍历多个图纸空间(paperspace)？

20060510412

我想使用vba遍历dwg文件里面的所有对象，遇到了一个问题：
如果是遍历模型空间里面的对象比较简单，如下：
For Each ent In objDBX.ModelSpace
如果是遍历图纸空间里面的对象，起初我是用的这一句：
For Each ent In objDBX.PaperSpace
后来发现这样是有问题的：因为我的图纸里面有多个图纸空间，而上面这句代码遍历的只是当前被激活的图纸空间，请问应该如何遍历所有的图纸空间呢？

mikewolf2k

    For Each MyLayout In ThisDrawing.Layouts
        If MyLayout.ModelType = False Then
           ThisDrawing.ActiveLayout = MyLayout
           'do event
        End If
    Next

zzyong00

1. Public Sub ss()
   
2. Dim objB As AcadBlock, obj1 As AcadObject
   
3. For Each objB In ThisDrawing.Blocks
   
4.     Debug.Print objB.Name
   
5.     For Each obj1 In objB
   
6.         Debug.Print Space(6); obj1.ObjectName
   
7.     Next obj1
   
8. Next objB
   
9. End Sub
   

Public Sub ss()<br /> Dim objB As AcadBlock, obj1 As AcadObject<br /> For Each objB In ThisDrawing.Blocks<br />     Debug.Print objB.Name<br />     For Each obj1 In objB<br />         Debug.Print Space(6); obj1.ObjectName<br />     Next obj1<br /> Next objB<br /> End Sub<br />

20060510412

zzyong00 发表于 2015-3-29 20:06

太感谢了！这个问题困扰了我好久，一直不知道怎么解决。

2017forverd

zzyong00 发表于 2015-3-29 20:06

如果要遍历每个空间的同时，激活这些空间为active,怎么操作？