【背景描述】

在结构分析中，风荷载的强度会随高度变化（比如高处风速更大，风荷载更强）。我们需要通过两个步骤完成风荷载的基础设置：

1. 创建风荷载定义：给风荷载起个名字、编个号，相当于建立一个 “风荷载档案”；
2. 添加高度 - 强度数据：记录不同高度对应的风荷载强度，形成 “高度 - 强度对照表”。

函数名	作用	参数说明
AddWindDefinition	创建风荷载定义	[input] TypeNo: Wind Definition Type number ID [input] TypeName: Wind Definition name
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