Variable mit getpoint belegen, dann manipulieren (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Variable mit getpoint belegen, dann manipulieren (541 mal gelesen)
Zoff Mitglied Beiträge: 19 Registriert: 30.08.2006 Auto Cad 2014 Summa Sketch Professionel III Win 7 64	erstellt am: 23. Sep. 2006 22:52 <-- editieren / zitieren --> Unities abgeben: Hallo, ich frage in einem LISP Programm einen Punkt mit getpoint() ab. Danach möchte ich zu x einen Wert hinzu addieren, y soll bleiben. Kann mir jemand sagen, wie man das macht? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer Beiträge: 9732 Registriert: 01.12.2003 One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11	erstellt am: 23. Sep. 2006 23:24 <-- editieren / zitieren --> Unities abgeben: Nur für Zoff Da gibts mehrere Möglichkeiten: Code: (setq pkt (getpoint "Punkt wählen:")) ; die Variable pkt ist eine eine Liste in der Form ; '( 1.23 3.45 6.78) ; die Addition zum X-Wert könnte so aussehen: (setq pkt (cons (+ 9.1011 (car pkt)) (cdr pkt))) ; oder (setq pkt (list (+ 9.1011 (nth 0 pkt)) (nth 1 pkt)(nth 2 pkt))) ; oder (setq pkt (list (+ 9.1011 (car pkt)) (cadr pkt)(caddr pkt))) ; oder (setq pkt (mapcar '+ pkt '(9.1011 0.0 0.0))) ;... ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Zoff Mitglied Beiträge: 19 Registriert: 30.08.2006	erstellt am: 24. Sep. 2006 00:01 <-- editieren / zitieren --> Unities abgeben: Zitat: Original erstellt von CAD-Huebner: Da gibts mehrere Möglichkeiten: Code: (setq pkt (getpoint "Punkt wählen:")) ; die Variable pkt ist eine eine Liste in der Form ; '( 1.23 3.45 6.78) ; die Addition zum X-Wert könnte so aussehen: (setq pkt (cons (+ 9.1011 (car pkt)) (cdr pkt))) ; oder (setq pkt (list (+ 9.1011 (nth 0 pkt)) (nth 1 pkt)(nth 2 pkt))) ; oder (setq pkt (list (+ 9.1011 (car pkt)) (cadr pkt)(caddr pkt))) ; oder (setq pkt (mapcar '+ pkt '(9.1011 0.0 0.0))) ;... Super, vielen Dank. p.s.: habe die Lösung mit mapcar genommen, weil sie mir als am einfachsten zu durchschauen erscheint. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)