OpenSTAAD V8i
Returns the coordinates of the specified node.
Where:
A long variable providing the node number.
Double variables in which the nodal coordinates X, Y, and Z of the NodeNo are returned.
(Boolean) True (1) if the function is successful, false (0) otherwise.
Dim objOpenSTAAD As Object
Dim NodeNo As Long
Dim CoordX As Double
Dim CoordY As Double
Dim CoordZ As Double
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get a node
NodeNo = 10
objOpenSTAAD.Geometry.GetNodeCoordinates NodeNo, CoordX, CoordY, CoordZ