---

Hallo zusammen,

wenn man in AutoCAD einen Mtext sprengt(auflöst, explode), dann wird ja ein normaler ACADText drauß.
Wie bekomm ich dass den in VBA hin?
Egal ob ich den MText als Object oder MText deklariere, es kommt immer die Fehlermeldung dass das nicht unterstützt wird.

Weiß jemand Rat?

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

---

sendcommand (keine Ahnung, wie das in VBA richtig heißt). Damit kannst du AutoCAD-Befehle abschicken und musst nicht auf die zur Verfügung stehenden Methoden zurückgreifen. Das könnte also die Lösung sein.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Public Sub MtextZerlegen()

    Dim objSelectionset As AcadSelectionSet
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant

    Set objSelectionset = ThisDrawing.SelectionSets.Add("SelSet1")
    FilterType(0) = 0
    FilterData(0) = "MTEXT"
    objSelectionset.Select acSelectionSetAll, , , FilterType, FilterData
    If objSelectionset.Count > 0 Then
        ThisDrawing.SendCommand ("_explode _p  ")
    End If
    objSelectionset.Delete
End Sub

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