OpenSTAAD V8i
This function adds multiple plate elements.
Where:
Long array of m x 4 dimension containing plate element connectivity.
Dim objOpenSTAAD As Object
Dim Incidences(6, 3) As Long
'Get the application object --
For I = 0 To 6
Incidences (I, 0) = … 'ith node
Incidences (I, 1) = … 'jth node
Incidences (I, 2) = … 'kth node
Incidences (I, 3) = … 'lth node
Next I
'Add multiple plates
objOpenSTAAD.Geometry.AddMultiplePlates Incidences