PointLocation Example

PointLocation Example

Sub Example_PointLocation()

    ' This example gets the PointLocation from user supplied values

    ' for the first Alignment in the collection.

    Dim align As AeccAlignment

    Set align = AeccApplication.ActiveProject.Alignments.Item(0)

    Dim station As Double

    Dim offset As Double

    Dim easting As Double

    Dim northing As Double

    Dim direction As Double

    ' Get the station and the offset

    station = ThisDrawing.Utility.GetReal("Enter the station for the point: ")

    offset = ThisDrawing.Utility.GetReal("Enter the offset for the point: ")

    ' Get the point location

    align.PointLocation station, offset, easting, northing, direction

    MsgBox "The Point Location is:" & vbCrLf & _

        "   Easting: " & easting & vbCrLf & _

        "   Northing: " & northing & vbCrLf & _

        "   Direction: " & direction, vbInformation, "PointLocation Example"

End Sub