Problem Description:
How to create wind definition and add height vs intensity data using OpenSTAAD function
Solution:
You need use these two functions
Parameter of function AddWindDefinition:
[input] TypeNo: Wind Definition Type number ID
[input] TypeName: Wind Definition name
Parameter of function AddWindIntensity:
[Input] TypeNo: Wind Definition Type number ID
[Input] Intensity: Intensity value (Unit: Force/Length^2)
[Input] Height: Height value (Unit: Length)
Sample VBA Syntax:
Set objOpenStaad = GetObject(, "StaadPro.OpenSTAAD")
Dim TypeNo As Long
Dim TypeName As String
Dim intensity(1) As Double
Dim height(1) As Double
TypeNo = 1
TypeName = "WIND 1"
objOpenStaad.Load.AddWindDefinition TypeNo, TypeName
intensity(0) = 1.24
intensity(1) = 1.41
height(0) = 10
height(1) = 15
objOpenStaad.Load.AddWindIntensity TypeNo, intensity, height
Output: