viewport 每个视口操作

月冷水边 · 发表于 2013-2-4 20:45:08

在cad 模型视口中我看了对象结构到viewport 我做了一四视口我想在程序打开时候每个视口图形多能放大显示
源码；Sub ma()
Dim a As AcadViewport

If ThisDrawing.Viewports.Count = 1 Then

Set a = ThisDrawing.Viewports.Add("四视图")

ThisDrawing.ActiveViewport = a
a.Split acViewport4
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport

End If
ThisDrawing.ActiveViewport = ThisDrawing.Viewports(2)
ThisDrawing.Application.ZoomExtents

End Sub
只能做到最后一视口放大，另外疑问 cad本身模型视口（ThisDrawing.Viewports(1)）为啥不能分成四视图，必须Add("四视图")里面再分呢

月冷水边 · 发表于 2013-2-4 20:47:59

End If
ThisDrawing.ActiveViewport = ThisDrawing.Viewports(2)
ThisDrawing.Application.ZoomExtents
是保证不管视口如何变运行程序永远在四视口状态停留

月冷水边 · 发表于 2013-2-5 17:41:18

没人教我

daneal · 发表于 2013-4-26 20:46:14

我也遇到这个问题。。。悲剧啊~兄弟搞定了吗？

账号		自动登录	找回密码
密码			注册

viewport 每个视口 操作

相关帖子

viewport 每个视口操作