Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    ' Этот пример перехватывает событие EndCommand.
    '
    ' Это событие вызвано, когда рисунок получает любую команду,
    ' совместимую с этим событием.
    '
    ' Чтобы вызвать это событие: Запустите любую команду из командной
    ' строки, VBA, меню ACAD, инструментальных панелей ACAD или LISP.
    ' Когда команда закончена, это событие будет вызвано.

    ' Используйте переменную "CommandName", чтобы определить имя завершённой команды
    MsgBox "Завершена команда " & CommandName

End Sub