change font in mtext

[wang890]

i have 26000 mtext that has overridden font inside the property. set to bold and print out look like crap.

see attached i want all the text to look like the text on the left. right is what they look like now. i just copied a few as an example.

can't find the font property in the mtext object:

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click

Dim doc AsDocument = Application.DocumentManager.MdiActiveDocument

Dim db AsDatabase = doc.Database

'Dim id As ObjectIdDim ed AsEditor = doc.Editor

Dim oBlock As BlockReference = NothingDim tv() As TypedValue = {NewTypedValue(DxfCode.Start, TextBox1.Text)}

', New TypedValue(DxfCode.LayerName, "Layer1")}Dim selFilter AsNewSelectionFilter(tv)

Dim ss AsSelectionSet = ed.SelectAll(selFilter).Value

Using trans AsTransaction = db.TransactionManager.StartTransaction()

TryDim bt AsBlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)

ForEach selObj As SelectedObject Inss

'trans.GetObject(selObj.ObjectId, OpenMode.ForWrite).Erase()Dim oText As MText = CType(trans.GetObject(selObj.ObjectId, OpenMode.ForWrite), MText)

Next

trans.Commit()

Catch'ex As Exception' MsgBox("Error: " + ex.Message)EndTryEndUsingEndSub

[chiefbraincloud]

The font is specified (or overridden) in the Content of the Mtext.  In your example drawing you will see that the beginning of the Content is "\Fbold.shx;"

[tyronebk]

If you want to remove the formatting overrides from MText you should just be able to set the:
MText.Contents = MText.Text

The Contents string holds all the text and formatting. Text just hold the text contents.

If the above removes too much of the formatting you may have to parse the Contents string and remove any of the unwanted formatting strings (in this case it is probably just the "\Fbold.shx;" at the start of the Contents string).

Edit: Removed extra slash.