コレクションに新しいメンバーを追加するには、Add メソッドを使用します。
たとえば、次のコードでは、新しい画層を作成し、Layers コレクションに追加します。
Dim newLayer as AcadLayer Set newLayer = ThisDrawing.Layers.Add("MyNewLayer")