Sub Example_Views()
    ' Этот пример находит коллекцию текущих видов
    ' и добавляет новый вид к этой коллекции.
    
    Dim viewColl As AcadViews
    Set viewColl = ThisDrawing.Views
    
    ' Создайте вид по имени "TEST" в текущем рисунке
    Dim viewObj As AcadView
    Set viewObj = viewColl.Add("TEST")
    MsgBox "Новый вид " & viewObj.name & " добавился к коллекции вида.", vbInformation, "Views Пример"
End Sub