| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Die Basis für Ihre Digitale Fabrik: Bestandsaufnahme und Datenintegration, ein Webinar am 30.10.2024
|
Autor
|
Thema: Lisp für Schaltfläche: Linie erzeugen (372 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: 5896 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: 834 Registriert: 09.11.2000
|
erstellt am: 07. Nov. 2003 18:41 <-- editieren / zitieren --> Unities abgeben: Nur für David Galvagno
|
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: 13527 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:
|