Sub Platestr()
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) = 25000 To 25035
'Select by list
objOpenSTAAD.View.SelectByItemList (intEntityType, lItemNumber, lItemListArray)
objOpenSTAAD.Output.GetAllPlateCenterPrincipalStressesAndAngles (lPlateNo, lLoadCase, _
lStressesAndAnglesArray)
End Sub
**********************
Thanks for your help.