GetStaStrWithEquations Example

GetStaStrWithEquations Example

Sub Example_GetStaStrWithEquation()

    ' This example gets the GetStaStrWithEquations 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 String

    Dim Station As Double

    ' Get the station

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

    ' Get the station with Station Equations applied

    staEqu = Align.GetStaStrWithEquations(Station)

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

End Sub