This part of code crashes CE. Is it only for me?
Sub place_text() CadInputQueue.SendCommand "place text" CadInputQueue.sendkeyin "sometext" End Sub
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