Solved! Go to Solution.
Solved by quigs. Go to 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)
Martin,
Thanks for sharing the solution
Regards,
Oleg
~'J'~