---

2022-03-24-Textdrehung.dwg

Hallo Gemeinde,

ich habe in einer Zeichnung mehrere Mtexte mit der Ausrichtung und Basispunkt "Mitte zentriert".

Mein Problemchen jetzt. Gibt es eine Möglichkeit alle Mtexte gleichzeitig um ihren eigenen Basispunkt um 180 Grad zu drehen?
Im Anhang eine abgespeckte Version der Zeichnung.

Vielen Dank für Eure Mühe.
LG csfalk

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

---

Hallo,
https://ww3.cad.de/foren/ubb/Forum37/HTML/006750.shtml
.

------------------

Gruß Thomas
CADdog the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

Hallo und Grüße,

vielen Dank für Deinen Link.
ich habe mir dort den Code kopiert und in eine rot.lsp gespeichert.
Das laden der Lisp funktioniert und Autocad meldet Lisp erfolgreich geladen.
Leider kommt nach dem laden gleich eine Fehlermeldung mit der ich nichts anfangen kann. Wo habe ich einen Fehler gemacht?

Fehlermeldung in der Befehlszeile:

Enter an option [Commands/Functions/Variables/Load]: l
_.appload Rot.lsp erfolgreich geladen.
Befehl:
Befehl: ; Fehler: Überzählige rechte Klammer in Eingabe
Befehl:

Vielen Dank.

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

---

Hallo,

ich habe den Fehler gefunden. Beim copy und paste wurde nicht alles kopiert.

Vielen Dank für die Hilfe.
LG csfalk

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

---

ROT.lsp

Code:

---

(defun c:rot (/ rotateval ss len c e f degrees radians)
(setq rotateval
(atoi
(getstring "\nHow many degrees rotation are required: "
)
)
)
(setq ss (ssget))
(setq len (sslength ss))
(setq c 0)
(repeat len
(setq f (entget (ssname ss c)))
(setq e (cdr (assoc '50 (entget (ssname ss c)))))
(setq degrees (Radian->Degrees e))
(setq degrees (+ degrees rotateval))
(while (>= degrees 360)
(setq degrees (- degrees 360))
)
(setq radians (Degrees->Radians degrees))
(setq f (subst (cons 50 radians) (assoc 50 f) f))
(entmod f)
(setq c (+ c 1))
)
)

(defun Radian->Degrees (nbrOfRadians)
(* 180.0 (/ nbrOfRadians pi))
)
(defun Degrees->Radians (numberOfDegrees)
(* pi (/ numberOfDegrees 180.0))
)

---

Zitat:

---

Befehl: (LOAD "X:/XXX/ROT.lsp") DEGREES->RADIANS

Befehl: ROT

How many degrees rotation are required: 180

Objekte wählen: Entgegengesetzte Ecke angeben: 2 gefunden

Objekte wählen:
2

Befehl:

---

Also bei mir läufts. 

------------------

Gruß
Manuel

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

---

DREHEN-E.LSP

Gruß Werner

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

---

Vielen vielen Dank für die tolle Unterstützung.

Gruß aus Teltow bei Berlin.

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