Regarding openSTAAD

This is the program I wrote for finding support reactions in node 1 for loadcase 1001, but on running I am getting input as 6 zeroes, please help me how to correct it.

Private Sub CommandButton1_Click()
Dim objOpenSTAAD As Object
Dim A(6) As Double
Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
objOpenSTAAD.Output.GetSupportReactions 1, 1001, A
For b = 1 To 6
Range("b2").Offset(0, b - 1) = A(b - 1)
Next b
End Sub

Thanks

Jaseel

Parents Reply Children
No Data