---

hi!

(WHILE (SETQ obj (CAR (ENTSEL "\nText/Block wählen: ")))
  .....
) ;ende while

wie komme ich aus dieser schleife auch mit esc raus?

ciao
georg

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

---

Gar nicht. [ESC] löst einen Abbruch aus. Setze doch die Bedingung so, dass du keinen Abbruch brauchst. Du kannst ja dem (entsel ..) auch ein Initget mit Keywörtern voranstellen, und hinterher die Rückgabe von (entsel..)testen.
also in etwa so:
(while (/= antw "Nein")
(initget "Ja Nein")
(setq antw(entsel "\nWeitere Objekte wählen? [Ja/Nein]<Nein>:"))
(if (not antw)(setq antw "Nein"))
(if (= 'ENAME (type antw))
(setq obj (car antw))
)
)

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Mein Vorschlag war doch nicht so gut. Hab Ihn gelöscht.

[Diese Nachricht wurde von mkl-cad am 25. Mrz. 2004 editiert.]

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

---

hallo holger!

danke für dein beispiel.
hab's jetzt nochmal mit read-char probiert und evtl. das zeichen 27 [ESC]auszulesen, hatte aber leider auch keinen erfolg (ebenfalls abbruch).

hintergrund ist, dass ich vor der while-schleife eine sysvar umstelle und nach einem eventuellen abbruch mit esc gerne wieder den ursprünglichen stand hätte. evtl. gib's ja noch eine andere lösung....

ciao georg

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

---

Hallo Georg,

dafür gibt es die *error* Funktion, die das dann macht.
Schau mal dort -> http://ww3.cad.de/foren/ubb/Forum145/HTML/000435.shtml

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Tag zusammen.

Zitat:

---

Original erstellt von gmk:
(WHILE (SETQ obj (CAR (ENTSEL "\nText/Block wählen: ")))
  .....
) ;ende while

wie komme ich aus dieser schleife auch mit esc raus?

---

Mit Unterdrückung des Fehlers. Siehe hierzu:

http://www.industrie24.com/bbs/read.php?f=5&i=3878&t=3873

Da habe ich die beiden Funktionen :excep-catch und :supressExcept vorgestellt. Mit letzterer kann die while-Bedingung dann so aussehen:

Code:

---

(while (setq obj (car(:supressExcept'(ENTSEL "\nText/Block wählen: "))))
  ...
); end WHILE-LOOP

(if (not obj)
  (beende-die-funktion-wie-gewuenscht ..)
)

---

Achim Dabrunz

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

---

hallo holger und achim!

vielen dank für eure links.

habe mich für den tipp von achim entschieden (funkt 1a!), da ich in der while-schleife noch eine funktion mit esc abbrechen möchte.

ciao georg

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

---

Warum machst Du es nicht so, dann kann man mit RETURN oder mit ESC aus der Schleife raus:

(while (and (setq ents (entsel "\nText/Block wählen <Abbruch>: "))
    (setq obj (car ents))
      )
  ...
)

------------------
Axel

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