OpenSTAAD V8i

Geometry.SelectMultiplePlates

This function selects multiple plates in the structure.

Where:

aPlateNos

Long array variable providing the plate numbers to be selected.

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