Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
clutsa
in reply to: Anonymous

Can you just subtract the UCS offsets from the workpoints?

Dim punto As WorkPoint = ThisApplication.ActiveDocument.ComponentDefinition.WorkPoints("Work Point1")
Dim ucs As UserCoordinateSystem = ThisApplication.ActiveDocument.ComponentDefinition.UserCoordinateSystems(1)
Dim x As Double = punto.Point.X - ucs.XOffset.Value

Dim y As Double = punto.Point.Y - ucs.YOffset.Value

Dim z As Double = punto.Point.Z - ucs.ZOffset. Value

MessageBox.Show("X: " & x & " Y: " & y & " Z: " & z, "Title")

 The ucs offsets are in cm so you may need to convert to mm but that's a simple enough conversion Smiley Very Happy

If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State

Custom Glyph Icon for iMates