Sub Example_Invisible()
    ' Этот пример создает определение признака пространство модели.
    ' Затем делает запрос видимости признака, изменяет видимость и делает
    ' запрос видимости снова.
    
    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.Invisible = Not attributeObj.Invisible
    ZoomAll
    
    GoSub QUERYSTATUS
    
    Exit Sub
    
QUERYSTATUS:
    If attributeObj.Invisible Then
        MsgBox "Признак невидим. "
    Else
        MsgBox "Признак видим. "
    End If
    Return
End Sub

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