OpenSTAAD V8i
Returns the connecting joints of the specified plate.
Where:
A long variable providing the plate number.
Long variables in which all the node numbers for the plate element are returned.
Dim objOpenSTAAD As Object
Dim PlateNo As Long
Dim NodeA As Long
Dim NodeB As Long
Dim NodeC As Long
Dim NodeD As Long
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get a Plate
PlateNo = 5
objOpenSTAAD.Geometry.GetPlateIncidence PlateNo, NodeA, NodeB, NodeC, NodeD