OpenSTAAD V8i

Geometry.SplitBeamInEqlParts

This function splits a beam into equal parts.

Where:

BeamNo

A long variable providing the beam member number to split.

Parts

Long variable providing the number of parts into which the beam is to be split.

 Dim objOpenSTAAD As Object
 Dim BeamNo As Long
 Dim Parts As Long
'Get the application object --
 Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Split Beam no 10 (length 5m say) into three equal parts
 BeamNo = 10
 Parts = 3
 objOpenSTAAD.Geometry.SplitBeamInEqlParts BeamNo, Parts