| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Variable (817 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: 13527 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: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, 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:
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 18. Feb. 2005 18:34 <-- editieren / zitieren --> Unities abgeben: Nur für vision
|