Get block attributes from xref

Hi,
I need to extract attributes from a block nested in an xref. The simple code below doesn't do that for me. What is the catch here?
Thanks,
Mike

Sub getblock()
Dim Object As Object
Dim tempObj As Object
Dim array1 As Variant
Dim PickedPoint As Variant, TransMatrix As Variant, ContextData As Variant

ThisDrawing.Utility.GetSubEntity Object, PickedPoint, TransMatrix, ContextData
'On Error Resume Next
'MsgBox TypeName(Object)
Set tempObj = ThisDrawing.ObjectIdToObject(Object.OwnerID)
array1 = tempObj.GetAttributes
MsgBox array1(0).textString
End Sub

 

GetSubEntity seems to return the lowest nested object so I think yo need to interrogate the ContextData.
Regards - Nathan

 

Hmmm, are you sure you are selecting an attribute/block with attributes? You
code works fine for me in A2K2.

Jeff

code below doesn't do that for me. What is the catch here?

 

Thanks, Nathan.
ContextData worked great for me. For some reason it returns different IDs than ThisDrawing.ObjectIdToObject(Object.OwnerID). That's why my code didn't work. It sounds strange, especially since the same code worked well for Jeff, but it works, and that is the most important thing.