mText

[Anonymous]

Hi there,
I am adding some mtext to a jigs worlddraw. Using:

Dim Tx As New MText
Tx.Location = “a 3d point”
Tx.Contents = “a var that I have created”
draw.geometry.draw(tx)

The mtext displays fine, but I have tried in vain to change the font, to another but I am having no luck. Can anyone suggest a way that I may do that. Any font would do, so I can test it works.

Thanks,

Martin.

[Anonymous · Accepted solution]

Hi,

I have found the solution:

      ' Get Font
            Dim acTextStyleTblRec As TextStyleTableRecord
            acTextStyleTblRec = acTrans.GetObject(acCurDb.Textstyle, OpenMode.ForWrite)
            acTextStyleTblRec.FileName = "Arial"
            acTrans.Commit()
            ' Mtext
            Dim IP As Point3d = InsPt
            Dim MText As New MText
            MText.Attachment = AttachmentPoint.BottomCenter
            MText.Contents = "21"
            MText.TextHeight = 6.4
            MText.Location = InsPt
            MText.ColorIndex = 7
            MText.TextStyle = acCurDb.Textstyle
            draw.Geometry.Draw(MText)

[Hallex]

Martin,

Thanks for sharing the solution

Regards,

Oleg

~'J'~