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