Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
    ' Этот пример перехватывает событие ObjectErased.
    '
    ' Это событие вызвано, когда объект удален из рисунка.
    '
    ' Чтобы вызвать это событие: Удалите (Вырежьте) существующий объект из открытого рисунка

    ' Используйте переменную "ObjectID", чтобы определить тип удаленного объекта
    MsgBox "Идентификатор удаленного объекта: " & ObjectID

End Sub