OpenSTAAD V8i

Geometry.SelectMultipleSolids

This function selects multiple solids in the structure.

Where:

aSolidNos

Long array variable providing the solid numbers to be selected.

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