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

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

    'Регенерируйте области просмотра
    ThisDrawing.Regen acAllViewports

End Sub