StartDirection Example
Examples:
Sub Example_StartDirection_AlignCurve()
' This example returns the StartDirection for the first Curve found in the
' first Alignment in the collection.
Dim align As AeccAlignment
Dim alignEnts As AeccAlignEntity
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Dim alignMsg As String
alignMsg = "There is no Curve entity in the first Alignment."
' Find first Curve in the alignment
For Each alignEnt In align.AlignEntities
If alignEnt.Type = kCurve Then
alignMsg = "The StartDirection for the first Curve in the alignment is: " & alignEnt.StartDirection
Exit For
End If
Next
MsgBox alignMsg, vbInformation, "StartDirection Example"
End Sub
Sub Example_StartDirection_AlignSpiral()
' This example returns the StartDirection for the first Spiral found in the
' first Alignment in the collection.
Dim align As AeccAlignment
Dim alignEnts As AeccAlignEntity
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Dim alignMsg As String
alignMsg = "There is no Spiral entity in the first Alignment."
' Find first Spiral in the alignment
For Each alignEnt In align.AlignEntities
If alignEnt.Type = kSpiral Then
alignMsg = "The StartDirection for the first Spiral in the alignment is: " & alignEnt.StartDirection
Exit For
End If
Next
MsgBox alignMsg, vbInformation, "StartDirection Example"
End Sub