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

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.

EESignature


Blog: hjalte.nl - github.com