Sub Viewports()
    ' Этот пример находит текущую коллекцию Viewports и добавляет новую
    ' область просмотра к той коллекции.
    
    Dim viewportColl As AcadViewports
    Set viewportColl = ThisDrawing.Viewports
    
    ' Создайте область просмотра по имени "TEST" в текущем рисунке
    Dim viewportObj As AcadViewport
    Set viewportObj = viewportColl.Add("TEST")
    MsgBox "Новая область просмотра " & viewportObj.name & " добавилась к коллекции Viewports.", vbInformation, "Viewports Пример"
End Sub