Sub Example_Verify()
    'Этот пример создает определение признака в пространстве модели.
    'Затем заставляет проверять определение и делает запрос режима.
    
    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
    
    'Измените режим
    attributeObj.mode = acAttributeModeVerify
    attributeObj.Update
    
    'Выясните, если признак собирается проверить
    MsgBox (IIf(attributeObj.Verify, "Признак собирается проверить", "Признак не собирается проверить"))
End Sub