如何获取块参照所在布局的名称

freshclue

我在程序中遍历布局中的块参照，如果找到目标块后，激活这个块参照所在的布局，请问如何获取块参照所在布局的名称

雪山飞狐_lzh

看看前几天的帖子，有相关的内容

sailorcwx

Sub test()
Dim obj As AcadEntity
Dim pt As Variant
ThisDrawing.Utility.GetEntity obj, pt
Dim objid As Long
objid = obj.OwnerID
MsgBox ThisDrawing.ObjectIdToObject(objid).Layout.Name
End Sub