如何判断一个图元存在于哪个布局中？

neteasy

假如一个块名为“块1”，在图中存在两个布局，“布局1”和“布局2”，如何知道这个块在哪个布局中？或两个布局中都有？

mccad

2. Sub DispOwnerObject()
3.        Dim ent As AcadEntity
4.        Dim pnt As Variant
5.        ThisDrawing.Utility.GetEntity ent, pnt, "选择对象:"
6.        Dim str As String
7.        Dim obj As AcadObject
8.        Set obj = ThisDrawing.ObjectIdToObject(ent.OwnerID)
9.        Debug.Print obj.ObjectName
10.        Debug.Print obj.Name
11. End Sub

Sub DispOwnerObject()        Dim ent As AcadEntity        Dim pnt As Variant        ThisDrawing.Utility.GetEntity ent, pnt, "选择对象:"        Dim str As String        Dim obj As AcadObject        Set obj = ThisDrawing.ObjectIdToObject(ent.OwnerID)        Debug.Print obj.ObjectName        Debug.Print obj.Name End Sub