---

Hallo !

ich hoffe mir kann jemand helfen und zwar soll ich eine (auswahl) erstellen das folgendes bewirken soll.. (in Lisp)

Der Benutzer wird aufgefordert eine Linie oder Kreis zu picken.
Wenn der benutzer eine falsche auswahl trifft wird die eingabeaufforderung wiederholt, bei betätigung der enter taste  wird das programm abgebrochen.

Achso nachdem der Benutzer seine Auswahl getroffen hat gehts dann noch weiter aber das ist erstmal egal , Hauptsache die Auswahl funz erstmal

Ich danke für eure Tipps und Tricks.

eure DIANA

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

---

Hai
Das kann man so machen:

(defun c:ausw ( / )
  (setq as nil)
  (while (null as)
        (setq as (car (entsel "Kreis oder Linie picken:")))
        (if
          (or (= (cdr(assoc 0 (entget as)))"CIRCLE")(= (cdr(assoc 0 (entget as)))"LINE"))
          (prompt "Rischdisch")
          (setq as nil)
          )
      )
  )

Nur mit der Returntaste muss ich nochmal sehen, was sich machen lässt.

------------------
Gruß
CADwiesel

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

---

Hallo Diana,

so geht's:

(defun f:select (sel_objli  / sel_el tmp sel_el_etyp)
  (while (not sel_el)
    (setq tmp (entsel (strcat
"\nSelect "
(apply 'strcat (mapcar '(lambda (TXT)
  (strcat TXT "/ ")
  )
      sel_objli
      )
      )
)
      )
  )
    (if tmp
      (progn
(setq sel_el (car tmp)
      sel_el_etyp (cdr (assoc 0 (entget sel_el))))
(if (not (member sel_el_etyp sel_objli)
      )
  (setq sel_el nil)
  )
)
      (setq sel_el T)
      )
    );while
  (if (= (type sel_el) 'ENAME)
    (ffprogram sel_el)
    (princ "\nKeine gültige Auswahl - Programmabbruch")
    )
  (princ)
  )
(defun ffprogram (el / )
  (princ "\nHier muss dann das Programm weitergehen!")
  )
;;;
;;;
;;;Auswahl starten:
;;;(f:select '("LINE")) -> wählt nur Linie
;;;(f:select '("LINE" "CIRCLE")) -> wählt Linie oder Kreis
;;;(f:select '("LINE" "LWPOLYLINE")) -> wählt Linie oder LWPolylinen
;;;(f:select '("INSERT")) -> wählt -> wählt Block
;;;
;;; Wird kein Element ausgewählt, dann wird die Auswahl beendet
;;;Wird Falscher Elementtyp gewählt, wird Auswahl wiederholt
;;;
;;;(defun ffprogram ... ist nur Beispiel, wie es weiter gehen könnte

Bei Fragen ...

Grüße Holger

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

---

Hallo Jungs !!!

danke danke.... so jetzt muss  ich mir das ma genauer anschauen

wills ja auch verstehen.....

besten dank

Diana

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