Posts: 19
Registered: ‎07-11-2006
Message 11 of 12 (61 Views)

Re: Searching for text

08-11-2006 06:36 AM in reply to: Natalie-C
That worked perfectly!!!

Thanks a lot.......
Posts: 5
Registered: ‎08-13-2006
Message 12 of 12 (61 Views)

Re: Searching for text

08-13-2006 12:56 PM in reply to: Natalie-C
I use this code to get text, you could identify the k string

If TypeOf entity Is Autodesk.AutoCAD.DatabaseServices.MText Then
TextBox1.Text += "*MTEXT FOUND " & vbCrLf
Dim Txt As Autodesk.AutoCAD.DatabaseServices.MText = entity
TxtFound = TxtFound + 1
Dim k

k = Txt.Contents
TextBox1.Text += "Contents " & k.ToString & vbCrLf & vbCrLf
TextFnd(1, TxtFound) = k.tostring

k = Txt.Location
TextBox1.Text += "Location " & k.ToString & vbCrLf
Dim Spl
Spl = Mid(k.tostring, 2, Len(k.tostring) - 2)
TextBox1.Text += "SPLIT" & Spl & vbCrLf
Dim sa() As String
sa = Split(Spl, ",", -1)
TextFnd(0, TxtFound) = TxtFound
TextFnd(2, TxtFound) = sa(0)
TextFnd(3, TxtFound) = sa(1)

End If

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community