Befehlswiederholung (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Befehlswiederholung (811 mal gelesen)
vision Mitglied Beiträge: 113 Registriert: 27.10.2003 AutoCAD 2015 Expresstools Windows 10	erstellt am: 20. Jan. 2005 13:42 <-- editieren / zitieren --> Unities abgeben: 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
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13533 Registriert: 30.11.2003 .	erstellt am: 20. Jan. 2005 14:04 <-- editieren / zitieren --> Unities abgeben: Nur für vision 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
CADwiesel Moderator CAD4FM UG Beiträge: 1999 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich	erstellt am: 20. Jan. 2005 14:08 <-- editieren / zitieren --> Unities abgeben: Nur für vision (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
vision Mitglied Beiträge: 113 Registriert: 27.10.2003 AutoCAD 2015 Expresstools Windows 10	erstellt am: 20. Jan. 2005 14:39 <-- editieren / zitieren --> Unities abgeben: Hallo, jetzt funktioniert es richtig! :-) Vielen Dank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)