12-19-2018
09:00 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-19-2018
09:00 AM
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 ![]()
If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State
Custom Glyph Icon for iMates
Mass Override for Each Model State
Custom Glyph Icon for iMates