topic Re: Mleader Text Height Is NOT What Is Set in .NET Forum

Mleader Text Height Is NOT What Is Set

mgorecki — Tue, 11 May 2021 23:57:00 GMT

Ok this is weird. I have a drawing that has my dimension styles, text styles, and MLeader styles all set. This base drawing gets inserted and the program just changes the dimension and Mleader styles scale value.

The mleader style that is used has a set mtext height of 2.2. The scale factor will make it aesthetic in the drawings.

Here is the code to update the mleader style scale factor:

Public Sub UpdateMleaderStyle(ByVal dwg_scale As Double) Dim podDWG As Document = Application.DocumentManager.MdiActiveDocument Dim podDB As Database = podDWG.Database Using mldrTrans As Transaction = podDB.TransactionManager.StartTransaction() Const styleName As String = "MyStyle" Dim mlstyles As DBDictionary = CType(mldrTrans.GetObject(podDB.MLeaderStyleDictionaryId, OpenMode.ForRead), DBDictionary) If Not mlstyles.Contains(styleName) Then Return Dim id As ObjectId = mlstyles.GetAt(styleName) Dim mlStyle As MLeaderStyle = TryCast(mldrTrans.GetObject(id, OpenMode.ForWrite), MLeaderStyle) mlStyle.Scale = dwg_scale mldrTrans.Commit() End Using End Sub

Here is the code that inserts an mleader:

Public Sub AddMLeader(ByVal ldrPnt1 As Point3d, ByVal ldrPnt2 As Point3d, ByVal ldrTextVal As String, ByVal ldrTextWidth As Double, ldrJustify As String, ByVal dwg_scale As Double, ByVal mlLayer As String) Dim podDWG As Document = Application.DocumentManager.MdiActiveDocument Dim podDB As Database = podDWG.Database Using mlTran As Transaction = podDB.TransactionManager.StartTransaction() Dim blkTbl As BlockTable = TryCast(mlTran.GetObject(podDB.BlockTableId, OpenMode.ForRead), BlockTable) Dim blkTblRec As BlockTableRecord = TryCast(mlTran.GetObject(blkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord) Dim mleader As MLeader = New MLeader() mleader.SetDatabaseDefaults() mleader.ContentType = ContentType.MTextContent mleader.SetFromStyle() mleader.Layer = mlLayer Dim mText As MText = New MText() mText.SetDatabaseDefaults() mText.Width = ldrTextWidth mText.Layer = mlLayer mText.SetContentsRtf(ldrTextVal) mText.Location = ldrPnt2 If ldrJustify = "Left" Then mText.Attachment = AttachmentPoint.MiddleLeft If ldrJustify = "Right" Then mText.Attachment = AttachmentPoint.MiddleRight mleader.MText = mText Dim idx As Integer = mleader.AddLeaderLine(ldrPnt1) Dim dict As DBDictionary = CType(mlTran.GetObject(podDB.MLeaderStyleDictionaryId, OpenMode.ForRead), DBDictionary) Dim mlStyleId As ObjectId = dict.GetAt("MyStyle") mleader.MLeaderStyle = mlStyleId blkTblRec.AppendEntity(mleader) mlTran.AddNewlyCreatedDBObject(mleader, True) mlTran.Commit() End Using End Sub

When the program is done running, the mleader style is correct when I look at the mleader format. The text height is set to 2.2. So nothing in the code will change the mtext text height, but when the mleader in created in the drawing, the text height is 0.367. Where the heck did it get such a weird number and why did it change the text height anyway.

Thanks in advance.

Mark

Re: Mleader Text Height Is NOT What Is Set

mgorecki — Wed, 12 May 2021 00:18:01 GMT

Also, the dwg_scale that I'm using is 0.50, so the text height should appear to be 1.1, not 0.367.

Re: Mleader Text Height Is NOT What Is Set

Gepaha — Wed, 12 May 2021 12:06:59 GMT

I couldn't find it in the "AddMLeader" routine where the text height is set to MText. Where You set the text height equal to 2.2? In my opinion in .NET the text height of MText is completely independent of the height defined in Mleader.

MText mText = new MText(); mText.SetDatabaseDefaults();

creates a new MText based on the definition of the current text style in the current drawing.

SetDatabaseDefaults defines the layer, color, visibility, etc. I think it also defines the height of the text based on the value of the TXTSIZE variable.

So, I think it is necessary to adjust the height of the text after MText is created.

MText mText = new MText(); mText.SetDatabaseDefaults(); // set the height of the text mText.Height = 2.2;

The Mtext textHeight after SetDatabaseDefaults:

Re: Mleader Text Height Is NOT What Is Set

mgorecki — Wed, 12 May 2021 15:50:02 GMT

Hello,

Thank you for your post. Originally I had used mtext.TextHeight (not mtext.height) set to 2.2, but that did nothing. So I commented out the line: mText.SetDatabaseDefaults() and that seems to have done the trick. Thank you for bringing that line to my attention.

By the way, I set the text height to 2.20 in the actual mleader dialog box in the base drawing that gets inserted.

Best regards