CrossSections Example

CrossSections Example

Sub Example_CrossSections()

    ' This example returns the number of cross sections for the

    ' first alignment in the collection.

    Dim align As AeccAlignment

    Set align = AeccApplication.ActiveProject.Alignments.Item(0)

    MsgBox "The number of cross sections in first alignment is: " _

        & align.CrossSections.Count , vbInformation, "CrossSections Example"

End Sub