Sub Example_Mode()
    ' Этот пример создает определение признака в пространстве модели.
    ' Затем делает запрос начального значения свойства Mode,
    ' изменяет и сбрасывают значение.
    
    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
    
    'Возвратите текущую длину поля признака
    Dim currMode As Integer
    Dim constant As String
    currMode = attributeObj.mode
    GoSub GETCONSTANT
    MsgBox "Mode " & constant, vbInformation, "Mode Пример"
    
    'Измените длину поля
    attributeObj.mode = acAttributeModeInvisible
    GoSub GETCONSTANT
    attributeObj.Update
    MsgBox "Новый Mode " & constant, vbInformation, "Mode Пример"
    
    'Сбросьте длину поля к оригинальному значению
    attributeObj.mode = currMode
    GoSub GETCONSTANT
    attributeObj.Update
    MsgBox "Mode признака сброшен к " & constant, vbInformation, "Mode Пример"
    Exit Sub
    
GETCONSTANT:
    'Получите константу, которая соответствует текущему режиму
    constant = Choose(attributeObj.mode, "acAttributeModeInvisible", "acAttributeModeConstant", "", "acAttributeModeVerify", "", "", "", "acAttributeModePreset")
    Return
End Sub

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