---

HAllo Zusammen

ich habe mal wieder eine Frage und hoffe auch Eure Hilfe.

Ich habe mehrere Parallel laufende Linien unter einem gewissen Winkel gezeichnet.

Nun möchte ich die Linien drehen das diese horizontal dargestellt werden.

Ich gehe nun wie folgt vor. Messe den Winkel .... markiere dann die zu drehenden Lininien und drehe diese um den gemessenen Winkel.

Das geht jedoch bestimmt auch einfacher oder?

LG

CADBasti

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

---

Jau,

man kann auch ohne den Winkel zu messen drehen.
mit Basispunkt und Bezug

[Diese Nachricht wurde von AsSchu am 28. Nov. 2006 editiert.]

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

---

Ang0.lsp.txt

Ich habe mal ein bischen gebastelt, da es m.E. keine direkte Lösung über Eigenschaften oder so etwas gibt.
Es sollte in jedem Fall ein Objektfang für p1 und p2 verwendet werden!

Code:

---

(defun c:ang0 ( / obj p1 p2)
  (setq obj (ssget))
  (setq p1 (getpoint "\n Start- und Drehpunkt: ")
p2 (getpoint "\n Endpunkt der Linie: "))
  (command "Drehen" obj "" p1 (* -1 (/ (* 180.0 (angle p1 p2)) pi)))
  )

---

Erklärung:
Hier werden mehrere Objekte um einen Basispunkt (p1) gedreht. Ist das nicht gewünscht, muss die Zeile (setq obj ...) entfernt werden und in der Zeile command sollte obj durch p1 ersetzt werden.
Dann wird aber auch nur ein Objekt pro Befehlsaufruf (ang0) gedreht.
P1 ist der Drehpunkt
Der Winkel wird durch den Ausdruck (angle p1 p2) berechnet.

------------------
strukturiertes Zeichnen mit www.Werner-Maahs.de

[Diese Nachricht wurde von Werner-Maahs.de am 28. Nov. 2006 editiert.]

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

---

Danke für Eure Antworten 

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