Dear All
I am unable to read the Support Reaction Data using the following code
What is the mistake I have done?
Option Explicit
Dim dReactionArray(6) As Double
Sub Main()
'DESCRIPTION:Description of the macro goes here
'TODO: Add your code here
Dim objOpenSTAAD As Object
Set objOpenSTAAD = GetObject(,"StaadPro.OpenSTAAD")
objOpenSTAAD.Output.GetSupportReactions (47, 1, dReactionArray)
MsgBox "FX" & dReactionArray(0)
End Sub
