Sub Example_RestoreLayerSettings()
    'Следующий код восстанавливает цвет и установки типа линии, 
    'которые были сохранены как "ColorLineType."
	
    Dim oLSM As AcadLayerStateManager
	
    Set oLSM = ThisDrawing.Application. _
       GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")
    oLSM.SetDatabase ThisDrawing.Database
    oLSM.Restore "ColorLinetype"

End Sub