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

Problem Description:

How to add Wind Load case using OpenSTAAD function

Solution:

You need to use function AddWindLoad along with function SetLoadActive

• AddWindLoad function adds wind load at specified direction and range (X, Y, Z)
• SetLoadActive makes the specified load number active, in order to add or remove load item(s).

Parameter for function SetLoadActive:

[Input]   LoadNo: The load case reference number ID

Parameter for function AddWindLoad:

[Input]   varTypeNo: Wind Definition Type number ID.

[Input]   varDirection: Wind load direction: 1= Global X; 3=Global Z; 4=Global -X; 6=Global -Z

[Input]   dFraction: factor to be used to multiply the wind loads. Negative signs may be used to indicate opposite direction of resulting load

[Input]   varOpenStructure: Open-type of structure (= TRUE), closed-type of structure (= FALSE).

[Input]   dYMIN: Ymin of GLOBAL Y range in which Wind load applied (assume Y axis is vertical).

[Input]   dYMAX: Ymax of GLOBAL Y range in which Wind load applied (assume Y axis is vertical).

[Input]   dZMIN:  Zmin of GLOBAL Z range in which Wind load applied (assume Y axis is vertical).

[Input]   dZMAX: Zmax of GLOBAL Z range in which Wind load applied (assume Y axis is vertical).

[Input]   dXMIN: Xmin of GLOBAL X range in which Wind load applied (assume Y axis is vertical).

[Input]   dXMAX: Xmax of GLOBAL X range in which Wind load applied (assume Y axis is vertical).

Sample VBA Syntax:

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

 

Dim varTypeNo As Long

Dim varDirection As Long

Dim dFraction As Double

Dim varOpenStructure As Long

Dim dYMIN As Double

Dim dYMAX As Double

Dim dZMIN As Double

Dim dZMAX As Double

Dim dXMIN As Double

Dim dXMAX As Double

Dim LoadNo As Long

 

varTypeNo = 1

dFraction = -1.2

varOpenStructure = False

varDirection = 1 '1=+X

dYMIN = 2.9

dYMAX = 14.1

dZMIN = -0.9

dZMAX = 9.1

dXMIN = -0.1

dXMAX = 0.1

LoadNo = 1

objOpenStaad.Load.SetLoadActive LoadNo

objOpenStaad.Load.AddWindLoad varTypeNo, varDirection, dFraction, varOpenStructure, dYMIN, dYMAX, dZMIN, dZMAX, dXMIN, dXMAX

Output: