Greetings,
Platform: Microstation Connect Edition Update 14 - Version 10.14.02.01
Sub test() Dim oPoint As Point3d Dim oTextElement As TextElement Dim strText As String strText = "O" 'oPoint.X = 603957.7972 'oPoint.Y = 4832698.6756 oPoint.X = -8871614 oPoint.Y = 5397811.5 CadInputQueue.SendKeyin "tw=6" CadInputQueue.SendKeyin "th=6" Set oTextElement = CreateTextElement1(Nothing, strText, oPoint, Matrix3dIdentity) 'oTextElement.TextStyle.Height = 4 'oTextElement.TextStyle.Width = 4 'oTextElement.ScaleUniform oPoint, 2.66666666666667 ActiveModelReference.AddElement oTextElement End Sub
When executing this code, in V8i, setting the TextStyle.Height and .Width, the text being modified scales about the Center-Center justification point. In Connect, it changes the origin of the text when changing the Height and Width. If you either scale the text element after creation or manually set Height and Width before placement, it works as expected. I don't know if this is a bug or works as designed. I thought I would point it out for review and possible correction. I am working around it using different code.
Thanks.
Hi Scott,
with the migration from V8i to CONNECT Edition (CE) there were issues with modified text origin coordinates caused by different operations.E.g. changing justification, edit text, changing size.In the meantime most of these issues should be fixed and during recent tests with the current CE Update 17.1 I don´t see the issue you describe here.I would recommend to upgrade the MicroStation installation to the most recent version.
Please let us know if you still experience any issue after upgrade.
Best regards,
Artur Goldsweer
Answer Verified By: Scott T Anderson
Thank you Artur. I suspected it was a bug as clearly no shift should occur. I will file this away and watch for future upgrades to correct.
Cheers,
Scott..