OpenSTAAD V8i
This function adds a beam between two specified existing nodes.
Where:
Long variables, provide member connectivity.
(Boolean) True (1) if the function is successful, false (0) otherwise.
Dim objOpenSTAAD As Object
Dim NodeA As Long
Dim NodeB As Long
'Get the application object --
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Add a beam connected between nodes 2 and 4
NodeA = 2
NodeB = 4
objOpenSTAAD.Geometry.AddBeam NodeA, NodeB