value of mtext

[ralph.poh]

Hi.
How is it possible to read the value of an selected mtext?

Ralph

[joesu]

oMText.TextString

Joe
--

[ralph.poh]

OK.
I've tried it a view times, but I seem to be to stupied for it.
Could you please give me an example for an selected MText?

Ralph

[joesu]

Disclaimer!!! No error checking in this example!

Dim aObject As AcadEntity
Dim Point As Variant

'select the Mtext
ThisDrawing.Utility.GetEntity aObject, Point, "Select an entity"

'check ObjectName property for MText
If UCase(aObject.ObjectName) = "ACDBMTEXT" Then

'cast object to proper data type
Dim oMText As AcadMText
Set oMText = aObject

'display the text string in a MsgBox
MsgBox oMText.TextString

That should do it. Let me know if you need further help.

Joe
--
joesu@worldnet.att.net

[ralph.poh]

Is it possible to use the textstring without selecting the object by the ACADUser. I think of selecting the object with vba.

Ralph

[joesu]

Ralph,

You would need to create a selection set of MText objects.

Joe
--

[ralph.poh]

I have selected the mText Obejcts in the ActiveSelectionSet.
Could you give me an example for getting the TextString for the first Item?

Ralph

[ralph.poh]

I got it.
Thank you joe for helping from Ralph from Germany