概要 - 画層設定を復元する(VBA/ActiveX)

Restore メソッドは、現在の図面内のすべての画層設定を以前に保存した値に戻します。

現在の図面の画層の色と線種の設定が、"ColorLinetype" という名前で以前に保存されていたとします。次のコードは、図面の画層の色と線種の設定を、"ColorLinetype" に保存したときの値に復元します。"ColorLinetype" を保存した後に新しい画層を追加した場合、新しい画層は "ColorLinetype" を復元しても影響を受けません。

図面の画層の色と線種の設定を復元する

現在の図面の画層の色と線種の設定が、"ColorLinetype" という名前で以前に保存されていたとします。次のコードは、図面の画層の色と線種の設定を、"ColorLinetype" を保存したときの値に復元します。

Sub Ch4_RestoreLayerSettings()
  Dim oLSM As AcadLayerStateManager
  Set oLSM = ThisDrawing.Application. _
    GetInterfaceObject("AutoCAD.AcadLayerStateManager.20")
  
  oLSM.SetDatabase ThisDrawing.Database
  oLSM.Restore "ColorLinetype"
End Sub