Applies To
	Product(s):	STAAD.Pro
	Version(s):	All
	Environment:	N/A
	Area:	OpenSTAAD
	Subarea:	Geometry
	Original Author:	Bentley Technical Support Group

Problem Description:

How to split a member at specific distances using OpenSTAAD function?

Solution:

You may use these two functions SplitBeam and SplitBeamInEqlParts

Function:

SplitBeam: Split a beam into several beams by specified distances

Parameter:

• [Input] nBeamNo: Number ID of the beam to split
• [Input] nNodes: The number of node(s) to be inserted in the beam
• [Input] faDistToNodes: Array of distance(s) in length from the starting end node of member

 

Sample VBA Syntax for function SplitBeam:

    Dim nBeamNo As Long
    Dim nNodes As Long
    Dim faDistToNodes(3) As Double
    Set objOpenStaad = GetObject(, "StaadPro.OpenSTAAD")

    nBeamNo = 1 ' Beam Length is 10 m
    nNodes = 4
    faDistToNodes(0) = 2
    faDistToNodes(1) = 5
    faDistToNodes(2) = 6
    faDistToNodes(3) = 9
' Add split Beam # 1 into 5 unequal parts.
 objOpenStaad.Geometry.SplitBeam nBeamNo, nNodes, faDistToNodes

Output:

Function:

SplitBeamInEqlParts: Split a member into several equal beams by specified number of nodes

Parameter:

• [Input] nBeamNo: Number ID of the beam to split
• [Input] nParts: The number of parts into which the beam is to be split

Sample VBA Syntax for function SplitBeamInEqlParts:

    Dim nBeamNo As Long

    Dim nParts As Long
    Set objOpenStaad = GetObject(, "StaadPro.OpenSTAAD")

    nParts = 5
    ' Split Beam # 1 into five equal parts.
    objOpenStaad.Geometry.SplitBeamInEqlParts nBeamNo, nParts

Output: