OpenSTAAD V8i
Returns total number of different sectional properties exist in the current STAAD file.
Dim lSectionPropertyCount as Long
'Get the application object --
'Get Property
lSectionPropertyCount = objOpenSTAAD.Property.GetSectionPropertyCount