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

NVIDIA RTX PRO 6000 Blackwell Max-Q Workstation Edition, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Variable mit getpoint belegen, dann manipulieren (593 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 >>
AVC LAY CAD APP für 3D, Möbel, Messestände Plugin AVC_Lay for AutoCAD and BricsCAD. Lay 3D-solids to XY plane. Group and sort list of details, make FlatShot for CNC.

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

AVC LAY CAD APP für 3D, Möbel, Messestände