StationElevations Example
Sub Example_StationElevations()
' This example uses StationElevations to displays the station and elevation
' for the first existing ground profile in the first alignment in the collection.
Dim align As AeccAlignment
Dim EGProf As AeccEGProfile
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Set EGProf = align.EGProfiles.Item(0)
MsgBox "The first station for the first existing ground profile is: " _
& Format(EGProf.StationElevations(0), "0.00") & vbCrLf & _
"The first elevation for the first existing ground profile is: " _
& Format(EGProf.StationElevations(1), "0.00") & vbCrLf, _
vbInformation, "StaionElevations Example"
End Sub