cPropAreaSetDeckFilled Method

Initializes a filled deck property

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetDeckFilled(
	string Name,
	double SlabDepth,
	double RibDepth,
	double RibWidthTop,
	double RibWidthBot,
	double RibSpacing,
	double ShearThickness,
	double UnitWeight,
	double ShearStudDia,
	double ShearStudHt,
	double ShearStudFu
)

Parameters

Name
Type: SystemString
The name of an existing deck property created with the SetDeck(String, eDeckType, eShellType, String, Double, Int32, String, String) function.
SlabDepth
Type: SystemDouble
Slab Depth, tc
RibDepth
Type: SystemDouble
Rib Depth, hr
RibWidthTop
Type: SystemDouble
Rib Width Top, wrt
RibWidthBot
Type: SystemDouble
Rib Width Bottom, wrb
RibSpacing
Type: SystemDouble
Rib Spacing, sr
ShearThickness
Type: SystemDouble
Deck Shear Thickness
UnitWeight
Type: SystemDouble
Deck Unit Weight
ShearStudDia
Type: SystemDouble
Shear Stud Diameter
ShearStudHt
Type: SystemDouble
Shear Stud Height, hs
ShearStudFu
Type: SystemDouble
Shear Stud Tensile Strength, Fu

Return Value

Type: Int32
Returns zero if the property is successfully initialized; otherwise it returns a nonzero value.
Remarks
Examples
VB
Copy
Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1
       Dim DeckType As eDeckType
       Dim ShellType As eShellType
       Dim MatProp As String
       Dim Thickness As Double
       Dim Color As Integer
       Dim Notes As String
       Dim GUID As String
       Dim SlabDepth As Double
       Dim RibDepth As Double
       Dim RibWidthTop As Double
       Dim RibWidthBot As Double
       Dim RibSpacing As Double
       Dim DeckShearThickness As Double
       Dim DeckUnitWeight As Double
       Dim ShearStudDia As Double
       Dim ShearStudHt As Double
       Dim ShearStudFu As Double

   'create ETABS object
       EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")

   'start ETABS application
       ret = EtabsObject.ApplicationStart()

   'create SapModel object
       SapModel = EtabsObject.SapModel

   'initialize model
       ret = SapModel.InitializeNewModel()

   'create steel deck template model
       ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)

   'set new area property
       ret = SapModel.PropArea.SetDeck("MyShellProp1A", eDeckType.Filled, eShellType.ShellThin, "4000Psi", 14)

   'set new area property
       ret = SapModel.PropArea.SetDeckFilled(Name:="MyShellProp1A", SlabDepth:=15.6, RibDepth:=1.1, RibWidthTop:=2.3, RibWidthBot:=2.4, _
                                             RibSpacing:=7, ShearThickness:=5, UnitWeight:=3.1, ShearStudDia:=1.02, ShearStudHt:=4.4, ShearStudFu:=2.01)

   'get area property data
       ret = SapModel.PropArea.GetDeck("MyShellProp1A", DeckType, ShellType, MatProp, Thickness, Color, Notes, GUID)

   'get area property data
       ret = SapModel.PropArea.GetDeckFilled("MyShellProp1A", SlabDepth, RibDepth, RibWidthTop, RibWidthBot, _
                                             RibSpacing, DeckShearThickness, DeckUnitWeight, ShearStudDia, ShearStudHt, ShearStudFu)

   'close ETABS
       EtabsObject.ApplicationExit(False)

   'clean up variables
       SapModel = Nothing
       EtabsObject = Nothing
   End Sub
See Also