CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 控制AutoCAD环境› 关于控制绘图窗口（VBA/ActiveX）› 关于使用缩放（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于缩放视图（VBA/ActiveX）

2023-1-5 02:45| 发布者: admin| 查看: 620| 评论: 0|来自: AutoCAD

摘要: 您可以通过精确的比例增加或减少图像的放大倍率。

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

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

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

若要缩放视图，请使用该方法。此方法将两个参数作为输入：刻度和刻度类型。比例只是一个数字。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