---

Hallo,

wie kann ich die Befehlsauswahl auslesen , auswählen bzw. steuern ?

(vle-alert "Daten" "bearbeiten" (+ 35)) ;; Abfrage // Fragezeichen // Ja-Nein-Abbrechen

    wenn Ja > dann ?
    wenn nein > dann ?
    wenn Abbrechen > dann ?
    wenn ( X oben rechts ) > dann ?

Es sollen jeweils mehrere Befehle abgearbeitet werden.

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

---

Auszug aus der Datei vle-extension.lsp die im Lisp Developer Support Package, welches du im BRICSYS Applikationskatalog downloaden lannst, enthalten ist.

Code:

---

;;================================================================================
;;| FUNCTION : vle-alert                                                        |
;;|------------------------------------------------------------------------------|
;;| Author: Lee Mac, Copyright © 2012 - www.lee-mac.com                          |
;;|------------------------------------------------------------------------------|
;;| Original code: http://lee-mac.com/popup.html                                |
;;|------------------------------------------------------------------------------|
;;| (vle-alert title msg flags)                                                  |
;;|                                                                              |
;;| shows a message box, which can be customised in wide range (based on Windows |
;;| ::MessageBox() function)                                                    |
;;|                                                                              |
;;| Arguments : 'title' title for the message box (the caption string)          |
;;|          : 'msg'  the message to be displayed; will be word-wrapped        |
;;|          : 'flags' combination (addition) of integers specifying behaviour  |
;;|                                                                              |
;;|          : flags for button :                                              |
;;|                MB_OK                          0                              |
;;|                MB_OKCANCEL                    1                              |
;;|                MB_ABORTRETRYIGNORE            2                              |
;;|                MB_YESNOCANCEL                3                              |
;;|                MB_YESNO                      4                              |
;;|                MB_RETRYCANCEL                5                              |
;;|                MB_CANCELTRYCONTINUE          6                              |
;;|                MB_HELP                    16384                              |
;;|                                                                              |
;;|          : flags for icons :                                                |
;;|                MB_ICONHAND / MB_ICONSTOP            16                      |
;;|                MB_ICONQUESTION                      32                      |
;;|                MB_ICONEXCLAMATION                  48                      |
;;|                MB_ICONASTERISK /MB_ICONINFORMATION  64                      |
;;|                                                                              |
;;|          : flags for default button (for <return> input) :                  |
;;|                MB_DEFBUTTON1                  0                              |
;;|                MB_DEFBUTTON2                256                              |
;;|                MB_DEFBUTTON3                512                              |
;;|                MB_DEFBUTTON4                768                              |
;;|                                                                              |
;;|          : flags for behaviour :                                            |
;;|                MB_APPLMODAL                  0                              |
;;|                MB_SYSTEMMODAL              4096                              |
;;|                MB_TASKMODAL                8192                              |
;;|                                                                              |
;;|                MB_SETFOREGROUND          65536                              |
;;|                MB_DEFAULT_DESKTOP_ONLY  131072                              |
;;|                                                                              |
;;|                MB_TOPMOST                262144                              |
;;|                MB_RIGHT                  524288                              |
;;|                MB_RTLREADING            1048576                              |
;;|                                                                              |
;;| Return    :  number of button which was used to finish the dialogue          |
;;|              1  OK button                                                  |
;;|              2  Cancel button                                              |
;;|              3  Abort button                                                |
;;|              4  Retry button                                                |
;;|              5  Ignore button                                              |
;;|              6  Yes button                                                  |
;;|              7  No button                                                  |
;;|              10  Try Again button                                            |
;;|              11  Continue button                                            |
;;|                                                                              |
;;| Example  :  (vle-alert "My CAD App" "Dear Customer ...." (+ 4 32 4096))    |
;;|    will show Yes+No button, the question mark icon, as system modal dialogue |
;;================================================================================

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo und Danke,
aber das hab ich schon gefunden. Ich suche den Befehl für die Rückgabewerte.

    wenn Ja > dann ?
    wenn nein > dann ?
    wenn Abbrechen > dann ?
    wenn ( X oben rechts ) > dann ?

Wenn ich das mit DOS programmieren würde dann so: ( nur zum besseren Verständnis )

    set "a="
    set /p a= (J)a -- (n)ein -- (A)bbrechen
    if %a%==J GOTO JA
    if %a%==J GOTO NEIN
    if %a%==J GOTO ABBRECHEN
    GOTO ENDE

    :JA
      call Befehl-J1
      call Befehl-J1
      call Befehl-J1
    GOTO ENDE

    :NEIN
      call Befehl-N1
      call Befehl-N2
      call Befehl-N3
    GOTO ENDE

    :ABBRECHEN
      call Befehl-A1
      call Befehl-A2
      call Befehl-A3

    :ENDE

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

---

Ok, dann hat die Frage nichts mit vla-alert zutun, sondern ist grundsätzlicher Natur: Prüfen/Entscheiden.
Die Rückgabe kannst du mit IF oder COND verarbeiten, wenn es das ist was du suchst.

IF

COND

In dem Fall ist wohl cond eine gute Wahl.
(alert
(cond
   ((= what? 1) "cool")
   ((= what? 2) "sorry")
   ((= what? 10) "VegasBaby")
   (t "???")
)
)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

einfach mal lesen , verallgemeinern und anwenden ...

(setq RETURN(vle-alert "Die grosse Frage" "Willst du mit mir gehen?" (+3 32)))
(cond
  ((= RETURN 6) ;ja
    (MACHWAS_BEI_JA)
  )
  ((= RETURN 7) ;nein
    (MACHWAS_BEI_NEIN)
  )
    ((= RETURN 2) ;Cancel
    (MACHWAS_BEI_CANCEL)
  )
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo und ein großes Dankeschön an CADmium.

Genau das war die Lösung auf meine Frage.

Ist halt nicht immer so einfach was zu erklären ;(

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