概要 - 画層をアクティブにする(VBA/ActiveX)

図形は常にアクティブな画層上に描かれます。

画層をアクティブにすると、新規オブジェクトをその画層上に作成することができます。別の画層をアクティブにすると、作成する新規オブジェクトは新たにアクティブにした画層上に描かれ、その色と線種が使用されます。フリーズした画層は、アクティブにできません。

画層をアクティブにするには、ActiveLayer プロパティを使用します。このプロパティは、現在の図面上で設定します。例:

Dim newlayer As AcadLayer
Set newlayer = ThisDrawing.Layers.Add("LAYER1")
ThisDrawing.ActiveLayer = newlayer