可以使用该方法将活动视口拆分为多个视口。Split 此方法采用一个参数,即将视区拆分为的配置类型。若要指定窗口配置,请使用与前面显示的默认配置对应的以下常量之一:,,,,,,,, OR。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 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-12 07:24
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.