Sub Example_Plottable()
    'Этот пример создает новый слой по имени "New_Layer". Затем использует 
    'свойство Plottable каждого Слоя, чтобы показать, действительно ли этот 
    'слой печатаем. Пользователь имеет возможность переключить 
    'печатаемое состояние для каждого слоя и показывается конечное 
    'печатаемое состояние для всех слоев.
    
    Dim layerObj As AcadLayer, tempLayer As AcadLayer
    Dim msg As String

    'Добавьте слой к коллекции слоев
    Set layerObj = ThisDrawing.Layers.Add("New_Layer")
    
    'Сделайте новый слой активным слоем для рисунка
    ThisDrawing.ActiveLayer = layerObj
    
    'Циклически пройдите слои и позвольте пользователю делать их печатаемыми или нет
    
    For Each tempLayer In ThisDrawing.Layers
        If tempLayer.Plottable Then     ' Определите, печатаем ли этот слой
            If MsgBox("
Слой '" & tempLayer.name & "' будет печататься. Хотели бы Вы выключить печать этого слоя?", vbYesNo & vbQuestion) = vbYes Then
                tempLayer.Plottable = False     ' Измените печатаемое состояние
            End If
        Else
            If MsgBox("Слой '" & tempLayer.name & "' не будет печататься. Хотели бы Вы включить печать этого слоя?", vbYesNo & vbQuestion) = vbYes Then
                tempLayer.Plottable = True      ' Измените печатаемое состояние
            End If
        End If
    Next
    
    'Покажите новое печатаемое состояние слоев в этом рисунке
    
    For Each tempLayer In ThisDrawing.Layers
        'Определите, печатаем ли этот слой
        If tempLayer.Plottable Then
            msg = msg & "Слой '" & tempLayer.name & "' будет печататься." & vbCrLf
        Else
            msg = msg & "Слой '" & tempLayer.name & "' не будет печататься." & vbCrLf
        End If
    Next

    MsgBox msg
End Sub