---

Hallo?

wie kann ich bei einem AcadMText-Object einen
Zeilenumbruch erzwingen?

Jens

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

---

Probiers mal damit:
Sub Test()
    Dim MT As AcadMText, NeuerText As String, Zeilenumbruch As String
    Dim ePoint(2) As Double, min As Variant, max As Variant
    Zeilenumbruch = "\P"
    NeuerText = "Dies ist ein Test" & Zeilenumbruch & "Gruß Marco"
    Set MT = ThisDrawing.ModelSpace.AddMText(ePoint, 45, NeuerText)
    MT.Update
    MT.GetBoundingBox min, max
    Application.ZoomWindow min, max
End Sub

------------------
Marco

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