BricsCAD V22 implements extfont2.shx in addition to the traditional Japanese character style japanese.shx. Several labels, such as Insertion Point, Scale and Rotation, are available again You can now freely choose to undo whilst picking a starting point for your next Polyline. It was necessary to place the start point first, then choose Undo to go back to the previous Polyline. Previously, you could not choose to Undo while selecting a new start point. Pressing the Esc key twice cancels the command. Pressing the ESC key once no longer cancels the FITPOLYLINE command, it ends the current Polyline segment and starts a new Polyline. The possibility to set a taper angle dynamically using the "Tab" key was restored When choosing the image file for a CUI tool, we now display and save the relative path instead of the absolute path to the file Set adNewMText = (adEntity.InsertionPoint, _ĪdNewMText.- We fixed an issue that prevented access to UNC network shares that used a single character name I got this to work for text entities in 2007, the mtext was placed directly over the text entity selected. Set adNewMText = (adEntity.InsertionPoint, _ĪdNewMText.AttachmentPoint = acAttachmentPointBottomLeft Set adNewText = (holdStr, adEntity.InsertionPoint, _ MPts(1) = mPts(1) - ((adEntity.Height + adEntity.LineSpacingDistance) * mI) Set adNewText = (mNwStr(mI), _ĪdEntity.InsertionPoint, adEntity.Height) If adEntity.AttachmentPoint = acAttachmentPointTopLeft Then 'this only works when the text rotation is 0 'this is a new line character - the results are not correct
It would help if you posted a drawing for a sample, zip it up first so you can post it. I am still working on the text justification. It adjust the mtext only (I got side-tracked). This is why the text appears in Model Space If firstOnly Then replaceStr = holdStr & searchStr: Exit Function SearchStr = Mid(searchStr, StrLoc + oldStrLen) HoldStr = holdStr & Left(searchStr, StrLoc - 1) & newStr 'This is an older function taken from ad_FindReplaceĭim i As Integer, oldStrLen As Integer, holdStr As String, StrLoc As Integer Public Function replaceStr(ByVal searchStr As String, ByVal oldStr As String, ByVal newStr As String, _ Set adNewText = (holdStr, adEntity.insertionPoint, adEntity.height) adEntity, basePnt, "Pick Text or MText Entity> " What a mess I hope someone can help me or else I have alot of work just converting text to Mtext ahead. The idea is to convert all the text on a drawing to Mtext so I can run a second macro that exports our BOMs to an excel sheet and that that macro only exports Mtext which is why I need to convert the text. Most or all of our drawings are in layout. If I click text in Layout it converts it and places it in model space. Also I realized that this only works in model space and not in layout.
Sorry that was only part of the code heres the rest I'm still trying to figure this out. Set adNewMText = (adEntity.insertionPoint, Len(holdStr), holdStr)ĪdNewMText.AttachmentPoint = acAttachmentPointTopLeft Set adNewText = (holdStr, adEntity.insertionPoint, adEntity.Height)ĮlseIf adEntity.ObjectName = "AcDbText" Then If InStr(holdStr, "\P") Then holdStr = replaceStr(holdStr, "\P", " ", False) 'This call is used to remove MText formatting from the string If adEntity.ObjectName = "AcDbMText" Then adEntity, basePnt, "Pick MText Entity> " ' property, but it will be left to you to implement the conversion for ' while Text uses the Alignment property.
'One of the things you will probably need to address is the Justification
The only problem with it is after it converts the text it places the text in weird locations on the drawing sometimes just a little lower sometimes it the middle of the drawing i need it to place the Mtext in the exact position of the old text. I have this code from some website that will convert text to mtext in autocad.