关于冻结和解冻图层 （VBA/ActiveX）

冻结图层

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

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

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