• Petr
  • Восстановленный участник
  • На форуме с 21 января 2005г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как вытащить с чертежа аттрибуты блока, имеющие режим (mode) "Постоянный" (constant)

Занимаюсь разработкой программы, формирующей отчеты из аттрибутов блоков AutoCAD'а в Word.
Программу пишу на VBA.
Мой вопрос: Как вытащить с чертежа аттрибуты блока, имеющие режим (mode) "Постоянный" (constant). Аттрибуты, имеющие режим "Контролируемый" (Verify) я вытаскиваю без проблем. Но "Постоянные" аттрибуты программа просто не видит.
Программа, с помощью которой я вытаскиваю аттрибуты блоков:

Public acad As Object
     .....
Dim objMspace As Object
Dim TagA
Dim TextA
Dim varAttributes As Variant
Dim Ent As Object
Set objAcad = GetObject(, "AutoCAD.Application")
obj.acad.Visible = True
Set obj.Doc = objAcad.ActiveDocument
Set objMspace = objDoc.ModelSpace
For Each Ent In objMspace '*****
    If Ent.ObjectName = "AcDbBlockReference" Then
        varAttributes = Ent.GetAttributes
        For I = LBound(varAttributes) To UBound(varAttributes)
            TagA = varAttributes(I).TagString
            TextA = varAttributes(I).TextString
             Select Case TagA
'----------------------------------------
                Case "ПОЗИЦИЯ"
                    tabl(0, 1) = TextA
                Case "НАИМЕНОВАНИЕ"
                    tabl(0, 2) = TextA
                Case "ТИП"
                    tabl(0, 3) = TextA
                Case "КОД"
                    tabl(0, 4) = TextA
                ......
             End Select
                ......
        Next
    End if
Next

Эта программа не вытаскивает аттрибуты блоков, имеющие режим (mode) "Постоянный" (constant). Скажите, как изменить программу?
Заранее благодарен за совет.
P.S. Если кто знает, где можно скачать книгу-справочник по объектам, свойствам и методам AutoCAD'а, пожалуйста сообщите.
Спасибо.
Петр
petr2@101procent.com

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Как вытащить с чертежа аттрибуты блока, имеющие режим (mode) "Постоянный" (constant)

varAttributes = Ent.GetConstantAttributes

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Как вытащить с чертежа аттрибуты блока, имеющие режим (mode) "Постоянный" (constant)

If Ent.ObjectName = "AcDbBlockReference" Then
    If Ent.HasAttributes = True Then
        varAttributes = Ent.GetAttributes
        If UBound(varAttributes) < LBound(varAttributes) Then
            varAttributes = Ent.GetConstantAttributes
        End If
        For i = LBound(varAttributes) To UBound(varAttributes)
            ............................................
        Next
    End If
End If