OpenSTAAD V8i
This function adds multiple solid elements.
Where:
Long array of m x 8 dimension containing solid element connectivity.
Dim objOpenSTAAD As Object
Dim Incidences(6, 7) As Long
'Get the application object --
For I = 0 To 6
'Front face
Incidences (I, 0) = … 'ith node
Incidences (I, 1) = … 'jth node
Incidences (I, 2) = … 'kth node
Incidences (I, 3) = … 'lth node
'Back face
Incidences (I, 4) = … 'mth node
Incidences (I, 5) = … 'nth node
Incidences (I, 6) = … 'oth node
Incidences (I, 7) = … 'pth node
Next I
'Add multiple solids
objOpenSTAAD.Geometry.AddMultipleSolids Incidences