在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("四视图")里面再分呢
置顶卡
