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

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