• Industries
  • Products
  • Buy
  • Services & Support
  • Communities
  • Discussion Groups

    .NET

    Reply
    Mentor
    wang890
    Posts: 759
    Registered: ‎06-08-2007

    change font in mtext

    289 Views, 2 Replies
    01-24-2012 11:21 AM

    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

    Civil 3D 2012
    Work: Xeon W3503, 12GB, Quadro 2000, Dell 19' x 2
    Home: 3930k, 16GB, GTX 590, Dell U3011
    Please use plain text.
    *Expert Elite*
    chiefbraincloud
    Posts: 736
    Registered: ‎02-13-2008

    Re: change font in mtext

    01-24-2012 12:50 PM in reply to: wang890

    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;"

    Dave O.                                                                                Sig-Logos32.png
    Please use plain text.
    Distinguished Contributor
    Posts: 131
    Registered: ‎08-17-2007

    Re: change font in mtext

    01-24-2012 12:58 PM in reply to: wang890
    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.
    Please use plain text.