Geometry Applications Geometry.GetNodeCount VB Syntax Parameters -none- Remarks This function returns the number of nodes in the currently open STAAD file. Example Dim objOpenSTAAD As Object Dim lNodeCount as Long 'Get the application object Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD") 'Get Nodes Count lNodeCount = objOpenSTAAD.GetNodeCount Geometry.GetNodeList VB Syntax long Geometry.GetNodeList (Long NodeNumberArray) Parameters NodeNumberArray Long Array variable in which the node numbers are returned. Remarks This function returns the node list of the current STAAD file. Example Dim objOpenSTAAD As Object Dim lNodeCnt as Long 'Get the application object Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD") 'Get Node Numbers lNodeCnt = objOpenSTAAD.GetNodeCount ReDim NodeNumberArray(0 to (lNodeCnt-1)) As Long 'Get node list objOpenSTAAD.Geometry.GetNodeList (NodeNumberArray) Geometry.AddNode VB Syntax Geometry.AddNode (double CoordX, double CoordY, double CoordZ) Parameters CoordX, CoordY, CoordZ | |
|