OpenSTAAD V8i
This function returns the number of solids in the currently open STAAD file.
(Numeric value) The total number of solids in the model as a long variable.
Dim objOpenSTAAD As Object
Dim lSolidCount as Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get Solids Count
lSolidCount = objOpenSTAAD.Geometry.GetSolidCount ()
Reference Materials