---

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

---

wie unterbricht denn der USER ? mit ESC ? .. da hilft bloß catchen via ActivX.
Oder du nimmst statt ner Repeat ne While-schleife
so ähnlich

(setq NR 0 Abbruch nil)
(while (and (not ABBRUCH) (< NR 14))
....
  (setq NR(1+ NR))
  (initget "Ja Nein")
  (setq ABBRUCH (= "Ja"(getkword "\nAbbruch [Ja / Nein]<Nein>:")))
)

------------------
  - 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

---

Du könntest auch mit vl-catch-all-apply arbeiten. So in der Art:

Code:

---

(and
  (setq p1 (vl-catch-all-apply 'getpoint '("P1:")))
  (not (vl-catch-all-error-p p1))
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

01.txt 02.txt

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

---

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

---

 

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

---

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

---

(initget "Ja Nein Abbruch")
(setq RESULT(getkword "\nSoll hier ein Kreis hin? [Ja / Nein / Abbruch] <Ja>: "))
(setq Abbruch? (= RESULT "Abbruch")

------------------
  - 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

---

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