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