大部分的集合对象都是通过 Document 对象访问的。对于每一个集合对象,Document 对象都包含一个相应的特性。例如,以下代码定义一个变量,并将其设置为当前图形的 Layers 集合:
Dim layerCollection as AcadLayers
Set layerCollection = ThisDrawing.Layers
Documents、MenuBar 和 MenuGroups 集合都可以通过 Application 对象来访问。对于这些集合,Application 对象都包含相应的特性。例如,以下代码定义一个变量,并将其设置为应用程序的 MenuGroups 集合:
Dim MenuGroupsCollection as AcadMenuGroups
Set MenuGroupsCollection = ThisDrawing.Application.MenuGroups