OpenSTAAD V8i
Returns the beam numbers selected in SelBeamArray variable. Call this function after GetNoOfSelectedBeams.
A Long array variable to receive the selected beam numbers.
Integer variable: 1 = return the selections in sorted order, 0 = to return in the order of selection.
Dim objOpenSTAAD As Object
Dim SelBeamsNo As Long
Dim SelBeams() As Long
'Get the application object --
'Get no. of selected beams
SelBeamsNo = objOpenSTAAD.Geometry.GetNoOfSelectedBeams
'Reallocate
ReDim SelBeams(SelBeamsNo-1) As Long
objOpenSTAAD.Geometry.GetSelectedBeams SelBeams 1
Reference Materials