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

PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Variable mit getpoint belegen, dann manipulieren (599 mal gelesen)

Zoff
Mitglied

Schreiben Sie einen Gästebucheintrag für Zoff

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 oder löschen Sie diesen Beitrag!

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

Senden Sie eine Private Message an CAD-Huebner

Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9812
Registriert: 01.12.2003

One AutoCAD 2.5 - 2024, AutoCAD, 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

Anzeige:	Infos zum Werbeplatz >>
CADprofi Electrical CAD APP für Elektro, AEC - Architektur-, Ingenieur- und Bauwesen, Messen, Steuern, Regeln (MSR)

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

CADprofi Electrical CAD APP für Elektro, AEC - Architektur-, Ingenieur- und Bauwesen, Messen, Steuern, Regeln (MSR)