Sub Example_PlotViewportBorders()
    'Этот пример читает и изменяет значение PlotViewportBorders Layout.
    'Когда закончено, этот пример сбрасывает значение назад к его оригинальному значению.
    
    Dim ACADLayout As ACADLayout
    Dim originalValue As Boolean
    
    'Получите объект листа
    Set ACADLayout = ThisDrawing.ActiveLayout
    
    'Читайте и показывайте оригинальное значение
    originalValue = ACADLayout.PlotViewportBorders
    MsgBox "Значение PlotViewportBorders: " & originalValue

    'Измените параметр PlotViewportBorders, переключая значение
    ACADLayout.PlotViewportBorders = Not ACADLayout.PlotViewportBorders
    MsgBox "Параметр PlotViewportBorders теперь: " & ACADLayout.PlotViewportBorders

    'Сбросьте параметр назад к его оригинальному значению
    ACADLayout.PlotViewportBorders = originalValue
    MsgBox "Параметр PlotViewportBorders был сброшен назад к: " & originalValue
End Sub