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.
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.GetNodeIncidence NodeNo, CoordX, CoordY, CoordZ