概要 - 画層をフリーズ、フリーズ解する(VBA/ActiveX)

画層をフリーズすると、表示の更新速度を速くし、オブジェクトの選択処理を向上し、複雑な図面の再描画時間を短縮できます。

フリーズした画層上のオブジェクトは表示、印刷、または再作図されません。長期にわたって非表示にしたい画層は、フリーズします。画層を「フリーズ解除」すると、AutoCAD はその画層上のオブジェクトを再描画して表示します。

画層をフリーズしたりフリーズ解除するには、Freeze プロパティを使用します。このプロパティに TRUE を入力すると、画層はフリーズされます。FALSE を入力すると、画層はフリーズ解除されます。

画層をフリーズする

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