---

Hallo,

das untere Lisp-Programm zeichnet eine Linie mit der festen Länge von 5mm und einen vom Benutzer angegeben Winkel.
Leider funktioniert es nicht mehr richtig mit der Schleifenfunktion "while"!

Wer kann mir einen Tip geben?

;;; 5mm Verbindungslinie für Messstelle!

(defun c:LINMSR ()

  ;(while 

    (command "_line" (setq pt (getpoint)) (mapcar '+ '(-5 0 0) pt )"")

    (command "_rotate" (ENTLAST) "" pt )

  ;end while )

);defun

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

---

in deiner schleife wird das nächste (command "_line" ... als Winkel für (command "_rotate" (ENTLAST) "" pt) interpretiert.
Mußt du so ähnlich angehen :

(defun c:LINMSR ()
  (while 'T   
    (command "_line" (setq pt (getpoint)) (mapcar '+ '(-5 0 0) pt )"")
    (command "_rotate" (ENTLAST) "" pt)   
    (While (=(getvar"cmdactive")1)
      (command pause)
    ) 
  )
)

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

---

(setq pt 'T)
  (while pt

    (command "_line" (setq pt (getpoint)) (mapcar '+ '(-5 0 0) pt )"")

    (if pt(command "_rotate" (ENTLAST) "" pt pause))

  )

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo,

jetzt funktioniert es richtig! :-)

Vielen Dank

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