OpenSTAAD V8i
This function returns the surface list of the current STAAD file.
Where:
Long Array variable in which the surface numbers are returned.
Dim objOpenSTAAD As Object
Dim lSurfaceCnt as Long
Dim SurfaceNumberArray() As Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get Surface Numbers
lSurfaceCnt = objOpenSTAAD.GetSurfaceCount
ReDim SurfaceNumberArray(0 to (lSurfaceCnt-1)) As Long
'Get Surface list
objOpenSTAAD.Geometry.GetSurfaceList SurfaceNumberArrayReference Materials