概要 - 画層をロック、ロック解除する(VBA/ActiveX)

ロックされた画層上のオブジェクトの編集はできません。しかし、その画層が表示に設定され、フリーズ解除されている場合は表示されます。

ロックされた画層を現在の画層にすると、そこにオブジェクトを追加できます。ロックされた画層は、フリーズおよびフリーズ解除でき、画層に割り当てられた色と線種を変更することもできます。

画層のロック/ロック解除には、Lock プロパティを使用します。このプロパティに TRUE を入力すると、その画層はロックされます。FALSE を入力すると、その画層はロック解除されます。

画層をロックする

次の例は、"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