Superelevations Example

Land Auto

previous page next page

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

previous page start next page