OpenSTAAD V8i
This function returns the number of nodes in the currently open STAAD file.
(Numeric value) The total number of nodes in the model as a long variable.
Dim objOpenSTAAD As Object
Dim lNodeCount as Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get Nodes Count
lNodeCount = objOpenSTAAD.Geometry.GetNodeCount ()