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