02-12-2021
05:36 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-12-2021
05:36 AM
points(i).Point is read only there for it cant be transformed. try to create a new point and transform that point. something like this:
For i = 0 To UBound(points)
dim newPoint as Point
newPoint = points(i).Point
newPoint.TransformBy(yourUCSmat)
Dim xCoord As Double
xCoord = uom.ConvertUnits(newPoint.X, _
kCentimeterLengthUnits, kDefaultDisplayLengthUnits)
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com