Sub Example_MaxActiveViewports()
    ' Этот пример возвращает текущую установку MaxActiveViewports. Затем
    ' изменяет значение и наконец сбрасывает значение назад к оригинальной
    ' установке.
    
    Dim currMaxActiveViewports As Integer
    Dim newMaxActiveViewports As Integer
    
    'Получите текущее значение MaxActiveViewports
    currMaxActiveViewports = ThisDrawing.preferences.MaxActiveViewports
    MsgBox "Текущее значение для MaxActiveViewports " & currMaxActiveViewports, vbInformation, "MaxActiveViewports Пример"
    
    'Измените значение для MaxActiveViewports
    newMaxActiveViewports = 20
    ThisDrawing.preferences.MaxActiveViewports = newMaxActiveViewports
    MsgBox "Новое значение для MaxActiveViewports " & newMaxActiveViewports, vbInformation, "MaxActiveViewports Пример"
    
    'Сбросьте MaxActiveViewports к его оригинальному значению
    ThisDrawing.preferences.MaxActiveViewports = currMaxActiveViewports
    MsgBox "Значение MaxActiveViewports сброшено к " & currMaxActiveViewports, vbInformation, "MaxActiveViewports Пример"
End Sub