GetStaWithEquation Example

GetStaWithEquation Example

Sub Example_GetStaWithEquation()

    ' This example gets the GetStaWithEquations from a user supplied station

    ' for the first Alignment in the collection.

    Dim align As AeccAlignment

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

    Dim staEqu As Double

    Dim station As Double

    ' Get the station

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

    ' Get the station with Station Equations applied

    staEqu = align.GetStaWithEquations(station)

    MsgBox "The GetStaWithEquation value for station " & station & " is: " & staEqu, vbInformation, "GetStaWithEquation Example"

End Sub