Hi STAAD fans,
I have found the solution. It is the following:
For i = 0 To (lBeamCnt - 1)
objOpenSTAAD.Geometry.GetBeamList BeamNumberArray
'MsgBox "Beam Number from list " & objOpenSTAAD.Geometry.GetBeamList(BeamNumberArray(i))
Sheets("MinMaxForcesMoments").Cells(i + 2, 2).Value = BeamNumberArray(i)
Next i
I have found the solution. It is the following:
For i = 0 To (lBeamCnt - 1)
objOpenSTAAD.Geometry.GetBeamList BeamNumberArray
'MsgBox "Beam Number from list " & objOpenSTAAD.Geometry.GetBeamList(BeamNumberArray(i))
Sheets("MinMaxForcesMoments").Cells(i + 2, 2).Value = BeamNumberArray(i)
Next i