关于激活图层 （VBA/ActiveX）

您始终在活动图层上绘图。

激活图层后，可以在该图层上创建新对象。如果将其他图层设置为活动状态，则将在该新活动图层上创建任何新对象，并使用其颜色和线型。如果图层处于冻结状态，则无法将其设置为活动状态。

要使图层处于活动状态，请使用该属性。此属性是在当前图形上设置的。例如：ActiveLayer

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