Sub Example_Split()
    'Этот пример создает новую область просмотра и делает её активной.
    'Затем он разбивает область просмотра на четыре окна.
    'Затем берет одно из этих четырех окон и разбивает это окно горизонтально.
    Dim newViewport As AcadViewport
       
    'Создайте новую область просмотра и сделайте её активной
    Set newViewport = ThisDrawing.Viewports.Add("TESTVIEWPORT")
    ThisDrawing.ActiveViewport = newViewport
    
    'Разбейте область просмотра на четыре окна
    newViewport.Split acViewport4
    
    'Сделайте недавно разбитую область просмотра активной
    ThisDrawing.ActiveViewport = newViewport
    
    'Отметьте, что лист текущего рисунка покажет четыре окна.
    'Однако, только одно из окон будет активно.
    'Следующий код сделает активным левое нижнее окно
    'и затем разобьёт окно на два горизонтальных окна.
    Dim entry
    For Each entry In ThisDrawing.Viewports
        If entry.name = "TESTVIEWPORT" Then
            Dim lowerLeft
            lowerLeft = entry.LowerLeftCorner
            If lowerLeft(0) = 0 And lowerLeft(1) = 0 Then
                Set newViewport = entry
                Exit For
            End If
        End If
    Next
    newViewport.Split acViewport2Horizontal
    ThisDrawing.ActiveViewport = newViewport
End Sub