CrossSectionSurfaces Example
Sub Example_CrossSectionSurfaces()
' This example returns the count of surfaces for the
' first cross section in the collection.
Dim align As AeccAlignment
Dim xSect As AeccCrossSection
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Set xSect = align.CrossSections.Item(0)
MsgBox "The number of surfaces in the first cross section is: " _
& xSect.CrossSectionSurfaces.Count, vbInformation, "CrossSectionSurfaces Example"
End Sub