Sub Example_LayerOn()
    'Этот пример создает новый слой по имени "LayerOn".
    'Затем показывает состояние свойства LayerOn для нового слоя,
    ' переключает состояние свойства LayerOn и снова показывает его состояние.
    
    Dim layerObj As AcadLayer
    
    'Создайте новый слой
    Set layerObj = ThisDrawing.Layers.Add("LayerOn")
    
    'Покажите состояние LayerOn нового слоя
    GoSub DISPLAYSTATUS
    
    'Переключите состояние свойства LayerOn для слоя
    layerObj.LayerOn = Not (layerObj.LayerOn)
    
    'Покажите состояние LayerOn нового слоя
    GoSub DISPLAYSTATUS
    Exit Sub
    
DISPLAYSTATUS:
    If layerObj.LayerOn Then
        MsgBox "Слой " & layerObj.name & " включен.", , "LayerOn Пример"
    Else
        MsgBox "Слой " & layerObj.name & " выключен.", , "LayerOn Пример"
    End If
    Return
        
End Sub

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