缩放视图

AutoCAD ActiveX/VBA

 
缩放视图
 
 
 

如果需要按精确的比例缩放图像,可以用三种方法指定缩放比例:

  • 相对于图形界限
  • 相对于当前视图
  • 相对于图纸空间单位

要缩放视图,请使用 ZoomScaled 方法。该方法需要两个输入参数:缩放比例和缩放类型。缩放比例是一个数值,AutoCAD 对该数值的解释取决于用户选择的缩放类型。

缩放类型确定缩放值是相对于图形界限、当前视图还是相对于图纸空间单位创建的。相对于图形界限缩放时,使用常量 acZoomScaledAbsolute;相对于当前视图缩放时,使用常量 acZoomScaledRelative;相对于图纸空间单位缩放时,使用常量 acZoomScaledRelativePSpace

使用指定的缩放比例放大活动图形

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