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