CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2019 开发者帮助 › 查看内容

AutoCAD 2019 开发者帮助

关于缩放视图（VBA/ActiveX）

2024-5-18 17:50| 发布者: admin| 查看: 84| 评论: 0|原作者: admin|来自: AutoCAD

关于缩放视图（VBA/ActiveX）

您可以按精确比例增加或减少图像的放大倍率。

可以使用以下方法之一指定缩放比例：

相对于绘图限制
相对于当前视图
相对于纸张空间单位

若要缩放视图，请使用该方法。此方法采用两个参数作为输入：刻度和刻度类型。比例只是一个数字。AutoCAD 如何解释该数字取决于您选择的刻度类型。ZoomScaled

比例类型决定了是相对于绘图限制、当前视图还是图纸空间单位创建比例值。要相对于绘图限制进行缩放，请使用常量。若要相对于当前视图缩放视图，请使用常量。要相对于图纸空间单位进行缩放，请使用常量。acZoomScaledAbsoluteacZoomScaledRelativeacZoomScaledRelativePSpace

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

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