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

viewport 每个视口 操作

在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

我也遇到这个问题。。。悲剧啊~兄弟搞定了吗？
页: [1]
查看完整版本: viewport 每个视口 操作