Sub Example_SetDatabase()
    'Следующий код сохраняет цвет и установки типа линии текущего слоя.
    'Он использует метод SetDatabase, чтобы связать базу данных текущего
    'рисунка с объектом LayerStateManager. 

    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