OpenSTAAD V8i
This function returns the plate list of the current STAAD file to an array.
Where:
Long Array variable in which the plate numbers are returned.
Dim objOpenSTAAD As Object
Dim lPlateCnt as Long
Dim PlateNumberArray() As Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
‘Get Plate Numbers
lPlateCnt = objOpenSTAAD.Geometry.GetPlateCount
ReDim PlateNumberArray(0 to (lPlateCnt-1)) As Long
'Get Plate list
objOpenSTAAD.Geometry.GetPlateList PlateNumberArrayReference Materials