OpenSTAAD V8i
Select entities as specified.
Where:
An integer variable that holds entity type. Values may be as follows:
1 = Node
2 = Beam
3 = Plate
4 = Solid
5 = Surface
A long variable that holds total number of entities needs to be selected.
Long array variable holds the entity nos, which need to be selected.
Dim objOpenSTAAD As Object
Dim intEntityType as Integer
Dim lItemNumber as Long
Dim lItemListArray() as Array
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Variables
lItemNumber = 3
ReDim lItemListArray(0 to 2) As Long
lItemListArray(0) = 1
lItemListArray(1) = 2
lItemListArray(2) = 5
'Select by list
objOpenSTAAD.View.SelectByItemList (intEntityType, lItemNumber, lItemListArray)