Private Sub AcadDocument_EndSave(ByVal FileName As String)
    ' Этот пример перехватывает событие EndSave.
    '
    ' Это событие вызвано, когда рисунок заканчивает сохранение.
    '
    ' Чтобы вызвать это событие: Сохраните открытый рисунок, и ждите завершение сохранения

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