OpenSTAAD V8i
This function returns the member list of the current STAAD file.
Where:
Long Array variable in which the beam numbers are returned.
Dim objOpenSTAAD As Object
Dim lBeamCnt as Long
Dim BeamNumberArray() As Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get Beam Numbers
lBeamCnt = objOpenSTAAD.Geometry.GetMemberCount
ReDim BeamNumberArray(0 to (lBeamCnt-1)) As Long
'Get Beam list
objOpenSTAAD.Geometry.GetBeamList BeamNumberArray
Reference Materials