Sub Example_DefaultPlotStyleTable()
    ' Этот пример читает и изменяет привилегированное значение, которое
    ' определяет заданную по умолчанию таблицу графического стиля,
    ' присоединяемую к новым рисункам.
    '
    ' Обратите внимание: Вы можете изменить путь новой таблицы
    ' графического стиля ниже.
    
    Dim ACADPref As AcadPreferencesOutput
    Dim CurrentFile As String
    
    Const NewFile = "c:\monochrome.ctb"
    
    ' Получите черновой объект параметров
    Set ACADPref = ThisDrawing.Application.preferences.Output
    
    ' Читайте и показывайте текущий путь таблицы графического стиля
    CurrentFile = ACADPref.DefaultPlotStyleTable
    If CurrentFile = "" Then
        MsgBox "Нет никакой текущей используемой таблицы графического стиля", vbInformation
    Else
        MsgBox "Текущая таблица графического стиля: " & CurrentFile
    End If

    ' Используйте новую таблицу графического стиля
    ACADPref.DefaultPlotStyleTable = NewFile
    
    ' Читайте и показывайте новый путь таблицы графического стиля
    CurrentFile = ACADPref.DefaultPlotStyleTable
    MsgBox "Новая таблица графического стиля: " & CurrentFile, vbInformation

End Sub