CrossSectionBlocks Example

CrossSectionBlocks Example

Sub Example_CrossSectionBlocks()

    ' This example returns the count of cross section blocks in

    ' the current document.

    Dim doc As AeccDocument

    Set doc = AeccApplication.ActiveDocument

    MsgBox "The number of cross section blocks in the current document is " &  _

        doc.CrossSectionBlocks.Count, vbInformation, "CrossSectionBlocks Example"

End Sub