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