OpenSTAAD V8i

Geometry.GetSolidIncidence

Returns the connecting joints of the specified solid.

Where:

SolidNo

A long variable providing the solid number.

NodeA, NodeB, NodeC, NodeD, NodeE, NodeF, NodeG, NodeH

Long variables in which all the node numbers for the solid element are returned.

 Dim objOpenSTAAD As Object
 Dim SolidNo As Long
 Dim NodeA As Long
 Dim NodeB As Long
 Dim NodeC As Long
 Dim NodeD As Long
 Dim NodeE As Long
 Dim NodeF As Long
 Dim NodeG As Long
 Dim NodeH As Long
'Get the application object
 Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get a Solid
 SolidNo = 5
 objOpenSTAAD.Geometry.GetSolidIncidence SolidNo, NodeA, NodeB, NodeC, NodeD, NodeE, NodeF, NodeG, NodeH