---

Hallo zusammen,

ich brauche wieder mal hilfe:
wie erstelle ich eine Auswahl in der zb. alle Mtexte im MSpace enthalten sind?
ich kriegs nicht auf die Reihen.

DANKE

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

---

Hallo,

such doch mal nach Filter oder FTYPE oder FDATA.

Du wirst z.B. das finden. Hier werden alle Inserts auf einem Layer gesucht.
Tausche einfach INSERT durch MTEXT aus.
Wenn du nur nach MTEXT suchst dann musst du die Felder natürlich auf (0) dimensionieren.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Vielen Dank.. so weit so gut...

weisst du zufällig auch noch wie ich diese Auswahl explodieren kann... damit die MTexte in Texte zerfallen?

lg + Danke

steppe

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

---

Hi Steppe,

Die Methode Explode gibt es für das MText-Objekt nicht. Hier mal was, was ich in einem anderen Forum gefunden habe:

Code:

---

Sub XplodeObj()

On Error Resume Next

Dim RetObj As AcadMText
Dim BasePnt As Variant
Dim newText As AcadText
Dim TextString As String
Dim txtHeight As Double
Dim InsPoint(0 To 2) As Double

ThisDrawing.Utility.GetEntity RetObj, BasePnt, "Select objects: "

TextString = RetObj.TextString
txtHeight = RetObj.Height
InsPoint(0) = RetObj.InsertionPoint(0)
InsPoint(1) = RetObj.InsertionPoint(1) - txtHeight
InsPoint(2) = RetObj.InsertionPoint(2)

RetObj.Delete

Dim i As Integer
Dim Linha, Letra As String

Linha = ""

For i = 0 To Len(TextString)

Letra = Mid(TextString, i, 1)

If Letra = "\" Then

Set newText = ThisDrawing.ModelSpace.AddText(Linha, InsPoint,
txtHeight)

InsPoint(1) = InsPoint(1) - txtHeight * 1.66666666666667
i = i + 1
Linha = ""

Else
Linha = Linha + Letra

End If

Next

Set newText = ThisDrawing.ModelSpace.AddText(Linha, InsPoint, txtHeight)

End Sub

---

Pass dir das einfach für deine Bedürfnisse an.
Und sonst gibt es nur noch die SendCommand-Methode.

Gruß, Carsten

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

---

wieder mal danke!

wenn ich den sendcommand verwenden sollt, wie kann ich dann die Objektwahl übergeben?

gruß
steppe

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

---

Hi steppe,

Vielleicht hilft dir dieser Beitrag von Wilfried schon weiter, wobei man SendCommand nach Möglichkeit immer vermeiden sollte.

Gruß, Carsten

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