OpenSTAAD V8i
This function adds multiple beams.
Where:
Long array of m x 2 dimension containing member connectivity.
(Boolean) True (1) if the function is successful, false (0) otherwise.
Dim objOpenSTAAD As Object
Dim Incidences(6, 1) As Long
'Get the application object --
For I = 0 To 6
Incidences (I, 0) = … 'ith node
Incidences (I, 1) = … 'jth node
Next I
'Add multiple beams
objOpenSTAAD.Geometry.AddMultipleBeams Incidences