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