Problem Description:
How to add Wind Load case using OpenSTAAD function
Solution:
You need to use function AddWindLoad along with function SetLoadActive
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: