使用平铺视口
使用平铺视口
使另一个平铺视口成为当前视口
要拆分活动视口，请使用 Split 方法。此该方法接收一个参数，即要将视口拆分为哪种配置类型。要指定窗口配置，请使用以下一个对应于前面所示的默认配置的常量：acViewport2Horizontal、acViewport2Vertical、acViewport3Left、acViewport3Right、acViewport3Horizontal、acViewport3Vertical、acViewport3Above、acViewport3Below 或 acViewport4。
有关更改视口配置的详细信息，请参见《用户手册》中的“设置模型空间视口”。
将视口拆分为两个水平窗口
下面的样例创建一个新视口，然后将视口拆分为两个水平窗口。
Sub Ch3_SplitAViewport()
' 创建新视口
Dim vportObj As AcadViewport
Set vportObj = ThisDrawing.Viewports.Add("TEST_VIEWPORT")
' 将 vportObj 拆分为 2 个水平窗口
vportObj.Split acViewport2Horizontal
' 现在将 vportObj 设置为活动视口
ThisDrawing.ActiveViewport = vportObj
End Sub