InstantGrade Example

Examples:

l EGProfile (Civil Engineering Feature)

l FGProfile (Civil Engineering Feature)

Sub Example_InstantGrade_FGProfile()

    ' This example gets a station from the user and returns the grade 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)

    Dim station As Double

    Dim grade As Double

    Dim prompt As String

    'Format the prompt and get the station

    prompt = "Enter a station on alignment " & align.Name & ": "

    station = ThisDrawing.Utility.GetReal(prompt)

    'Get the grade

    EGProf.InstantGrade station, grade

    MsgBox "The grade at station and format the prompt" & Format(station, "0.00") & " is: " _

        & Format(grade, "0.00") & "%.", vbInformation, "InstantGrade Example"

End Sub

Sub Example_InstantGrade_FGProfile()

    ' This example gets a station from the user and returns the grade and difference

    ' for the first finished ground profile in the first alignment in the collection.

    Dim align As AeccAlignment

    Dim FGProf As AeccFGProfile

    Set align = AeccApplication.ActiveProject.Alignments.Item(0)

    Set FGProf = align.FGProfiles.Item(0)

    Dim station As Double

    Dim grade As Double

    Dim diff As Double

    Dim prompt As String

    'Format the prompt and get the station

    prompt = "Enter a station on alignment " & align.Name & ": "

    station = ThisDrawing.Utility.GetReal(prompt)

    'Get the grade and difference

    FGProf.InstantGrade station, grade, diff

    MsgBox "The grade at station " & Format(station, "0.00") & " is: " _

        & Format(grade, "0.00") & vbCrLf & _

        "% and the difference is " & Format(diff, "0.00") & "%.", _

        vbInformation, "InstantGrade Example"

End Sub