EndingStation Example

Examples:

l ProfileBlock (Civil Engineering Feature)

Sub Example_EndingStation_AlignEntity()

    ' This example returns the EndingStation 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 EndingStation of the first entity in the Alignment is: " & _

        alignEnt.EndingStation, vbInformation, "EndingStation Example"

End Sub

Sub Example_EndingStation_Alignment()

    ' This example returns the EndingStation for the first Alignment in the collection.

    Dim align As AeccAlignment

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

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

        vbInformation, "EndingStation Example"

End Sub

Sub Example_EndingStaion_ProfileBlock()

    ' This example returns the EndingStation for the first ProfileBlock

    ' in the collection

    Dim alignProf As AeccProfileBlock

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

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

         & alignProf.EndingStation, vbInformation, "EndingStation Example"

End Sub