[CONNECT VBA] Sendkeyin

Another issue with CreateTextElement1 that I need to multiply origin with units resolution otherwise it is not correct. But same origin works for cell elements without issue. Is it by design?

Set oText = CreateTextElement1(Nothing, " Text", Point3dZero, Matrix3dIdentity)

pt.x = p.x * UORs
pt.y = p.y * UORs

         oText.Origin = pt
        

ActiveModelReference.AddElement oText

This approach also almost work, X coordinate is correct but for some reason Text is shifted by Y coordinate.

pt.x = p.x * UORs
pt.y = p.y * UORs
 

Set oText = CreateTextElement1(Nothing, " Text", pt, Matrix3dIdentity)      
 
ActiveModelReference.AddElement oText

for us the shift is 1000 meters