| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:16281) | CIDEON Whitepaper: Konfigurationsprozess - durchgängig und zukunftsweisend, ein Whitepaper |
Autor
|
Thema: Lisp/Makro zum Linie drehen (354 mal gelesen)
|
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Walter Zettlitzer](/foren/ubb/pmimages/gbu.gif) Beiträge: 228 Registriert: 25.07.2002 WIN XP Pro, ACAD 2004
|
erstellt am: 12. Nov. 2004 10:30 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo, ich habe mal wieder ein Problem, das 500 mal gelöst werden muss: Ich würde gerne eine Linie anklicken und anschließend einen Endunkt einer anderen Linie wählen. Es soll die x-Achse des BKS der ersten Linie entsprechen und diese dann um 180 Grad um den gewählten Endpunkt gedreht werden. Die Routine sollte als Enlosschleife immer wieder beginnen. Ganz toll wäre, wenn nach dem Drehen die Farbe der Linie geändert würde. Für eine Anregung wäre ich sehr dankbar. Beste Grüße, Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für AsSchu](/foren/ubb/pmimages/gbu.gif) Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 12. Nov. 2004 12:21 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Walter Zettlitzer
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
![](/foren/avatars/Brischke.gif)
![Schreiben Sie einen Gästebucheintrag für Brischke](/foren/ubb/pmimages/gbu.gif) Beiträge: 4186 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 12. Nov. 2004 12:21 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Walter Zettlitzer
Hallo Walter, was soll jetzt gemacht werden? So wie ich deine Beschreibung verstehe, soll die Linie um einen Punkt um 180Grad gedreht werden. Das kannst du aber mit dem normalen Drehen-Befehl machen, kanns also nicht sein. Was aber dann? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Walter Zettlitzer](/foren/ubb/pmimages/gbu.gif) Beiträge: 228 Registriert: 25.07.2002 WIN XP Pro, ACAD 2004
|
erstellt am: 12. Nov. 2004 13:32 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Vielmals Danke! Ich habe das Ganze etwas modifiziert: ^C^C_ucs _3;\\;_rotate;\;\180;^C^Cändern;v;;ei;f;5;; (@Holger, die Funktion ist nun klar, oder?) Ich muss nun 4x klicken (Zweimal um das BKS an Linie auszurichten, 1x um Linie zu wählen, 1x um Drehpunkt zu wählen). Das ganze müsste sich doch auch mit nur 2x Klicken (Linie und Punkt) machen lassen. Nur weiss ich nicht, wie... Schönen Gruß, Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gmk Mitglied Dipl.-Ing.(FH) Vermessung
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für gmk](/foren/ubb/pmimages/gbu.gif) Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 12. Nov. 2004 13:38 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Walter Zettlitzer
hi walter! evtl. so (DEFUN c:dre( / ele) (SETVAR "aunits" 3) ;bogenmass!!!! (SETQ ele (CAR (ENTSEL "Linie wählen: "))) (WHILE ele (COMMAND "bks" "o" ele) (COMMAND "drehen" ele "" (GETPOINT "Drehpunkt wählen") pi) (SETQ ele (CAR (ENTSEL "Linie wählen: "))) ) ;while ) ;defun ciao georg [edit] aber wieso die schleife ...? [edit] [Diese Nachricht wurde von gmk am 12. Nov. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für AsSchu](/foren/ubb/pmimages/gbu.gif) Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 12. Nov. 2004 13:50 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Walter Zettlitzer
^C^C^P(if (null C:CustomViewUCS)(load "xplan"))(princ);xplan;o;\^C^CCustomViewUCS ^C^C_rotate;\;\180;^C^Cändern;v;;ei;f;5;; da brauchst du aber das angehängte lisp dafür Ich vergaß 3X klicken [Diese Nachricht wurde von AsSchu am 12. Nov. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Walter Zettlitzer](/foren/ubb/pmimages/gbu.gif) Beiträge: 228 Registriert: 25.07.2002 WIN XP Pro, ACAD 2004
|
erstellt am: 16. Nov. 2004 16:07 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo Georg, super, genau das was ich suche... Warum die Schleife? Weil wir 500 Linien im Raum haben, die jede um einen eigenen Punkt gedreht werden müssen. Jetzt können wir uns durch den Raum panen und der Reihe nach die Linien drehen... @ASchu: Dein Makro läuft auch, aber hier muss ich drei Mal klicken :-) Danke und schöne Grüße, Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |