---

Hallo

Habe eine dwg-Datei mit mehreren hundert einzeiligen Texten. (TEXT nicht MTEXT)
Diese haben unterschiedliche Drehungen, dieselbe Ausrichtung (Unten links) und jeweils zwei Griffe (Einfügepunkt und Punkt).

Wenn ich im Eigenschaften-Fenster die Ausrichtung der Texte auf "Links" ändere, verbleiben die Basispunkte/Einfügepunkte der Texte an vorhandener Position (x/y-Koordinaten) bestehen und die Position der Beschriftungen verschiebt sich geringfügig. (Distanz zwischen den Griffen "Punkt" und "Einfügepunkt").
Gleichzeitig entfällt der Griff "Punkt" und nur noch der Griff "Einfügepunkt" steht zur Verfügung.

Genau diese "Effekt" möchte ich nutzen.
Wie kann ich dies in ein Lisp, Makro oder Script einbauen?

Die Befehle "TJUST", "TEXTJUSTIFY" oder "ZENTRTEXTAUSR" zeigen leider nicht diesen "Effekt".
Bei diesen Befehlen wird die Position der Basispunkte/Einfügepunkte um die Distanz zwischen den Griffen "Punkt" und "Einfügepunkt" verschoben und der Griff "Punkt" entfällt ebenso. Die Beschriftung verbleibt zwar an bestehender Position, jedoch wird der Einfügepunkt (Änderung der x/y-Koordinaten) verschoben.
Dies entspricht leider nicht meinem Wunsch...

Freue mich auf hilfreiche Tipps. Danke

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

---

Hallo chregu,

ich würde dies über die Manipulation der dxf-Gruppencodes machen. Anbei mal ein Beispiel eines zentriert ausgerichteten Textes und des gleichen Textes mit "unten links).
GC 10 ist der linke Punkt bzw. untere Punkt, GC 72 zeigt die horizontale Ausrichtung, hier 1 - Zentriert, GC 73 die vertikale, GC 11 den eigentlichen Einfügepunkt in der Mitte des Textes, der auch in den Eigenschaften unter Textausrichtung angegeben wird.

Code:

---

((-1 . <Objektname: 11cb103b420>) (0 . "TEXT") (330 . <Objektname: 11ca58f39f0>) (5 . "15CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 259.809 169.002 0.0) (40 . 0.25) (1 . "hallo") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "ARI025_V_100") (71 . 0) (72 . 1) (11 260.178 169.002 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

---

Code:

---

((-1 . <Objektname: 11cb103b420>) (0 . "TEXT") (330 . <Objektname: 11ca58f39f0>) (5 . "15CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 260.178 169.076 0.0) (40 . 0.25) (1 . "hallo") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "ARI025_V_100") (71 . 0) (72 . 0) (11 260.178 169.002 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 1))

---

Durch entsprechende Manipulation der Werte solltens Du recht einfach zum Ziel kommen.

Gruß
Thomas

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