[june]

Здравствуйте!
В чертеже есть блоки с атрибутами. Мне нужно найти один конкретный атрибут, и узнать у него Y-координату точки вставки. Мой кусок кода:

Dim varAttributes As Variant
Dim InsertionPoint(0 To 2) As Double
Dim I As Integer

For Each oEntity In ThisDrawing.ModelSpace
If TypeOf oEntity Is AcadBlockReference Then
Set oBlkRef = oEntity
varAttributes = oBlkRef.GetAttributes
For I = 0 To UBound(varAttributes)
If varAttributes(I).TagString = "CMD_TITLE_BLOCK_DEVELOP#FUNCTION" Then
MsgBox varAttributes(I).InsertionPoint(1)
End If
Next
End If
Next

Exit Sub

При выполнении ругается: смотри картинку.
Что я делаю не так?
Спасибо.

РЕШЕНИЕ НАЙДЕНО, ТЕМА ЗАКРЫТА

[Кулик Алексей aka kpblc]

Раз найдено, поделись

[june]

Нужно было дополнительно объявить переменную:

Код:

[Выделить все]

Dim objAttRef As AcadAttributeReference
 
Тогда:
...
varAttributes = oBlkRef.GetAttributes
For I = 0 To UBound(varAttributes)
If varAttributes(I).TagString = "CMD_TITLE_BLOCK_DEVELOP#FUNCTION" Then
Set objAttRef = varAttributes(I) 
MsgBox objAttRef.InsertionPoint(1)
End If
Next
...

PS Жирным выделить получилось, а вот как сделать отступы в коде - не понимаю