topic Re: VBA string replace mtext in VBA Forum

VBA string replace mtext

jorgen.fidjeland — Wed, 28 Sep 2016 13:32:19 GMT

Hi,

So I have a autocad 2d drawing with a lot of mtext. I have to change all instances of ":" to "-". Doing this manually would take a long time, so I thought of doing it with VBA.

I'm not asking for a full code, but some input on wether this is possible or not? All I have found about this on the internet is about making a new mtext, not editing existing mtexts.

So, my pseudo-code I imagine is something like this

Loop all objects

if(type=mtext)

mtext.text = str_replace(":","-",mtext.text)

end if

This is first time vba in acad. Have done some before in excel and access..

Thanks in advance

Re: VBA string replace mtext

Ed__Jobe — Wed, 28 Sep 2016 14:30:07 GMT

Sure, its possible, but have you tried the FIND command?

Re: VBA string replace mtext

naresh_kalyan — Sat, 30 Jun 2018 07:17:28 GMT

Hi all,

I have tried to get the MText string of a Mtext of AutoCAD 2016 using VBA. Here the case is, I could able to get "Text" but not MText. Kindly anyone help me. I'm bit new to AutoCAD customization.

Set oSset = .Add("$MTexts$").

Dim mode As Integer
Dim corner1(0 To 2) As Double
Dim corner2(0 To 2) As Double

mode = acSelectionSetCrossing
corner1(0) = 3.1325: corner1(1) = 2.1875: corner1(2) = 0 ''2 3/16
corner2(0) = 3.6315: corner2(1) = 3.5625: corner2(2) = 0
oSset.Select mode, corner1, corner2

please help me...

Regards

Naresh Kalyan

Re: VBA string replace mtext

norman.yuan — Sat, 30 Jun 2018 12:48:32 GMT

Well, your code is not relevant to why you was able to get Text, but not MText. It just selects anything inside/crossed by a window. Are you sure there are MText, or any entity for that matter, being selected in the SelectionSet? Since you did not set selecting filter, it is not guaranteed that only MText entities are selected. So, you need to find out if an entity in the SelectionSet is the type of entity you target:

...

'' Assume the selection does select some entities

'' which may or may not be all MText entities

OSset.Select mode, corner1, corner2

Dim ent As AcadEntity

Dim mtxt As AcadMText

Dim count As Integer

For Each ent In oSset

If TypeOf ent Is AcadMText Then

Set mtxt=ent

HandleMText mtxt

count = count +1

End If

MsgBox count & "MText entities have been handled."

....

Private Sub HandleMText(mtext As AcadMText)

'' Do whatever with the MText

End Sub

Re: VBA string replace mtext

naresh_kalyan — Tue, 03 Jul 2018 06:26:48 GMT

Thank you for the help with in a short span... it works perfectly..

Thank you Norman...

Regards

Naresh Kalyan

Re: VBA string replace mtext

Anonymous — Thu, 14 Feb 2019 20:30:01 GMT

Hi Naresh,

This Mahamuni from Dombivali Mumbai sudhanvammahamuni@gmail.com. Please go through following link, hope this will be helpful for you......

https://myengineeringworld.net/2014/03/add-text-in-autocad-using-excel-vba.html

This program is developed by Mr. Christos from Greece. He is very helpful and if he know the solution he will defiantly help you, you will find his contact details on his website.

Mahamuni

@jorgen.fidjeland wrote:

Hi,

So I have a autocad 2d drawing with a lot of mtext. I have to change all instances of ":" to "-". Doing this manually would take a long time, so I thought of doing it with VBA.

I'm not asking for a full code, but some input on wether this is possible or not? All I have found about this on the internet is about making a new mtext, not editing existing mtexts.

So, my pseudo-code I imagine is something like this

Loop all objects

if(type=mtext)

mtext.text = str_replace(":","-",mtext.text)

end if

This is first time vba in acad. Have done some before in excel and access..

Thanks in advance

@jorgen.fidjeland wrote:

Hi,

So I have a autocad 2d drawing with a lot of mtext. I have to change all instances of ":" to "-". Doing this manually would take a long time, so I thought of doing it with VBA.

I'm not asking for a full code, but some input on wether this is possible or not? All I have found about this on the internet is about making a new mtext, not editing existing mtexts.

So, my pseudo-code I imagine is something like this

Loop all objects

if(type=mtext)

mtext.text = str_replace(":","-",mtext.text)

end if

This is first time vba in acad. Have done some before in excel and access..

Thanks in advance