OpenSTAAD | OSPropertyUI::CreateHSSRoundPropertyFromTable not available.

Thank you, Shreyanka Bhattacharjee.

Surprisingly, ''For HSS round section'' it also works with prop(0) = objOpenSTAAD.Property.CreateBeamPropertyFromTable(1, "HSSP16X0.25", 0, 0, 0). But prop(0) = objOpenSTAAD.Property.CreatePipePropertyFromTable(1, "HSSP16X0.25", 0, 0, 0) is better.

If you want to create HSS round shape property, please use function CreatePipePropertyFromTable function

The syntax for rectangular hollow section. square hollow section, HSS round section:

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
Dim prop(3) As Long
Dim memb(3) As Long
For i = 0 To 3
prop(i) = i
memb(i) = i + 1
Next i

''For Rectangular Hollow Section''
'prop(0) = objOpenSTAAD.Property.CreateTubePropertyFromTable(1, "HSST6X3X0.375", 0, 0, 0, 0)
'prop(1) = objOpenSTAAD.Property.CreateTubePropertyFromTable(1, "HSSP20x0.5", 0, 0, 0, 0)
'prop(2) = objOpenSTAAD.Property.CreateTubePropertyFromTable(4, "HSST305X305X16", 0, 0, 0, 0)
'prop(3) = objOpenSTAAD.Property.CreateTubePropertyFromTable(7, "50X30X2.6RHS", 0, 0, 0, 0)

''For Square Hollow Section''
'prop(0) = objOpenSTAAD.Property.CreateTubePropertyFromTable(7, "40x2.6SHS", 0, 0, 0, 0)
'prop(1) = objOpenSTAAD.Property.CreateTubePropertyFromTable(7, "40x3.2SHS", 0, 0, 0, 0)
'prop(2) = objOpenSTAAD.Property.CreateTubePropertyFromTable(7, "40x4SHS", 0, 0, 0, 0)
'prop(3) = objOpenSTAAD.Property.CreateTubePropertyFromTable(7, "40x5SHS", 0, 0, 0, 0)

''For HSS round section''
prop(0) = objOpenSTAAD.Property.CreatePipePropertyFromTable(1, "HSSP16X0.25", 0, 0, 0)
prop(1) = objOpenSTAAD.Property.CreatePipePropertyFromTable(4, "HSSP324X6.4", 0, 0, 0)
prop(2) = objOpenSTAAD.Property.CreatePipePropertyFromTable(7, "42.4X2.6CHS", 0, 0, 0)
prop(3) = objOpenSTAAD.Property.CreatePipePropertyFromTable(11, "CHS114.3X4.5", 0, 0, 0)

For i = 0 To 3
objOpenSTAAD.Property.AssignBeamProperty memb(i), prop(i)
Next i

objOpenSTAAD.Property.AssignMaterialToMember "STEEL", memb
End Sub