Sub Example_ObjectSortByPSOutput()
    'Этот пример читает и изменяет значение параметра, которое управляет 
    'сортировкой объектов рисунка в соответствии с порядком вывода PostScript.
    'Когда закончено, этот пример сбрасывает значение параметра назад к, 
    'его оригинальному значению.
    
    Dim ACADPref As AcadDatabasePreferences
    Dim originalValue As Variant, newValue As Variant
    
    'Получите пользовательский объект параметров
    Set ACADPref = ThisDrawing.preferences
    
    'Читайте и показывайте оригинальное значение
    originalValue = ACADPref.ObjectSortByPSOutput
    MsgBox "Параметр ObjectSortByPSOutput: " & originalValue

    'Измените параметр ObjectSortByPSOutput, переключая значение
    ACADPref.ObjectSortByPSOutput = Not (ACADPref.ObjectSortByPSOutput)
    newValue = ACADPref.ObjectSortByPSOutput
    MsgBox "Параметр ObjectSortByPSOutput: " & newValue

    'Сбросьте параметр назад к оригинальному значению
    '
    '* Примечание: Прокомментируйте этот последний раздел, чтобы оставить
    ' изменение этому параметру
    ACADPref.ObjectSortByPSOutput = originalValue
    MsgBox "Параметр ObjectSortByPSOutput был сброшен назад к: " & originalValue
End Sub