OpenSTAAD V8i
This function returns the solid list of the current STAAD file.
Where:
Long Array variable in which the solid numbers are returned.
Dim objOpenSTAAD As Object
Dim lSolidCnt as Long
Dim SolidNumberArray() As Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get Solid Numbers
lSolidCnt = objOpenSTAAD.Geometry.GetSolidCount
ReDim SolidNumberArray(0 to (lSolidCnt-1)) As Long
'Get Solid list
objOpenSTAAD.Geometry.GetSolidList SolidNumberArrayReference Materials