Mit Unterstützung durch:
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen >
Beiträge: 19Registriert: 30.08.2006
Auto Cad 2014Summa Sketch Professionel IIIWin 7 64
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
Beiträge: 9812Registriert: 01.12.2003
One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
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
Plugin AVC_Lay for AutoCAD and BricsCAD. Lay 3D-solids to XY plane. Group and sort list of details, make FlatShot for CNC.
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.
Anzeige.:X
Anzeige: (Infos zum Werbeplatz >>)
|
(c)2025 CAD.de | Impressum | Datenschutz