Сообщество программистов Autodesk в СНГ :: Как получить строку подсказки атрибута блока при помощи VBA?

Сообщество программистов Autodesk в СНГ
VBA
Как получить строку подсказки атрибута блока при помощи VBA?

11/07/2015

Как получить строку подсказки атрибута блока при помощи VBA?

Мы можем получить строку подсказки атрибута из определения атрибута, содержащегося в определении блока. Следующий пример кода демонстрирует это:

Код - VBA: [Выделить]

Private Sub GetBlockAttributePrompts()
    Dim elem As Object
    For Each elem In ThisDrawing.ModelSpace
        If elem.EntityName = "AcDbBlockReference" Then
            If elem.HasAttributes Then
                ' Получаем определение блока
                Dim block As AcadBlock
                Set block = ThisDrawing.Blocks.item(elem.Name)
               
                Dim prompt As String
                prompt = ""
                
                Dim item As Object
                For Each item In block                  
                    If item.EntityName = "AcDbAttributeDefinition" Then
                        prompt = prompt + Chr(13) + item.PromptString
                    End If
                Next item
                Debug.Print prompt
            End If
        End If
    Next elem
End Sub