StartDirection Example

StartDirection Example

Examples:

l AlignCurve

l AlignSpiral

---

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