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