Macro For extracting Reactions for all the Loads and nodes at a time

Dear All,

I will be glad if you help me with the code. I Already have a code where i need to enter load case number to get the reactions at the particular load case. 

I have almost 1000 load cases and i want all the load cases to get in excel at once. 

the code i have is 

Private Sub CommandButton1_Click()

Dim objOpenSTAAD As Object
Dim supp_count As Long
Dim supp_nodes() As Long
Dim loadcase As Long
Dim dReactionArray(0 To 5) As Double
Dim count As Integer
Dim count1 As Integer

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")

loadcase = Cells(1, 2).Value

supp_count = objOpenSTAAD.Support.GetSupportCount

ReDim supp_nodes(0 To (supp_count - 1)) As Long

objOpenSTAAD.Support.GetSupportNodes supp_nodes

For count = 1 To supp_count

objOpenSTAAD.Output.GetSupportReactions supp_nodes(count - 1), loadcase, dReactionArray

Cells(count + 2, 1).Value = supp_nodes(count - 1)

For count1 = 1 To 6

Cells(count + 2, count1 + 1).Value = dReactionArray(count1 - 1)

Next

Next

Set objOpenSTAAD = Nothing

End Sub

Parents Reply Children
No Data