保存图层设置
使用 LayerStateManager 管理图层设置
输出和输入保存的图层设置
Restore 方法用于将当前图形的所有图层设置重置为以前保存的设置。例如，如果将图形的颜色和线型设置保存在名称“ColorLinetype”下，然后又更改了这些设置，则恢复“ColorLinetype”会将图层的颜色和线型重置为保存“ColorLinetype”时图层的颜色和线型。如果在保存“ColorLinetype”之后又将新图层添加到图形中，则在恢复“ColorLinetype”时，这些新图层将不受影响。”时将不会影响这些新图层。
假设当前图形中图层的颜色和线型设置先前被保存在名称“ColorLinetype”下，以下代码将把图形中每个图层的颜色和线型都重置为保存“ColorLinetype”时这些设置具有的值。
Sub Ch4_RestoreLayerSettings()
Dim oLSM As AcadLayerStateManager
Set oLSM = ThisDrawing.Application. _
GetInterfaceObject("AutoCAD.AcadLayerStateManager.17")
oLSM.SetDatabase ThisDrawing.Database
oLSM.Restore "ColorLinetype"
End Sub