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

ActiveX 开发指南

关于居中对象（VBA/ActiveX）

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

摘要: 将活动图形放大到指定中心。

将活动图形放大到指定中心。

可以将图形中的特定点移动到图形区域的中心。该方法可用于调整对象大小并将其置于视区中心。使用时，您可以通过输入相对于当前视图的放大倍率来指定比例大小。ZoomCenterZoomCenter

将活动图形放大到指定中心

下面的示例演示了用于以相同大小和两倍大小显示视图的效果：ZoomCenter

Sub Ch3_ZoomCenter()
  MsgBox "Perform a ZoomCenter using:" & vbCrLf & _
  "Center 3, 3, 0" & vbCrLf & _
  "Magnification: 10", , "ZoomCenter"

  Dim Center(0 To 2) As Double
  Dim magnification As Double

  Center(0) = 3: Center(1) = 3: Center(2) = 0
  magnification = 10

  ThisDrawing.Application.ZoomCenter Center, magnification
End Sub