OpenSTAAD V8i
This function adds a node in the structure.
Where:
Double variables providing the nodal coordinates X, Y and Z of the NodeNo.
(Boolean) True (1) if the function is successful, false (0) otherwise.
Dim objOpenSTAAD As Object
Dim CoordX As Double
Dim CoordY As Double
Dim CoordZ As Double
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
CoordX = 3.0
CoordY = 2.0
CoordZ = 3.0
'Add a node (3.0, 2.0, 3.0)
objOpenSTAAD.Geometry.AddNode CoordX, CoordY, CoordZ