| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: vle-alert - Steuerung (1289 / mal gelesen)
|
FireBuff Mitglied EDV Admin , GIS Verantw.
Beiträge: 57 Registriert: 01.08.2013 BricsCad
|
erstellt am: 27. Sep. 2017 13:25 <-- editieren / zitieren --> Unities abgeben:
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 |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 27. Sep. 2017 14:42 <-- editieren / zitieren --> Unities abgeben: Nur für FireBuff
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 |
FireBuff Mitglied EDV Admin , GIS Verantw.
Beiträge: 57 Registriert: 01.08.2013 BricsCad
|
erstellt am: 28. Sep. 2017 10:54 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 28. Sep. 2017 11:08 <-- editieren / zitieren --> Unities abgeben: Nur für FireBuff
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 28. Sep. 2017 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für FireBuff
|
FireBuff Mitglied EDV Admin , GIS Verantw.
Beiträge: 57 Registriert: 01.08.2013 BricsCad
|
erstellt am: 28. Sep. 2017 14:35 <-- editieren / zitieren --> Unities abgeben:
|