Тема: Координаты атрибута вставленного блока

Мне нужно пронумеровать выделенные блоки (через их атрибуты) в зависимости от их расположения на чертеже. Уважаемые знатоки, пожалуйста, объясните как программно получить координаты атрибута вставленного блока.
С уважением Андрей

Re: Координаты атрибута вставленного блока

'для блока:
    Dim blk As AcadBlockReference
    Dim InsertPoint As Variant
    InsertPoint = blk.InsertionPoint
'для атрибута:
    Dim attrib As AcadAttributeReference
    InsertPoint = attrib.InsertionPoint

Re: Координаты атрибута вставленного блока

Большое спасибо, я с вашей помощью разобрался. Вы настоящие Знатоки!