neteasy 发表于 2004-2-21 11:56:00

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

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

mccad 发表于 2004-2-21 14:03:00

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
页: [1]
查看完整版本: 如何判断一个图元存在于哪个布局中？