En la ventana gráfica activa se introducen puntos y se seleccionan objetos. Para convertir una ventana gráfica en la ventana actual, utilice la propiedad ActiveViewport
Puede repetir la operación en las ventanas gráficas existentes hasta encontrar la que busca. Para ello, primero debe identificar el nombre de la disposición de ventanas a la que pertenece la ventana que desea utilizar, mediante la propiedad Name. Por otra parte, si se trata de una disposición de ventanas dividida, las ventanas individuales pueden identificarse mediante las propiedades LowerLeftCorner y UpperRightCorner
Las propiedades LowerLeftCorner y UpperRightCorner representan la ubicación gráfica de la ventana en la pantalla. Estas propiedades se definen según se indica a continuación (con una división de cuatro ventanas a modo de ejemplo):
- Ventana 1-LowerLeftCorner = (0, .5), UpperRightCorner = (.5, 1)
- Ventana 2-LowerLeftCorner = (.5, .5), UpperRightCorner = (1, 1)
- Ventana 3-LowerLeftCorner = (.5, 0), UpperRightCorner = (1, .5)
- Ventana 4-LowerLeftCorner = (.5, 0), UpperRightCorner = (1, .5)
División de una ventana gráfica e iteración en todas las ventanas
En este ejemplo se divide una ventana gráfica en cuatro ventanas. A continuación se efectúan iteraciones en todas las ventanas gráficas del dibujo y se presenta el nombre de la ventana y las esquinas inferior izquierda y superior derecha de cada una.
Sub Ch3_IteratingViewportWindows()
' Create a new viewport and make it active
Dim vportObj As AcadViewport
Set vportObj = ThisDrawing.Viewports.Add("TEST_VIEWPORT")
ThisDrawing.ActiveViewport = vportObj
' Split vport into 4 windows
vportObj.Split acViewport4
' Iterate through the viewports,
' highlighting each viewport and displaying
' the upper right and lower left corners
' for each.
Dim vport As AcadViewport
Dim LLCorner As Variant
Dim URCorner As Variant
For Each vport In ThisDrawing.Viewports
ThisDrawing.ActiveViewport = vport
LLCorner = vport.LowerLeftCorner
URCorner = vport.UpperRightCorner
MsgBox "Viewport: " & vport.Name & " is now active." & _
vbCrLf & "Lower left corner: " & _
LLCorner(0) & ", " & LLCorner(1) & vbCrLf & _
"Esquina superior derecha: " & _
URCorner(0) & ", " & URCorner(1)
Next vport
End Sub