Applies To
	Product(s):	STAAD.Pro
	Version(s):	All
	Environment:	N/A
	Area:	OpenSTAAD
	Subarea:	Geometry, Property
	Original Author:	Bentley Technical Support Group

Problem Description:

How to create uniform or non uniform thickness for the plate(s) and assign the property to plate(s)

Solution:

You need to use function CreatePlateThicknessProperty to create uniform or non-uniform thickness for the plates

You need to use function AssignPlateThickness to assign thickness to a plate or set of plates

Parameter:

CreatePlateThicknessProperty:

[Input] faThickness: The thickness for all nodes.

[Return Value]: The assigned section property ID

AssignPlateThickness:

[Input] nPlateNo: The plate number IDs

[Input] nProperty: The assigned section property ID

Sample VBA Syntax:

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")

Dim nPlateNo(3) As Long

Dim faThickness(3) As Double

Dim nProperty As Long

 

nPlateNo(0) = 49 ‘Plate number ID

nPlateNo(1) = 50 ‘Plate number ID

nPlateNo(2) = 51 ‘Plate number ID

 

faThickness(0) = 0.25 ‘Thickness for Node 1

faThickness(1) = 0.25 ‘Thickness for Node 2

faThickness(2) = 0.15 ‘Thickness for Node 3

faThickness(3) = 0.15 ‘Thickness for Node 4

 

'Creates plate uniform or nonuniform thickness property

nProperty = objOpenSTAAD.Property.CreatePlateThicknessProperty(faThickness)

 

'Assign thickness to a plate or set of plates

objOpenSTAAD.Property.AssignPlateThickness nPlateNo(0), nProperty

objOpenSTAAD.Property.AssignPlateThickness nPlateNo(1), nProperty

objOpenSTAAD.Property.AssignPlateThickness nPlateNo(2), nProperty

Output: