---

Hallo Rabbit,
eine Lösung nicht, aber eine Frage? Wozu brauchst Du ein "doppeltes ESC", soll das für unentschlossene User sein, die ausversehen ESC drücken? Ich bin der Meinung, wer ESC drückt muß auch damit rechnen, das ein Programm abgebrochen wird. Aber vielleicht hat das bei Dir ja auch einen ganz anderen Hintergrund.

Das der zweite *error*-Aufruf nicht funktioniert liegt meiner Meinung daran, daß Du Dich dann bereits in der *error*-Funktion befindest.

------------------
viele Grüße

Jörn

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

---

Hallo Rabbit,
villeicht solltest Du in 2 While-Schleifen arbeiten, folgender Code ist nur ein Gedankeansatz.

Code:

---

(defun c:test ( / )
  (setq zaehler 1)
  (while(/=(setq blockname (getstring "\nBitte Blockname:"))"")
    (while (setq pkt (getpoint "\nBitte Einfügepunkt (ENTER=neuer Blockname)"))
      (command ".insert" blockname pkt ...)
      (setq zaehler (+ zaehler 1)))))

---

------------------
viele Grüße

Jörn

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

---

Es gibt doch jetzt in LISP die Fehlerbehandlung ! (vl-catch-all-apply)
Da kannst Du im Lisp schon fehler abfangen !

(setq suc (vl-catch-all-apply 'getpoint ))
(cond
  ((vl-catch-all-error-p suc)  (print "Escape gedrückt oder sonstiger Abbruch"))
  ((= (type suc) 'LIST)        (print "Punkt gewählt"))
  ((not  suc)                  (print  "rechte Maustatse"))
); cond

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Allerdings fällt mir gerade ein, würde ich das sowieso mit (INITGET) steuern

z.B.:
  (initget "B N")
  (setq pkt (vl-catch-all-apply 'getpoint (list "Punkt wählen / [B]locknamen ändern / [N]ummer ändern :" ))
  (cond
        ((vl-catch-all-error-p pkt)  (print "Escape gedrückt oder sonstiger Abbruch z.B.:falscher Buchstabe"))
        ((= (type pkt) 'LIST)        (print "Punkt gewählt"))
        ((= pkt "B")                (print "B Eingabe"))
        ((= pkt "N")                (print "N Eingabe"))
        ((not  pkt)                  (print  "rechte Maustatse"))
  ); cond

[Diese Nachricht wurde von fuchsi am 31. Jul. 2007 editiert.]

[Diese Nachricht wurde von fuchsi am 31. Jul. 2007 editiert.]

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