---

Guten Tag,
Momentan stellt mich ein einfaches Problem vor eine unlösbare Aufgabe.

Ich habe in einer Zeichnung viele MTexte mit der Ausrichtung Unten-Links. Die Einfügepunkte befinden sich mittig auf den dazugehörigen Flächen. Da ich die Option "Ausrichtung an Layout anpassen" nutzen möchte, soll die Texte die Ausrichtung Mitte-Zentriert bekommen. Dabei soll sich der Einfügepunkt aber nicht verschieben, sondern der Text.

Wenn ich es im Eigenschaftsfenster ändere, bleibt der Text an seiner Position und der Einfügepunkt verschiebt sich.  Bei kleinen Flächen liegt dann der Punkt außerhalb der Fläche. Mit TJUST aus den ExpressTools habe ich diesen Effekt auch.

Viele Grüße
Steffen

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

---

Hallo Steffen,

Befehl: Textausrichten / _textalign ändert die Ausrichtung unter beibehalten der Position

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

gruß
Stephan

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

---

Zitat:

---

Original erstellt von StephanJP:
Hallo Steffen,
Befehl: Textausrichten / _textalign ändert die Ausrichtung unter beibehalten der Position

---

Ich denke hotdiscomix sucht genau das gegenteilige Verhalten. Basispunkt soll bleiben, Text sich verschieben.

Wenn ich mich recht entsinne war die gewünschte Form einst das Standardverhalten von AutoCAD. Änderte man die Ausrichtung, "wanderten" die Texte um den Basispunkt und man musste sie mühsam wieder an die richtige, ursprüngliche Stelle verschieben. Was aber wohl die meisten User etwas nervig fanden. Abhilfe schaffte dann TJUST aus den Expresstools. Irgendwann wurde dann allerdings das Standardverhalten dahingehend angepasst --> und somit gibt es meiner Meinung nach für den "Normalanwender" keine Möglichkeit mehr dies mit Boardmitteln zu bewerkstelligen. Mit einer Programmierung sollte es aber zu realisieren sein.

------------------
Gruß

Michi

""Mögen hätt ich schon wollen, aber dürfen hab ich mich nicht getraut."
Karl Valentin

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

---

Versuche mal dieses Lisp Makro:

Code:

---

; Einfaches Verschieben des Ausrichtepunkte auf Mitte Zentriert für MTexte
; Udo Hübner 12.3.2021
(defun C:MTMZ ( / e i s )
  (Prompt "\nÄndere MText auf Mitte Zentriert - CAD-Huebner.de - 12.3.21")
  (if (setq s (ssget "_:L" '((0 . "MTEXT"))))
      (repeat (setq i (sslength s))
          (setq e (entget (ssname s (setq i (1- i)))))
          (entmod (subst (cons 72 7) (assoc 72 e) (subst (cons 71 5) (assoc 71 e) e)))
      )
  )
  (princ)
)
(Prompt "MTMZ.lsp geladen - Mtext mittig zentriert - Start mit MTMZ")
(princ)

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Wenn auch sehr spät, vielen Dank Herr Hübner für dieses kleine Programm. Es ist sehr hilfreich. Erst heute wieder bei ca. 1000 MTexten angewendet.

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