CrossSectionPointCodes Example

CrossSectionPointCodes Example

Sub Example_CrossSectionPointCodes()

    ' This example returns the count of point codes 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 point codes in the first cross section is: " _

        & xSect.CrossSectionPointCodes.Count, vbInformation, "CrossSectionPointCodes Example"

End Sub