vb.net如何通过实体得到其所属的组的名字

xujie5606

vb.net如何通过实体得到其所属的组的名字
求大侠指点

guohq

2. Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
   
3.         Dim PromptResult As PromptEntityResult = doc.Editor.GetEntity("选择对象")
   
4.         If PromptResult.Status <> PromptStatus.OK Then
   
5.             Exit Sub
   
6.         End If
   
7.         Using doc.LockDocument
   
8.             Using Trans As Transaction = doc.TransactionManager.StartTransaction
   
9.                 Dim SelectedEnt As Entity = Trans.GetObject(PromptResult.ObjectId, OpenMode.ForRead)
   
10. 
    
11.                 Dim GroupDict As DBDictionary = Trans.GetObject(doc.Database.GroupDictionaryId, OpenMode.ForRead)
    
12.                 For Each GroupEnt As DBDictionaryEntry In GroupDict
    
13. 
    
14.                     Dim Grp As Group = Trans.GetObject(GroupDict(GroupEnt.Key), OpenMode.ForRead)
    
15. 
    
16.                     If Grp.Has(SelectedEnt) Then
    
17.                         MsgBox(Grp.Name) '通过此处来判断
    
18.                     End If
    
19.                 Next
    
20.                 Trans.Abort()
    
21.             End Using
    
22.         End Using

Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument<br />         Dim PromptResult As PromptEntityResult = doc.Editor.GetEntity("选择对象")<br />         If PromptResult.Status <> PromptStatus.OK Then<br />             Exit Sub<br />         End If<br />         Using doc.LockDocument<br />             Using Trans As Transaction = doc.TransactionManager.StartTransaction<br />                 Dim SelectedEnt As Entity = Trans.GetObject(PromptResult.ObjectId, OpenMode.ForRead)<br /> <br />                 Dim GroupDict As DBDictionary = Trans.GetObject(doc.Database.GroupDictionaryId, OpenMode.ForRead)<br />                 For Each GroupEnt As DBDictionaryEntry In GroupDict<br /> <br />                     Dim Grp As Group = Trans.GetObject(GroupDict(GroupEnt.Key), OpenMode.ForRead)<br /> <br />                     If Grp.Has(SelectedEnt) Then<br />                         MsgBox(Grp.Name) '通过此处来判断<br />                     End If<br />                 Next<br />                 Trans.Abort()<br />             End Using<br />         End Using