关于锁定和解锁图层 （VBA/ActiveX）

锁定图层

本示例创建一个名为“ABC”的新图层，然后锁定该图层。

Sub Ch4_LayerLock()
  ' Create a new layer called "ABC"
  Dim layerObj As AcadLayer
  Set layerObj = ThisDrawing.Layers.Add("ABC")

  ' Lock layer "ABC"
  layerObj.Lock = True
End Sub