Lisp für Schaltfläche: Linie erzeugen (Autodesk/Rund um AutoCAD)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Lisp für Schaltfläche: Linie erzeugen (371 mal gelesen)
David Galvagno Mitglied Beiträge: 148 Registriert: 10.12.2002 Windows 2000 Prof Autocad 2000i Prostahl3d-V16.1 HP Deskjet 1220C	erstellt am: 07. Nov. 2003 17:14 <-- editieren / zitieren --> Unities abgeben: Weiss jemand hierzu eine Möglichkeit ? wie kann ich ein Funktions-Buttom (Schaltfläche) so programmieren, dass mir eine Polylinie mit einer einzugebenen Länge (z.B. 5000 Einheiten in mm) gezeichnet wird. 1. Buttom für Vertikallinie, 2. Buttom für Horizontallinie. Damit würde mir einiges an Arbeit erleichert. Ich freue mich auf jegliche Hinweise hierzu. Danke. ------------------ Gruss bimbo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt Beiträge: 5881 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10	erstellt am: 07. Nov. 2003 18:33 <-- editieren / zitieren --> Unities abgeben: Nur für David Galvagno Hallo David, ich habe mal wieder die umständliche Variante für ein Makro: ^C^C_UCS;_o;\_line;0,0;5000,0;;_UCS;_p; für die horizontale Linie ^C^C_UCS;_o;\_line;0,0;0,5000;;_UCS;_p; für die Vertikale... Lothar ------------------ "Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
StephanJP Mitglied CAD-Admin Beiträge: 829 Registriert: 09.11.2000	erstellt am: 07. Nov. 2003 18:41 <-- editieren / zitieren --> Unities abgeben: Nur für David Galvagno oder ^C^C(command "_pline" (setq pt (getpoint)) (mapcar '+ '(5000 0 0) pt) "") ^C^C(command "_pline" (setq pt (getpoint)) (mapcar '+ '(0 5000 0) pt) "") ------------------ gruß Stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
David Galvagno Mitglied Beiträge: 148 Registriert: 10.12.2002 Windows 2000 Prof Autocad 2000i Prostahl3d-V16.1 HP Deskjet 1220C	erstellt am: 12. Feb. 2004 10:19 <-- editieren / zitieren --> Unities abgeben: herzlichen Dank Euch beiden für Eure Hilfe. Funktioniert perfekt. Doch wie kann ich den Layer xy aktuell setzen um danach ein Fadenkreuz zu erstellen mit der Länge je 5000 Einheiten. Ich danke für jeden Hinweis. ------------------ Grüsse bimbo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.	erstellt am: 12. Feb. 2004 10:35 <-- editieren / zitieren --> Unities abgeben: Nur für David Galvagno Lad dir mal das : (defun c:Fadenkreuz ( / OLDLAYER LAYERNAME PUNKT) (setq OLDLAYER (getvar "CLAYER")) (setq LAYERNAME "0") (if (tblsearch "LAYER" LAYERNAME) (setvar "CLAYER" LAYERNAME ) ;Layer aktuell setzen ) (if(setq PUNKT (getpoint "Punkt eingeben : ")) (progn (command "_pline" (mapcar '- PUNKT '(2500 0 0)) (mapcar '+ PUNKT '(2500 0 0)) "") (command "_pline" (mapcar '- PUNKT '(0 2500 0)) (mapcar '+ PUNKT '(0 2500 0)) "") ) ) (setvar "CLAYER" OLDLAYER ) (princ) ) Gruß Thomas ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
David Galvagno Mitglied Beiträge: 148 Registriert: 10.12.2002 Windows 2000 Prof Autocad 2000i Prostahl3d-V16.1 HP Deskjet 1220C	erstellt am: 12. Feb. 2004 15:01 <-- editieren / zitieren --> Unities abgeben: tausend DAnk - funktioniert perfekt. Ich kann das Tool nur weiterempfehlen für Konstruktionen... ------------------ Grüsse bimbo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)