关于激活图层 （VBA/ActiveX）

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

激活图层后，可以在该图层上创建新对象。如果激活其他图层，则创建的任何新对象都将在该新的活动图层上创建，并使用其颜色和线型。如果图层被冻结，则无法将其激活。

要激活图层，请使用该属性。此属性在当前图形上设置。例如：ActiveLayer

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