StartingStation Example

Examples:

l ProfileBlock (Civil Engineering Feature)

Sub Example_StartingStation_AlignEntity()

    ' This example returns the StartingStation for the first entity in the

    ' first Alignment in the collection.

    Dim align As AeccAlignment

    Dim alignEnt As AeccAlignEntity

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

    Set alignEnt = align.AlignEntities.Item(0)

    MsgBox "The StartingStation of the first entity in the Alignment is: " & _

        alignEnt.StartingStation, vbInformation, "StartingStation Example"

End Sub

Sub Example_StartingStation_Alignment()

    ' This example returns the StartingStation for the first alignment

    ' in the collection.

    Dim align As AeccAlignment

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

    MsgBox "The StartingStation of the first Alignment is: " & align.StartingStation, _

        vbInformation, "StartingStation Example"

End Sub

Sub Example_StartingStation_ProfileBlock()

    ' This example returns the StartingStation for the first ProfileBlock

    ' in the collection

    Dim alignProf As AeccProfileBlock

    Set alignProf = AeccApplication.ActiveDocument.ProfileBlocks.Item(0)

    MsgBox "The StartingStation for the first ProfileBlock in the collection is: " _

         & alignProf.StartingStation, vbInformation, "StartingStation Example"

End Sub