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

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

    'Предварительный просмотр показан
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview

End Sub