Sub Example_Save()
    ' Следующий пример сохраняет текущий рисунок
    
    ThisDrawing.Save
    
End Sub

Sub Example_Save_LayerSettings()
    ' Следующий код сохраняет цвет и параметры настройки типа линии
    ' текущего слоя.

    Dim oLSM As AcadLayerStateManager

    ' Обратитесь к объекту LayerStateManager
    Set oLSM = ThisDrawing.Application. _
       GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")

    ' Свяжите базу данных текущего рисунка с LayerStateManager
    oLSM.SetDatabase ThisDrawing.Database
    oLSM.Save "ColorLinetype", acLsColor + acLsLineType

End Sub