Sub Example_MaxAutoCADWindow()
    ' Этот пример возвращает текущую установку MaxAutoCADWindow. Затем
    ' изменяет значение и наконец сбрасывает это значение назад к
    ' оригинальной установке.
    
    Dim preferences As AcadPreferences
    Dim currMaxAutoCADWindow As Boolean
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение MaxAutoCADWindow
    currMaxAutoCADWindow = preferences.DISPLAY.MaxAutoCADWindow
    MsgBox "Текущее значение для MaxAutoCADWindow " & preferences.DISPLAY.MaxAutoCADWindow, vbInformation, "MaxAutoCADWindow Пример"
    
    'Измените значение для MaxAutoCADWindow
    preferences.DISPLAY.MaxAutoCADWindow = Not (currMaxAutoCADWindow)
    MsgBox "Новое значение для MaxAutoCADWindow " & preferences.DISPLAY.MaxAutoCADWindow, vbInformation, "MaxAutoCADWindow Пример"
    
    'Сбросьте MaxAutoCADWindow к его оригинальному значению
    preferences.DISPLAY.MaxAutoCADWindow = currMaxAutoCADWindow
    MsgBox "Значение MaxAutoCADWindow сброшено к " & preferences.DISPLAY.MaxAutoCADWindow, vbInformation, "MaxAutoCADWindow Пример"
End Sub