Sub Example_Constant()
    ' Этот пример создает определение атрибута пространство модели.
    ' Затем делает запрос атрибута, чтобы видеть, является ли он постоянным.
    
    Dim attributeObj As AcadAttribute
    Dim height As Double
    Dim mode As Long
    Dim prompt As String
    Dim insertionPoint(0 To 2) As Double
    Dim tag As String
    Dim value As String
    
    ' Определите определение атрибута
    height = 1#
    mode = acAttributeModeVerify
    prompt = "New Prompt"
    insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
    tag = "New Tag"
    value = "New Value"
    
    ' Создайте объект определения атрибута в пространстве модели
    Set attributeObj = ThisDrawing.ModelSpace.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
    ZoomAll
            
    ' Сделайте запрос атрибута
    GoSub QUERYSTATUS
    
    ' Измените атрибут
    attributeObj.constant = Not attributeObj.constant
    GoSub QUERYSTATUS
    
    Exit Sub
    
QUERYSTATUS:
    If attributeObj.constant Then
        MsgBox "Атрибут - постоянный атрибут. "
    Else
        MsgBox "Атрибут - не постоянный атрибут. "
    End If
    Return
End Sub

Сайт управляется системой uCoz