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