---

Moin !

in LISP kann man über initget relativ einfach Keywords definieren um den weiteren Funktionsablauf zu beeinflussen. Diese können auch über die rechtes Maustaste aufgerufen werden.

Kann man das auch in VBA und wenn wie ?

Gruß Jan :-)

------------------
jan :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jan,

zum Lisp-Befehl kann ich wegen nichtvorhandener Lisp-Kenntnisse leider nicht sagen.
Wenn du aber wissen willst wie man ein VBA-Programm über die rechte Maustaste steuern kann dann schau dir den nachfolgenden Code mal an. Über die Buchstaben kann der Anwender auswählen was gezeichnet werden soll und das Programm verzweigt anschließend in die entsprechenden Unterprogramme.

Eingabefehler = True
Do
  ThisDrawing.Utility.Prompt Chr(13)
  Geltyp = ThisDrawing.Utility.GetString(False, "Füllstab-, Holm- oder Kurzpfostengeländer [F/H/K]:")
  Select Case Geltyp
    Case "f", "F", "h", "H", "k", "K"
      Eingabefehler = False
      Case Else
      dummy = MsgBox("Bitte F = Füllstab oder H = Holmgeländer oder K = Kurzpfostengeländer eingeben!", vbOKCancel + vbCritical, "Eingabefehler")
          If dummy = vbCancel Then
            ThisDrawing.Regen True
            End
          End If
    End Select
Loop Until Eingabefehler = False

Ich hoffe ich hab deine Frage richtig verstanden.

Gruß Sarotti

------------------
AutoCad 2014 64Bit
Windows 8-64Bit mit 8 GByte
Windows 7-64Bit mit 8 GByte

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP