OpenSTAAD | OSLoadUI::CreateLoadEnvelop is not working properly

RE: OpenSTAAD | OSLoadUI::CreateLoadEnvelop is not working properly

Denisson Cruz — Thu, 23 Dec 2021 16:19:59 GMT

After testing the code, OpenSTAAD function only creates the envelopes by typing the function as objOpenSTAAD.Load.CreateLoadEnvelop(varEnvNo, varEnvType, varLoadCaseList).

However, OpenSTAAD.Load.CreateLoadEnvelop is not assigning properly varLoadCaseList parameter. The only solution for this to work is by using the OpenSTAAD funtion Load.AddLoadCasesToEnvelop. See code solution below.

Dim objOpenSTAAD As Object
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")

'WinWrap language (VBA)

'Array for Load Cases
Dim varLoadCaseList1(5) As Variant

varLoadCaseList1(0) = 25
varLoadCaseList1(1) = 26
varLoadCaseList1(2) = 27
varLoadCaseList1(3) = 28
varLoadCaseList1(4) = 29
varLoadCaseList1(5) = 30

'Add a list of primary load case(s) into #1 load envelop (type of STRESS).
objOpenSTAAD.Load.CreateLoadEnvelop(1, 1, varLoadCaseList1(0))

        For i = 0 To 5
            objSTAADGUI.Load.AddLoadCasesToEnvelop(1, varLoadCaseList1(i))
        Next

RE: OpenSTAAD | OSLoadUI::CreateLoadEnvelop is not working properly

Denisson Cruz — Tue, 21 Dec 2021 13:06:36 GMT

Thank you for your reply.

Yes, the algorithm has the first line (i.e. Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")). I am only showing a portion of the code.

RE: OpenSTAAD | OSLoadUI::CreateLoadEnvelop is not working properly

Technical@reisoftwareth.com — Tue, 21 Dec 2021 06:05:15 GMT

Did you try to define Openstaad function in the first line and use the same parameter to be the operation, for example

Dim objOpenSTAAD As Object
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")

'WinWrap language (VBA)

'Array for Load Cases
Dim varLoadCaseList1(5) As Variant

varLoadCaseList1(0) = 25
varLoadCaseList1(1) = 26
varLoadCaseList1(2) = 27
varLoadCaseList1(3) = 28
varLoadCaseList1(4) = 29
varLoadCaseList1(5) = 30

'Add a list of primary load case(s) into #1 load envelop (type of STRESS).
objOpenSTAAD.Load.CraeteLoadEnvelop(1, 1, varLoadCaseList1())