Cuando desee aumentar o reducir la ampliación en pantalla de una imagen conforme a una escala determinada, puede indicar la escala de tres formas distintas:
- En relación con los límites del dibujo
- En relación con la vista actual
- En relación con las unidades del espacio papel
Para ampliar o reducir una vista, utilice el método ZoomScaled Este método espera dos parámetros de entrada: la escala y el tipo de escala. La escala es simplemente un número. La interpretación de este número por parte de AutoCAD depende del tipo de escala elegida.
El tipo de la escala determina si su valor se crea con respecto a los límites del dibujo, a la vista actual o a las unidades del espacio papel. Para asignar una escala relativa a los límites del dibujo, use la constante acZoomScaledAbsolute. Para ajustar la escala de una vista en relación con la vista actual, use la constante acZoomScaledAbsolute. Para asignar una escala relativa a las unidades del espacio papel, use la constante acZoomScaledRelativePSpace.
Ampliación del dibujo activo a una escala específica
Sub Ch3_ZoomScaled()
MsgBox "Perform a ZoomScaled using:" & vbCrLf & _
"Scale Type: acZoomScaledRelative" & vbCrLf & _
"Scale Factor: 2", , "ZoomScaled"
Dim scalefactor As Double
Dim scaletype As Integer
scalefactor = 2
scaletype = acZoomScaledRelative
ThisDrawing.Application.ZoomScaled scalefactor, scaletype
End Sub