关于向集合对象添加新成员 （VBA/ActiveX）

若要向集合添加新成员，请使用该方法。Add

例如，以下代码创建一个新层并将其添加到 Layers 集合中：

Dim newLayer as AcadLayer
Set newLayer = ThisDrawing.Layers.Add("MyNewLayer")