StationElevations Example

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