Variable (Autodesk/Lisp) - Foren auf CAD.de


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Variable (752 mal gelesen)
vision Mitglied Beiträge: 113 Registriert: 27.10.2003 AutoCAD 2015 Expresstools Windows 10	erstellt am: 18. Feb. 2005 12:47 <-- editieren / zitieren --> Unities abgeben: Hallo, ich möchte die 5mm Linienlänge in ...(mapcar '+ '(-5 0 0)... nicht fest vorgeben, sondern mit "getreal" über die Tastatur eingeben. Wie müsste ich das Lisp ändern? Für Eure Bemühungen bedanke ich mich schon im Voraus. ;5mm Verbindungslinie für Messstelle! (defun c:LINMSR () (setq pt 'T) (while pt (command "_line" (setq pt (getpoint)) (mapcar '+ '(-5 0 0) pt )"") (if pt(command "_rotate" (ENTLAST) "" pt pause )) ) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 18. Feb. 2005 13:04 <-- editieren / zitieren --> Unities abgeben: Nur für vision ein Bsp : (progn (setq PT(getpoint)) (mapcar '+ (list (getreal "\nWert: ") 0 0) PT) ) ------------------ - 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
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: 18. Feb. 2005 13:15 <-- editieren / zitieren --> Unities abgeben: Nur für vision Soll die Variable bei jeder Linie oder nur beim Start des Programmes erfragt werden? Code: (defun c:LINMSR () (setq pt 'T) (initget 1) (setq variable (getreal "Variable:")) (while (setq pt (getpoint "Pkt angeben:")) (command "_line" pt (mapcar '+ (list variable 0.0 0.0) pt) "") (command "_rotate" (ENTLAST) "" pt pause ) ) ) ------------------ Mit freundlichem Gruß Udo Hübner ---------- Der versteckte Fehler bleibt nie unentdeckt. 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: 18. Feb. 2005 18:11 <-- editieren / zitieren --> Unities abgeben: Hallo Optimal wäre, wenn der eingegebene Wert "gemerkt" und als Vorgabe angezeigt würde. 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: 18. Feb. 2005 18:34 <-- editieren / zitieren --> Unities abgeben: Nur für vision Genau ------------------ Mit freundlichem Gruß Udo Hübner ---------- Der versteckte Fehler bleibt nie unentdeckt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)