OpenSTAAD V8i
This function returns the node list of the current STAAD file.
Where:
Long Array variable in which the node numbers are returned.
Dim objOpenSTAAD As Object
Dim lNodeCnt as Long
Dim NodeNumberArray() As Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get Node Numbers
lNodeCnt = objOpenSTAAD.Geometry.GetNodeCount()
ReDim NodeNumberArray(0 to (lNodeCnt-1)) As Long
'Get node list
objOpenSTAAD.Geometry.GetNodeList NodeNumberArray