Assigning tapered section using OpenSTAAD

Question

Dear Friends, 
 The script below is for a very simple model (single member). I'm trying to assign a steel tapered section (200 5 800 150 10 150 10), but I'm facing some troubles. Could you help me with the script?

Sub GenerateModel() 
 Dim cx(1) As Double Dim cy(1) As Double Dim cz(1) As Double Dim Node(1) As Integer 
 Set suro = GetObject(, "StaadPro.OpenSTAAD") Set OSGeometry = suro.geometry Set OSProperty = suro.Property 
 For i = 0 To 1 cx(i) = i cy(i) = i * 4 cz(i) = 0 Node(i) = suro.geometry.CreateNode((i + 1), cx(i), cy(i), cz(i)) Next 
 Beam = suro.geometry.CreateBeam(1, 1, 2) 
 End Sub

Shreyanka Bhattacharjee · Accepted Answer

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

Assigning tapered section using OpenSTAAD

Top Replies