---

Hallo zusammen!

Wenn ich mit nachfolgendem Code einen Text in meine Zeichnung einfüge, und ihn anschließend ausrichte (mit dem Code der letzten Zeile), steht er auf einmal ganz woanders (bei 0,0). Warum?

Dim cad As Object
Dim acad As AcadApplication
Dim Height As Double
Dim P(0 To 2) As Double
Dim txtobj As AcadText
Dim TxtStr As String
Set cad = GetObject(, "AutoCAD.Application")
Set acad = cad
Dim hoehe, breite As Double
Height = 50
P(0) = 390: P(1) = 360: P(2) = 0
TxtStr = "TEXT"
Set txtobj = acad.ActiveDocument.ModelSpace.AddText(TxtStr, P, Height)
'und jetzt ausrichten
txtobj.Alignment = acAlignmentRight

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

---

Hab es.

Man braucht wohl einen TextAlignmentPoint.

Trotzdem Danke!

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