OpenSTAAD V8i

Geometry.SplitBeam

This function splits a beam.

Where:

BeamNo

A long variable providing the beam member number to split.

Nodes

A long variable providing the number of nodes to be inserted in the beam.

DistToNodeArray

Double array variable containing the distance in length to the nodes.

 Dim objOpenSTAAD As Object
 Dim BeamNo As Long
 Dim Nodes As Long
 Dim DistToNode(4) As Double
'Get the application object --
 Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Split Beam no 10 (length 5m say) into three unequal parts
 BeamNo = 10
 Nodes = 2
 DistToNode(0) = 1.0
 DistToNode(1) = 4.0
 objOpenSTAAD.Geometry.SplitBeam BeamNo, Nodes, DistToNode