Determining what layout an object is in

[Anonymous]

Does anybody know how to determine which layout a specific block is inserted
into.

thanks in advance,
kevin

[Anonymous]

You can pass the value of the OwnerID property to the
ObjectIdToObject method of AcadDocument, to get the
Owing space block.

"Kevin Vining" wrote in message news:D97C49438C1CAA0BEE1C1DF319C88FF4@in.WebX.maYIadrTaRb...
> Does anybody know how to determine which layout a specific block is inserted
> into.
>
> thanks in advance,
> kevin
>
>

[Anonymous]

Public Sub WhichLayout()

Dim oEntity As AcadEntity

Dim Point As Variant



  ThisDrawing.Utility.GetEntity oEntity, Point, "Select entity "

  

  MsgBox ThisDrawing.ObjectIdToObject(oEntity.OwnerID).Layout.Name

End Sub