RE: ObjOPENSTAAD.Load.AddElementTrapPressure code format and variable types?

Shreyanka Bhattacharjee — Wed, 15 Feb 2023 06:12:07 GMT

Can you please use function AddElementTrapPressureEx?

Sample VBA syntax is given below:

Set objOpenStaad = GetObject(, "StaadPro.OpenSTAAD")
Dim nLCNum As Long
nLCNum = 1
objOpenStaad.Load.SetLoadActive nLCNum

Dim plateArray(0) As Long
plateArray(0) = 13 'PLATE NUMBER ID

Dim direction As Long
direction = 3 'LOAD VARYING DIRECTION; 1=X; 2=Y; 3=JOINT

Dim loadDirection As Long
loadDirection = 3 'DIRECTION OF PRESSURE; 0=LOCAL Z; 1=GX; 2=GY; 3=GZ

Dim startPre As Double
startPre = 2 'Pressure at loading starting point.(Node1 when JOINT is selected)
Dim endPre As Double
endPre = 5 'Pressure at loading ending point.(Node2 when JOINT is selected)
Dim pre3 As Double
pre3 = 2.6 'Pressure at loading point.(applicable only when JOINT is selected)
Dim pre4 As Double
pre4 = 1 'Pressure at loading point.(applicable only when JOINT is selected)

objOpenStaad.Load.AddElementTrapPressureEx plateArray, direction, loadDirection, startPre, endPre, pre3, pre4