| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Schleife schöner unterbrechen bzw. beenden (2338 mal gelesen)
|
richycad Mitglied
Beiträge: 33 Registriert: 01.10.2010 AutoCAD 2015 Windows 7 Enterprise 64-bit HP ZBook 17 G3 Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz, 2601 MHz, 4 Kern(e), 8 logische(r) Prozessor(en) Memory: 8192MB RAM Card name: NVIDIA Quadro M3000M
|
erstellt am: 10. Mrz. 2011 15:22 <-- editieren / zitieren --> Unities abgeben:
Hallo, komme mal nicht weiter. Wie kann man eine Repeat Schleife "schöner" unterbrechen bzw. zu ende bringen. Die Schleife wird 14 Mal ausgeführt, soll aber durch User nach z.B 5 Mal unterbrochen werden können, weil er damit zufrieden ist. Danach soll die Routine weiter laufen. Danke Richy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 10. Mrz. 2011 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 10. Mrz. 2011 16:40 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
|
richycad Mitglied
Beiträge: 33 Registriert: 01.10.2010 AutoCAD 2015 Windows 7 Enterprise 64-bit HP ZBook 17 G3 Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz, 2601 MHz, 4 Kern(e), 8 logische(r) Prozessor(en) Memory: 8192MB RAM Card name: NVIDIA Quadro M3000M
|
erstellt am: 10. Mrz. 2011 16:42 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, habe es nicht mit WHILE ganz hinbekommen. Es klemmt irgendwo. Ich habe 2 codes hochgeladen mit REPEAT (einmal mit COND). Der User soll die Möglichkeit vorher sauber abbrechen zu können wenn er mit z.B mit der 5. Schleife zufrieden ist - und dann soll das programm weiter laufen. Danke und Gruß Richy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neurosis Mitglied dipl.ing.
Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 10. Mrz. 2011 16:55 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
hallo richy, so wuerde dein code mit cadmiums code ausschauen: (setq button_nr 0 Abbruch nil) (while (and (not ABBRUCH) (< button_nr 14)) (command "_circle" (eval (read (strcat "button" (itoa (setq button_nr (1+ button_nr)))))) "d" 34.5) ;;liest variabel "button<x>" und zeichnet kreis dort hin (initget (+ 2 4) "J N") (setq eingabe (getkword "\nSoll hier ein Kreis hin? (J)a oder (N)ein <J>: ")) (if (= eingabe nil) (setq eingabe "J")) (cond ;;Fallunterscheidung ((= eingabe "N") (progn (command "_erase" "L" "") ) ) ((= eingabe "J") (progn ;;Haltestellenbezeichnung holen und zeigen (initget (+ 128));;hat vorrang über KEINE eingabe (setq bez (getkword (strcat "\nBezeichnung der Haltestelle?: ")));;variabel bez - getstring T leertaste erlaubt (command "-layer" "SE" "0" "") (command "text" "S" "standard" "P" "MI" (eval (read (strcat "button" (itoa button_nr )))) "10" "0" bez );;end command ) ) );;end cond (initget "Ja Nein") (setq ABBRUCH (= "Ja"(getkword "\nAbbruch [Ja / Nein]<Nein>:"))) );;end while gruss marco ------------------ Marco Heuer www.arc-aachen.de Airport Office Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
archtools Mitglied
Beiträge: 965 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 10. Mrz. 2011 20:14 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
Zitat: Original erstellt von richycad: Hallo, komme mal nicht weiter. Wie kann man eine Repeat Schleife "schöner" unterbrechen bzw. zu ende bringen. Die Schleife wird 14 Mal ausgeführt, soll aber durch User nach z.B 5 Mal unterbrochen werden können, weil er damit zufrieden ist. Danach soll die Routine weiter laufen.Danke Richy
Zuerst mal ist in diesem Fall die REPEAT-Schleife definitiv die falsche Wahl für Dich. Die ist für eine fest vorgegebene Anzahl von Durchläufen vorgesehen. Punkt. Wenn Du Deine Schleife also beispielsweise durch eine WHILE-Schleife ersetzt und dazu sinnvollerweise einen Zähler mitlaufen lässt, kannst Du bei jedem gewünschten Zählerstand eine Abfrage einfügen, ob der Anwender die Schleife witer arbeiten lassen will. Cadmium hat Dir ja die Lösung schon gezeigt. Programmieren besteht ganz hauptsächlich darin, für die Lösung eines Problems möglichst problemgerechte Programmstrukturen zu finden. Es macht keinen Sinn, auf Biegen und Brechen an einer REPEAT-Struktur festhalten zu wollen, nur weil man damit mehr Übung hat. [Diese Nachricht wurde von archtools am 10. Mrz. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
richycad Mitglied
Beiträge: 33 Registriert: 01.10.2010 AutoCAD 2015 Windows 7 Enterprise 64-bit HP ZBook 17 G3 Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz, 2601 MHz, 4 Kern(e), 8 logische(r) Prozessor(en) Memory: 8192MB RAM Card name: NVIDIA Quadro M3000M
|
erstellt am: 11. Mrz. 2011 19:16 <-- editieren / zitieren --> Unities abgeben:
Danke an allen. Ich sehe ein das die WHILE Schleife für meinem Fall besser ist. Ich habe das Beispiel von CADmium benutzt und danke auch für die Vorarbeit von neurosis. Wäre es auch möglich die Option schon mit der Abfrage (getkword "\nSoll hier ein Kreis hin? (J)a oder (N)ein <J>: ") einzubauen. Also Kreis JA oder NEIN oder ABBRUCH? Anstatt zu warten bis eine getrennte Abfrage für ABBRUCH kommt. Besten Dank nochmals Richy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 11. Mrz. 2011 20:53 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
|
richycad Mitglied
Beiträge: 33 Registriert: 01.10.2010 AutoCAD 2015 Windows 7 Enterprise 64-bit HP ZBook 17 G3 Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz, 2601 MHz, 4 Kern(e), 8 logische(r) Prozessor(en) Memory: 8192MB RAM Card name: NVIDIA Quadro M3000M
|
erstellt am: 14. Mrz. 2011 15:15 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: (initget "Ja Nein Abbruch") (setq RESULT(getkword "\nSoll hier ein Kreis hin? [Ja / Nein / Abbruch] <Ja>: ")) (setq Abbruch? (= RESULT "Abbruch")
Danke Thomas, hier mein Ergebnis. (command "_ucsicon" "_no");;bks KEIN Ursprung (setq button1 (list 0 0) button2 (list 42 0) button3 (list 0 42) button4 (list 42 42) button5 (list 0 84) button6 (list 42 84) button7 (list 0 126) button8 (list 42 126) button9 (list 0 168) button10 (list 42 168) button11 (list 0 210) button12 (list 42 210) button13 (list 0 252) button14 (list 42 252) );;end setq (command "zoom" "-50,-30" "85,285") (setq button_nr 0) (while (and (not abbruch) (< button_nr 14)) (command "_circle" (eval (read (strcat "button" (itoa (setq button_nr (1+ button_nr)))))) "d" 34.5) ;;liest variabel "button<x>" und zeichnet kreis dort hin (initget "Ja Nein Beenden") (setq eingabe (getkword "\nSoll hier ein Kreis hin oder Auswahl beenden? [Ja/Nein/Beenden] <J>: ")) (if (= eingabe nil) (setq eingabe "Ja")) (cond ;;Fallunterscheidung ((= eingabe "Nein") (progn (command "_erase" "L" "") ) ) ((= eingabe "Ja") (progn ;;Haltestellenbezeichnung holen und zeigen (initget (+ 128));;hat vorrang über KEINE eingabe (setq bez (getkword (strcat "\nBezeichnung der Haltestelle?: ")));;variabel bez - getstring T leertaste erlaubt (command "-layer" "SE" "0" "") (command "text" "S" "standard" "P" "MI" (eval (read (strcat "button" (itoa button_nr )))) "10" "0" bez );;end command ) ) ((= eingabe "Beenden") (progn (setq abbruch (= eingabe)) (command "_erase" "L" "") ) ) );;end cond );;end while (alert "ENDE") Gruss Richy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |