关于使用命名视图 （VBA/ActiveX）

您可以命名和保存要重用的视图。当您不再需要该视图时，可以将其删除。

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

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

若要删除命名视图，只需使用方法。对象的方法在于对象，而不是其父对象。DeleteDeleteViewView

Sub Ch3_AddView()
  ' Add a named view to the views collection
  Dim viewObj As AcadView
  Set viewObj = ThisDrawing.Views.Add("View1")
End Sub

Sub Ch3_DeleteView()
  Dim viewObj As AcadView
  Set viewObj = ThisDrawing.Views("View1")
  ' Delete the view
  viewObj.Delete
End Sub

Sub Ch3_DeleteViewFromCollection()
  ThisDrawing.Views("View1").Delete
End Sub