EndingStation Example
Examples:
l AlignEntity, AlignCurve, AlignSpiral, AlignTangent
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