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

ActiveX 开发指南

关于定义缩放窗口（VBA/ActiveX）

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

摘要: 您可以通过指定定义该区域的角来快速放大该区域。

您可以通过指定定义该区域的角来快速放大该区域。

要通过指定边界来放大区域，请使用任一理论方法。该方法允许您以编程方式定义表示缩放窗口的两个点。该方法要求用户选择两个点。这两个拾取点将成为缩放窗口。ZoomWindowZoomPickWindowZoomWindowZoomPickWindow

将活动图形缩放到由两个点定义的窗口

Sub Ch3_ZoomWindow()
  ' ZoomWindow
  MsgBox "Perform a ZoomWindow with:" & vbCrLf & _
  "1.3, 7.8, 0" & vbCrLf & _
  "13.7, -2.6, 0", , "ZoomWindow"

  Dim point1(0 To 2) As Double
  Dim point2(0 To 2) As Double
  point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0
  point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0
  ThisDrawing.Application.ZoomWindow point1, point2
  ' ZoomPickWindow
  MsgBox "Perform a ZoomPickWindow", , "ZoomPickWindow"

  ThisDrawing.Application.ZoomPickWindow
End Sub