Sub Example_SetView()
    'Этот пример создает новый вид.
    'Затем изменяет активную область просмотра на недавно созданный вид.
    
    'Сначала откроем типовой рисунок.
    ThisDrawing.Application.Documents.Open "C:\AutoCAD\Sample\campus.dwg"
    
    'Создайте новый вид
    Dim viewObj As AcadView
    Set viewObj = ThisDrawing.Views.Add("TESTVIEW")
    
    'Установите характеристики вида
    viewObj.center(0) = 374: viewObj.center(1) = 313
    viewObj.width = 450
    viewObj.height = 354
    
    'Получите текущую активную область просмотра
    Dim viewportObj As AcadViewport
    Set viewportObj = ThisDrawing.ActiveViewport
    MsgBox "Изменить на сохраненный вид.", , "SetView Пример"
       
    'Установите вид в области просмотра
    viewportObj.SetView viewObj
    ThisDrawing.ActiveViewport = viewportObj
        
    ThisDrawing.Regen True
    
End Sub