用户不能编辑锁定图层上的对象，但如果图层是打开和解冻的，这些对象仍然可见。可以将锁定图层置为当前并在其上添加对象。可以冻结和关闭锁定图层，也可以更改其关联的颜色和线型。
要锁定或解锁图层，请使用 Lock 特性。如果为此特性输入 TRUE，将锁定图层；如果输入 FALSE，将解锁图层。
锁定图层
本例创建一个称为“ABC”的新图层，然后锁定该图层。
Sub Ch4_LayerLock()
' 创建新图层“ABC”
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("ABC")
' 锁定图层“ABC”
layerObj.Lock = True
End Sub
