---

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

---

Moin,

Objekt vorher markieren.
Dann unter Button dies:

^C^C_rotate;\180;^C^Cändern;v;;ei;f;5;

setzt die Farbe 5

musst du für deine Zwecke anpassen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

xplan.lsp.txt

^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

---

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