RE: How to add a reference load with a load factor to a load case using openSTAAD commands

Shreyanka Bhattacharjee — Wed, 19 Apr 2023 10:50:57 GMT

Yes, you need to use AddReferenceLoad function.

I would like to mention one thing here that the datatype of the Primary or Reference Load case number should be Long instead of Double

Sample VBA Syntax is

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
Dim LoadCaseNo As Long
Dim RefLoadNo(2) As Long
Dim LoadFactor(2) As Double

LoadCaseNo = 1
objOpenSTAAD.Load.SetLoadActive LoadCaseNo

RefLoadNo(0) = 2
RefLoadNo(1) = 4
RefLoadNo(2) = 5

LoadFactor(0) = 1.2
LoadFactor(1) = 1
LoadFactor(2) = 0.9

objOpenSTAAD.Load.AddReferenceLoad RefLoadNo, LoadFactor

Tom Pallister — Tue, 18 Apr 2023 08:47:59 GMT

The answer is

ObjOPENSTAAD.Load.AddLoadRefEx2 LoadCaseNo, RefLoadNo, LoadFactor ' in form LoadCase, Node, Factor

to be replaced with

ObjOPENSTAAD.Load.SetLoadActive LoadCaseNo

ObjOPENSTAAD.Load.AddReferenceLoad RefLoadNo, LoadFactor