如何遍历图形中的group?

haohaohapp

如何遍历图形中的group,并且怎么知道此group是在模型空间还是在布局空间?

haohaohapp

up

hx44809080

请问可不可以不用打开CAD文件而遍历所有选择的文件中的特定特点的文本等。

mccad

haohaohapp发表于2004-7-8 14:29:00回复：（haohaohapp）如何遍历图形中的group? 如何遍历图形中的group,并且怎么知道此group是在模型空间还是在布局空间?

用

2. Sub GroupAddress()
3.        Dim Gop As AcadGroup
4.        Dim Ent As Object
5.        For Each Gop In ThisDrawing.Groups
6.            Set Ent = ThisDrawing.ObjectIdToObject(Gop(0).OwnerID)
7.            If Ent.ObjectName = "AcDbBlockTableRecord" Then
8.                If Ent.Name = "*Model_Space" Then
9.                        MsgBox Gop.Name & "位于模型空间中.", , "明经通道VBA示例"
10.                Else
11.                        MsgBox Gop.Name & "位于图纸空间中.", , "明经通道VBA示例"
12.                End If
13.            End If
14.        Next
15. End Sub

Sub GroupAddress()        Dim Gop As AcadGroup        Dim Ent As Object        For Each Gop In ThisDrawing.Groups            Set Ent = ThisDrawing.ObjectIdToObject(Gop(0).OwnerID)            If Ent.ObjectName = "AcDbBlockTableRecord" Then                If Ent.Name = "*Model_Space" Then                        MsgBox Gop.Name & "位于模型空间中.", , "明经通道VBA示例"                Else                        MsgBox Gop.Name & "位于图纸空间中.", , "明经通道VBA示例"                End If            End If        Next End Sub