懒猫窝窝

本样例说明如何将 AutoCAD 切换到图纸空间、创建浮动视口、设置视图以及启用视口。

Sub Ch9_SwitchToPaperSpace()
   ' 将活动空间设置为图纸空间
    ThisDrawing.ActiveSpace = acPaperSpace   
   ' 创建图纸空间视口
    Dim newVport As AcadPViewport
    Dim center(0 To 2) As Double
    center(0) = 3.25
    center(1) = 3
    center(2) = 0
    Set newVport = ThisDrawing.PaperSpace. _
                              AddPViewport(center, 6, 5)   
   ' 修改视口的观察方向
    Dim viewDir(0 To 2) As Double
    viewDir(0) = 1
    viewDir(1) = 1
    viewDir(2) = 1
    newVport.direction = viewDir  
   ' 启用视口
    newVport.Display True  
   ' 切换到模型空间
    ThisDrawing.MSpace = True 
   ' 将 newVport 置为当前
   ' （并非始终需要，但建议如此）
    ThisDrawing.ActivePViewport = newVport
   ' 在模型空间中进行范围缩放
    ZoomExtents    
   ' 关闭模型空间编辑
    ThisDrawing.MSpace = False    
    ' 在图纸空间中进行范围缩放
    ZoomExtents
End Sub

上述代码中的步骤顺序非常重要。一般来讲，步骤的顺序必须与它们在 AutoCAD 命令行中的执行顺序相同。唯一不能预期的操作是定义视图和启用视口。 

注意  要设置或修改视图的特性（观察方向、镜头长度等），必须将 Viewport 对象的 Display 方法设置为关闭 (FALSE)；并且，在将某个视口设置为当前视口之前，必须将 Display 方法设置为打开 (TRUE)。