StationEquation Example

Land Auto

StationExample Example

Sub Example_StationEquations()
    
    ' This example returns the number of StationEquations for the
    ' first Alignment in the collection.
    Dim align As AeccAlignment
    Dim staEqu As AeccStationEquations
    Set align = AeccApplication.ActiveProject.Alignments.Item(0)
    Set staEqu = align.StationEquations
    
    MsgBox "The number of StationEquations in this project is: " & staEqu.Count , vbInformation, "StationEquations Example"
    
End Sub