RE: Assigning tapered section using OpenSTAAD

Khawaldah — Sat, 22 Oct 2022 13:47:04 GMT

Thanks it works

RE: Assigning tapered section using OpenSTAAD

Shreyanka Bhattacharjee — Mon, 26 Sep 2022 11:40:00 GMT

You need to use function function CreateTaperedIProperty to created Tapered I section and then use function AssignBeamProperty to assign the tapered I section to member(s).

To assign Steel material to the member(s), please use function AssignMaterialToMember.

Sample VBA code:

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
Dim TaperedProperties(6) As Double
Dim PropNo As Long
Dim BeamNo As Long

'Units are in meter for F1-F7 parameter
TaperedProperties(0) = 0.2 'F1
TaperedProperties(1) = 0.005 'F2
TaperedProperties(2) = 0.8 'F3
TaperedProperties(3) = 0.15 'F4
TaperedProperties(4) = 0.01 'F5
TaperedProperties(5) = 0.15 'F6
TaperedProperties(6) = 0.01 'F7

PropNo = objOpenSTAAD.Property.CreateTaperedIProperty(TaperedProperties)

BeamNo = 1 'MEMBER NUMBER
objOpenSTAAD.Property.AssignBeamProperty BeamNo, PropNo
objOpenSTAAD.Property.AssignMaterialToMember "STEEL", BeamNo