Sub Example_Used()
    'Этот пример обеспечивает информацию использования для слоев в рисунке
    Dim MyLayers As IAcadLayers2
    Set MyLayers = ThisDrawing.Layers
    MyLayers.GenerateUsageData
    Dim MyLayerObj As IAcadLayer2
    For Each MyLayerObj In ThisDrawing.Layers
      MyLayerObj.Description = "Test"
      MsgBox (MyLayerObj.Used)
    Next MyLayerObj
End Sub