使用命名视图

显示图形界限和范围

控制“图形”窗口

使用平铺视口

使用命名视图

可以命名和保存要重复使用的视图。如果不再需要该视图，可以删除它。

要创建新视图，请使用 Add 方法将新视图添加到 Views 集合中。保存图形时，会同时保存视图的查看位置和比例。

可以在创建视图时命名该视图。视图的名称最多可包含 255 个字符，包含字母、数字和特殊字符美元符号 ($)、连字符 (-) 和下划线 (_)。

要删除命名视图，只需使用 Delete 方法即可。View 对象的 Delete 方法位于 View 对象，而不是它的父对象。

添加 View 对象

下面的样例添加了 View 对象 (viewObj)。

Sub Ch3_AddView()

    ' 将命名视图添加到 Views 集合

    Dim viewObj As AcadView

    Set viewObj = ThisDrawing.Views.Add("View1")

End Sub

删除 View 对象

下面的样例删除了 View 对象 (viewObj)。

Sub Ch3_DeleteView()

    Dim viewObj As AcadView

    Set viewObj = ThisDrawing.Views("View1")

   ' 删除视图

    viewObj.Delete

End Sub

从 Views 集合中删除命名视图

本例从 Views 集合中删除命名视图。

Sub Ch3_DeleteViewFromCollection()

   ThisDrawing.Views("View1").Delete

End Sub