用户总是在活动的图层上绘制图形。图层置为活动时，用户可以在该图层上创建新对象。如果将其他图层置为活动图层，所有新对象都将在新的活动图层上创建并且使用该图层的颜色和线型。如果图层被冻结，则不能将其置为活动。
要将图层置为活动，请使用 ActiveLayer 特性。此特性是设置在当前图形上的。例如：
Dim newlayer As AcadLayer
Set newlayer = ThisDrawing.Layers.Add("LAYER1")
ThisDrawing.ActiveLayer = newlayer
