SpiralType1 Example

Land Auto

SpiralType1 Example

Sub Example_SpiralType1()
    
    ' This example returns the SpiralType1 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 SpiralType1 for the first Spiral in the alignment is: " & alignEnt.SpiralType1
            Exit For
        End If
    Next
    
    MsgBox alignMsg, vbInformation, "SpiralType1 Example"
    
End Sub