haohaohapp 发表于 2004-7-8 14:29:00

如何遍历图形中的group?

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

haohaohapp 发表于 2004-7-9 10:38:00

up

hx44809080 发表于 2004-7-22 20:50:00

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

mccad 发表于 2004-7-22 22:04:00

haohaohapp发表于2004-7-8 14:29:00static/image/common/back.gif回复：（haohaohapp）如何遍历图形中的group? 如何遍历图形中的group,并且怎么知道此group是在模型空间还是在布局空间?
用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
页: [1]
查看完整版本: 如何遍历图形中的group?