---

Hallo,
ich schreibe gerade ein Programm mit AutoLisp. Es geht darum, Kreis oder Linie wählen, falls weder Linie noch Kreis gewählt wurde oder Eingabebefehl abgebrochen wurde, eine Mitteilung zeigen.
Mein Programm funktioniert, aber die Mitteilung  wird nicht gezeigt. Kann mir vielleicht jemand sagen was ich falsch mache?
Hier ist Ausschnitt:

(defun c:aufgabe7()

  (setq elem (car(entsel "\nBitte Linie oder Kreis waehlen ")))

  (if elem

    (progn
(setq e_liste (entget elem)
      typ (cdr(assoc 0 e_liste))
      )
      (cond
((= typ "LINE") (up_line e_liste))
((= typ "CIRCLE") (up_circle e_liste))
(T (print "Kein Objekt gewaehlt"))
);end cond
      );end progn

    );end if
  (princ)
  )

Vielen Dank!

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

---

Habe schon gelöst   . Danke!

[Diese Nachricht wurde von sharipova am 17. Jul. 2013 editiert.]

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

---

ich wuerde vielleicht noch while vornanstellen, dann brauchst du im Falle du triffst bei der Auswahl nicht richtig ,die Funktion neu aufrufen.

Code:

---

(while (not (setq elem (car(entsel "\nBitte Linie oder Kreis waehlen ")))))

---

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Zitat:

---

Original erstellt von cadplayer:
ich wuerde vielleicht noch while vornanstellen, dann brauchst du im Falle du triffst bei der Auswahl nicht richtig ,die Funktion neu aufrufen.

Code:

---

(while (not (setq elem (car(entsel "\nBitte Linie oder Kreis waehlen ")))))

---

---

Vielen Dank, gute Idee. Habe nicht darüber gedacht.

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