EastNorthToXy Example

Sub Example_EastNorthToXy()

    'This example returns the X and Y for a Easting Northing.

    Dim util As AeccUtility

    Set util = AeccApplication.ActiveDocument.Utility

    Dim var1 As Variant

    Dim ptEN(0 To 2) As Double

    Dim ptXY (0 To 2) As Double

    Dim str As String

    ptEN(0) = 1000

    ptEN(1) = 1000

    ptEN(2) = 0

    ' Convert point to X, Y

    var1 = util.EastNorthToXy(ptEN)

    ptXY(0) = var1(0)

    ptXY(1) = var1(1)

    ptXY(2) = var1(2)

    ' Make display string

    str = Format(ptXY(0), "0.00") + ", " + Format(ptXY(1), "0.00") + ", " +  Format(ptXY(2), "0.00")

    MsgBox "Point: " & str , vbInformation, "EastNorthXy Example"

End Sub