OpenSTAAD V8i

Geometry.SelectMultipleBeams

This function selects multiple beams in the structure.

Where:

aBeamNos

Long array variable providing the beam numbers to be selected.

 Dim objOpenSTAAD As Object
 Dim BeamNos(6) As Long
'Get the application object
 Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Select beams no 1 to 7
 For I = 0 To 6
  BeamNos(I) = I+1
 Next I
 objOpenSTAAD.Geometry.SelectMultipleBeams BeamNos