OpenSTAAD V8i
This function adds a solid element between existing nodes.
Where:
Long variables, provide solid element connectivity.
(Boolean) True (1) if the function is successful, false (0) otherwise.
Dim objOpenSTAAD As Object
Dim NodeA As Long
Dim NodeB As Long
Dim NodeC As Long
Dim NodeD As Long
Dim NodeE As Long
Dim NodeF As Long
Dim NodeG As Long
Dim NodeH As Long
'Get the application object --
'Add a solid connected between nodes 2, 4, 5, 6 and 9, 10, 11, 12
NodeA = 2
NodeB = 4
NodeC = 5
NodeD = 6
NodeE = 9
NodeF = 10
NodeG = 11
NodeH = 12
objOpenSTAAD.Geometry.AddSolid NodeA, NodeB, NodeC, NodeD _
NodeE, NodeF, NodeG, NodeH