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

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