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

Problem Description:

How to assign Fixed and Pinned type support to nodes using OpenSTAAD function

Solution:

You need use these three functions

• CreateSupportFixed: Creates a fully fixed support.
• CreateSupportPinned: Creates a pinned support 
• AssignSupportToNode: Assigns the specified support to node(s)

Parameter of function AssignSupportToNode:

[Input] varnNodeNo: The node number ID(s) 

[Input] varnSupportNo: Support Reference number ID

Sample VBA Syntax:

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")

Dim nodef(3) As Long 'Node ID for fixed type support

Dim nodep(3) As Long 'Node ID for pinned type support

Dim fixedSupport(0) As Long

Dim pinnedSupport(0) As Long

 

nodef(0) = 1

nodef(1) = 4

nodef(2) = 7

nodef(3) = 10

fixedSupport(0) = objOpenSTAAD.Support.CreateSupportFixed ‘Creates Fixed Support

For i = 0 To 3

objOpenSTAAD.Support.AssignSupportToNode nodef(i), fixedSupport(0) 'Assign fixed support to nodes

Next i

 

pinnedSupport(0) = objOpenSTAAD.Support.CreateSupportPinned ‘Creates Pinned Support

nodep(0) = 2

nodep(1) = 5

nodep(2) = 8

nodep(3) = 11

For i = 0 To 3

objOpenSTAAD.Support.AssignSupportToNode nodep(i), pinnedSupport(0) 'Assign pinned support to node

Next i

Output: