OpenSTAAD V8i
This function adds multiple nodes in the structure.
Where:
Double array of m x 3 dimension containing X, Y and Z coordinates of nodes.
Dim objOpenSTAAD As Object
Dim Coordinates(6,2) As Double
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
For I = 0 To 6
Coordinates(I, 0) = … 'X coordinate
Coordinates(I, 1) = … 'Y coordinate
Coordinates(I, 2) = … 'Z coordinate
Next I
'Add multiple nodes
objOpenSTAAD.Geometry.AddMultipleNodes Coordinates