Befehl: _circle Zentrum für Kreis angeben oder [3P/2P/Ttr (Tangente Tangente 
Radius)]:
Radius für Kreis angeben oder [Durchmesser]:
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u
Befehl:
Befehl:
Befehl: _u KREIS GRUPPE

'*******************************************************************
'************** bzw. so im Direktfenster via zB ********************

Option Explicit
Public i&
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
i = i + 1
If CommandName <> "U" Then i = 0
Debug.Print i & ": " & CommandName
End Sub

'*******************************************************************

0: CIRCLE
1: U
2: U
3: U
4: U
5: U
6: U
7: U
8: U
9: U
10: U
11: U
12: U
13: U
14: U
15: U
16: U
17: U
18: U
19: U
20: U
21: U
22: U
23: U
24: U
25: U
26: U
27: U
28: U
29: U <-- hier wird erst der Kreis wieder gelöscht, komischerweise ohne nähere Befehlsbezeichnung
im Gegensatz zur Befehlszeile, aber okay, das ist ein andres Thema ;-)