'如何实现图纸空间的视图与模型空间的视图一致

gosan

'如何实现图纸空间的视图与模型空间的视图一致，请高手赐教，帮我检查下面程序的错误
Sub k1()
Dim v1 As Variant
ThisDrawing.ActiveSpace = acModelSpace
v1 = ThisDrawing.ActiveViewport.Direction 'Direction 是视口的观察方向
ThisDrawing.ActiveSpace = acPaperSpace
ThisDrawing.MSpace = True
ThisDrawing.ActivePViewport.Direction = v1
End Sub

mccad

在
ThisDrawing.ActiveSpace = acModelSpace
前加上一句
ThisDrawing.ActiveSpace = acPaperSpace
呵呵，道理也搞不清

gosan

谢谢,要的就是这种结果