---

Hallo zusammen,

ich erstelle einen Mtext und füge ihn an einem Einfügepunkt ein.
der Nutzer muss zuerst eine Polylinie wählen um den Layer und den Winkel abzufragen.
Den Winkel erhalte ich aus nachfolgendem Code

Code:

---

Winkel = pntAnfang.GetVectorTo(pntEnde).AngleOnPlane(New Plane)

---

Die Ausrichtung des Mtextes geschieht über

Code:

---

'Text(drehen)
Dim curUCSMatrix As Matrix3d = acDoc.Editor.CurrentUserCoordinateSystem
Dim curUCS As CoordinateSystem3d = curUCSMatrix.CoordinateSystem3d

acText.TransformBy(Matrix3d.Rotation(Winkel, curUCS.Zaxis, acText.Position))

---

Jetzt möchte ich von dem Einfügepunkt

Code:

---

acText.Position

---

den Mtext um einen vordefinierten Wert in Y-Richtung der Ausrichtung(OCS) verschieben.

Dies wollte ich mit

Code:

---

acText.TransformBy(Matrix3d.Displacement(????))

---

machen.

Wie krieg ich die Ausrichtung und den Verschiebewert in die "Displacement"-Funktion rein.
Ich hoffe jemand versteht was ich vorhabe 

Meine Kenntnisse in Vektorrechnungen sind noch am Anfang.
Kann mir jemand sagen wo ich ne gute Anleitung hierzu im Netz finde.

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

---

Hallo,

wer sucht der findet hier
http://ww3.cad.de/foren/ubb/Forum352/HTML/000339.shtml#000004
Ist genau dass was ich gesucht habe.

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