| 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 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:
