OpenSTAAD V8i

Geometry.GetSelectedPlates

Returns the plate numbers selected in SelPlateArray variable. Call this function after GetNoOfSelectedPlates.

Parameter

SelPlateArray

A Long array variable to receive the selected plate numbers.

Sorted

Integer variable: 1 = return the selections in sorted order, 0 = to return in the order of selection.

 Dim objOpenSTAAD As Object
 Dim SelPlatesNo As Long
 Dim SelPlates() As Long
'Get the application object --
'Get no. of selected plates
 SelPlatesNo = objOpenSTAAD.Geometry.GetNoOfSelectedPlates
'Reallocate
 ReDim SelPlates(SelPlatesNo-1) As Long
 objOpenSTAAD.Geometry.GetSelectedPlates SelPlates 1