Superelevations Example

Superelevations Example

Sub Example_Superelevations()

    ' This example returns the number of superelevations for the

    ' first alignment in the collection.

    Dim align As AeccAlignment

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

    MsgBox "The number of superelevations in first alignment is: " _

        & align.Superelevations.Count , vbInformation, "Superelevations Example"

End Sub