OpenSTAAD V8i
Returns the member number of the last solid in the model.
(Numeric value) The number of the highest solid number in the model as a long variable.
Dim objOpenSTAAD As Object
Dim LastSolidNo As Long
'Get the application object --
'Get last solid no.
LastSolidNo = objOpenSTAAD.Geometry.GetLastSolidNo ()