Mir scheint, dass Autocad (oder LISP??) hier irgendwie auf eine (zusätzliche?) Eingabe wartet...
Ich kann mir das allerdings nicht erklären, da wie gesagt der Aufruf über den VBA-Editor und die Befehlszeile problemlos funktioniert, nur eben beim LISP-Aufruf bleibt das Programm beim "GetEntity"-Aufruf stecken!
Mir bleibt dann nur die Möglichkeit, AutoCAD zu killen und neu zu starten, da die Zeichnungsfläche "abstürzt". Über den Symbolleisten ist die Maus allerdings sichtbar - es kann aber nichts ausgewählt werden.

Ach ja, ich verwende AutoCAD 2011!

Frage: Ist das Problem bekannt? Wie könnte man es lösen?

Hier noch der betreffende Programmcode, mit dem ich die Userform ausblende und die Objekte auswählen kann:

Code:

---

Private Sub cmd_Auswahl_Click()
    Dim obj As AcadEntity
    Dim Punkt As Variant
    Dim iKeyCode
    Dim i As Long                                          'Zähler
    Dim Blockattribute As Variant                  'Attribute des Vermessungsblockes
    Dim Blockattribut As AcadAttributeReference    'Einzelnes Attribut des Vermessungsblockes
    Dim PktNummer As Integer

TH_NeunummVerPunkt.Hide
PktNummer = cbxStartwert.Value - 1

Do
    On Local Error Resume Next
   
    ThisDrawing.Utility.GetEntity obj, Punkt, "Vermessungspunkt wählen: "
    iKeyCode = GetAsyncKeyState(&H1B)  ' gleich mal abfragen, ob ESC noch gedrückt ist !

    If Err.Number <> 0 Then
        Err.Clear
        If (iKeyCode And &H1B) = 1 Then
            'MsgBox "ESC"
            TH_NeunummVerPunkt.Show
            Exit Do
        Else
            ThisDrawing.Utility.Prompt ("Keine Auswahl! Bitte Vermessungspunkt wählen..." & vbCrLf)
        End If
    Else
        'MsgBox "Eigentlich müsste was gewähllt worden sein"
        If TypeName(obj) = "IAcadBlockReference" Or TypeName(obj) = "IAcadBlockReference2" And obj.Name = "GDS1" Then
               
                PktNummer = PktNummer + 1
                If PktNummer > PktNummerMax Then
                    Call MsgBox("Maximale Punktnummer für aktuelle Station erreicht! => " & PktNummerMax & vbCrLf & "Funktion wird abgebrochen!", vbCritical)
                    TH_NeunummVerPunkt.Show
                    Exit Do
                End If
               
               
                'Attributwert "BEZ" setzen
                Blockattribute = obj.GetAttributes
                For i = 0 To UBound(Blockattribute)
                    Set Blockattribut = Blockattribute(i)
                    If Blockattribut.TagString = "BEZ" Then Blockattribut.TextString = PktNummer
                Next
                obj.Update
        Else
            ThisDrawing.Utility.Prompt (vbCrLf & "Objekt ist kein Vermessungspunkt!" & vbCrLf)
        End If
    End If
Loop

End Sub

---