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

ActiveX 开发指南

关于拆分活动视口（VBA/ActiveX）

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

摘要: 可以使用 Split 方法将活动视口拆分为多个视口。

可以使用该方法将活动视口拆分为多个视口。Split

此方法采用一个参数，即要将视口拆分为的配置类型。若要指定窗口配置，请使用与前面显示的默认配置相对应的以下常量之一：、、、或。acViewport2HorizontalacViewport2VerticalacViewport3LeftacViewport3RightacViewport3HorizontalacViewport3VerticalacViewport3AboveacViewport3BelowacViewport4

将视口拆分为两个水平窗口

下面的示例创建一个新的视口，然后将该视口拆分为两个水平窗口。

Sub Ch3_SplitAViewport()
  ' Create a new viewport
  Dim vportObj As AcadViewport
  Set vportObj = ThisDrawing.Viewports.Add("TEST_VIEWPORT")

  ' Split vportObj into 2 horizontal windows
  vportObj.Split acViewport2Horizontal

  ' Now set vportObj to be the active viewport
  ThisDrawing.ActiveViewport = vportObj
End Sub