my code is quite simple, nothing special.
Set MyText = CreateTextElement1(Nothing, MyTextString, TempPoint, Matrix3dIdentity)
Mytext.TextStyle.Height = 5
Mytext.rewrite
My purpose is create a text element which text height is 5 mm.
The problem is, the drawing I tested, in most cases the result text height is 5mm. But sometimes it is 0.05mm, and I don't know when and how it will happen, in another word, I cannot replay this problem.
When the problem happened, I checked activesettings.textstyle.height, it is 500 instead of 5. It is 5 when there is no problem. In the text style dialog, the height is 5:0.000. This problem impact mvba code only, if place text manually, no problem.