Добавить Атрибуты к AcadExternalReference

Доброго времени суток, господа.
Проблема в следующем. В свойствах объекта AcadExternalReference (далее «ссылка») имеется HasAttributes, однако если в ссылке только блок с атрибутами, то на запрос .HasAttributes ответ – False; если в ссылке имеются Attibute Deffinition (не входящий в блок), то тоже на запрос .HasAttributes ответ – False…
Мне хотелось бы обращаться к атрибутам вхождений блоков, находящихся в ссылках… Опишите, пожалуйста, как это можно сделать, если вообще возможно.
И еще.
У объекта AcadExternalReference почему-то .ObjectName получается AcDbBlockReference, даже если в ссылке нет блоков вообще. Есть ли в этом тайный смысл? )))))

Public Sub Test()
Dim xR As AcadExternalReference
Set xR = ThisDrawing.ModelSpace(0) [i]‘единственный объектрисунка – ссылка[/i]
MsgBox xR.Name, , "xR.Name" [i]’как и положено дает имя файла[/i]
MsgBox xR.HasAttributes, , "xR.HasAttributes"[i]‘никак не получить здесь True[/i]
MsgBox xR.ObjectName, , "XR.ObjectName" [i]‘всегда выдает AcDbBlockReference, из чего бы не состояла ссылка…[/i]
End Sub

Заранее спасибо.