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