La ventana gráfica activa se divide con el método Split Este método utiliza un parámetro, el tipo de configuración, para establecer cómo se desea dividir la ventana gráfica. Para especificar la configuración de la ventana, utilice una de las siguientes constantes que corresponden a las configuraciones por defecto anteriormente mostradas: acViewport2Horizontal, acViewport2Vertical, acViewport3Left, acViewport3Right, acViewport3Horizontal, acViewport3Vertical, acViewport3Above, acViewport3Below, o acViewport4.
Para obtener más información acerca de la modificación de la configuración de las ventanas gráficas, véase “Definición de las ventanas gráficas del espacio modelo” en el Manual del usuario.
División de una ventana gráfica en dos ventanas horizontales
En el ejemplo siguiente se crea una ventana gráfica nueva que, a continuación, se divide en dos ventanas horizontales.
Sub Ch3_SplitAViewport()
' Create a new viewport
Dim vportObj As AcadViewport
Set vportObj = ThisDrawing.Viewports.Add("TEST_VIEWPORT")
' Split vportObj into 2 horizontal windows
vportObj.Split acViewport2Horizontal
' Now set vportObj to be the active viewport
ThisDrawing.ActiveViewport = vportObj
End Sub