Quantcast
Channel: RAM | STAAD Forum - Recent Threads
Viewing all articles
Browse latest Browse all 16762

open staad array declaration error

$
0
0

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.


Viewing all articles
Browse latest Browse all 16762

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>