Определение "подсказки" атрибута выбранного блока?

Фигня такая, в блоках (ж.б. изделия панелей) по пять атрибутов: Марка, Наименование, Обозначение, Масса и Материал и их можно получить только по подсказке (promt), а во всех Tag'ах - имя блока.
Так вот, лазить за "подсказкой" через коллекцию блоков не совсем "безопасно", ведь атрибуты в BlockReferenc'е и в Blocks могут отличаться (например если кто-нибудь в редакторе блоков удалит атрибут). Надо это как-то проверять.
Ну а про dxf я кажись загнул. Ведь нет такой возможности?

Для VBA, через таг:

Function GetAttributePointerByTagString(oBlock As AcadBlockReference, sTag As String) As AcadAttributeReference
Dim arAttr() As AcadAttributeReference, lCounter As Long
  If oBlock.HasAttributes Then
    arAttr = oBlock.GetAttributes
    Dim AttrCounter As AcadAttributeReference
    For lCounter = 0 To UBound(arAttr)
      If UCase(arAttr(lCounter).TagString) = UCase(sTag) Then
        Set GetAttributePointerByTagString = arAttr(lCounter)
        Exit For
      End If
    Next
  End If
End Function
Sub test()
Dim retObject As AcadEntity, sReqTag As String, sAvailTag As String
Dim retAttr As AcadAttributeReference, lCounter As Long, arAttr() As AcadAttributeReference
On Error GoTo lErrorGetEnt
  ThisDrawing.Utility.GetEntity retObject, retPoint
  If retObject.ObjectName = "AcDbBlockReference" And retObject.HasAttributes Then
    arAttr = retObject.GetAttributes
    For lCounter = 0 To UBound(arAttr)
        If sAvailTag = "" Then
          sAvailTag = arAttr(lCounter).TagString
        Else
          sAvailTag = sAvailTag & "\" & arAttr(lCounter).TagString
        End If
    Next lCounter
     sReqTag = ThisDrawing.Utility.GetString(True, "Укажите нужный таг [" & sAvailTag & "]")
     Dim Res As AcadAttributeReference
     Set Res = GetAttributePointerByTagString(retObject, sReqTag)
    MsgBox "Значение атрибута : " & Res.TextString
  End If
  Exit Sub
lErrorGetEnt:
  MsgBox "Ошибка указания примитива!", vbOKOnly + vbCritical + vbApplicationModal, "Ошибка указания"
  Exit Sub
End Sub

Как вариант, конечно.

Ой, недописал:
sAvailTag="ЦВ1\ЦВ1\ЦВ1\ЦВ1\ЦВ1"

Такой принцип блоков ввел внештатный программер.
Он писал приложение на лиспе. все в fas'ах. позырить не могу. Ему наверно просто определять Promt'ы.
А, еще забыл, каждый атрибут на своем слое (Atr_Мarka, Atr_Naimenovanie и т.д.) Щас попробую это использовать.

Переписать код будет даже маловато.
Уже созданы библиотеки блоков.
Нужна была бы еще програмка по редактированию всех этих блоков.
Вносить коренные изменения в ход работы, при котором прежняя система не сможет работать, мне не позволят. Я тут неск. месяцев работаю, а он неск. лет (крепкие связи). Да и я на самом деле смытся уже подумываю.
А скажи, как бы ты сделал такие блоки, ну у которых значения атрибутов жестко заданы.
Тип атрибута - "постоянный" (на рус акаде), не подходит, т.к. его не видно на чертеже.

Интересная фигня... Может, так:

...
dim ...
ThisDrawing.Utility.GetEntity objBlk, varPoint, "Выберите вставку блока"
If TypeOf objBlk Is AcadBlockReference Then
   For Each obj In objBlk.GetAttributes
    Select Case obj.layer
      Case "Atr_Мarka"
        Marka=obj.textstring
      Case "Atr_Naimenovanie"
        Naimenovanie=obj.textstring
     ....
    end select
   Next

Если, конечно, я правильно понял и в promt задано наименование атрибута ("Марка, Наименование, Обозначение, Масса и Материал"), а значение в textstring. Если же в promt - именно значение атрибута, то ... странная логика у вашего программиста.

> Vildar
Но если кто знает или узнает простой способ получения promt'а для атрибута выбранного блока — пишите, было бы круто.

В VBA никак не определишь, не трать силы и время.

Можно использовать расширенные данные (Xdata), если свойства должны считываться с вставки блока программно (при подсчете спецификации, напр.). Если же их необходимо видеть просто при выделении блока, можно использовать гиперссылку (навел курсор на блок - появилась информация по нему)