SetDeckSolidSlab Method

cPropArea SetDeckSolidSlab Method

CSi API ETABS 2015

Initializes a solid-slab deck property

Namespace: ETABS2015
Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)

Syntax

int SetDeckSolidSlab(
	string Name,
	double SlabDepth,
	double ShearStudDia,
	double ShearStudHt,
	double ShearStudFu
)

int SetDeckSolidSlab(
	string Name,
	double SlabDepth,
	double ShearStudDia,
	double ShearStudHt,
	double ShearStudFu
)

Function SetDeckSolidSlab ( _
	Name As String, _
	SlabDepth As Double, _
	ShearStudDia As Double, _
	ShearStudHt As Double, _
	ShearStudFu As Double _
) As Integer

Function SetDeckSolidSlab ( _
	Name As String, _
	SlabDepth As Double, _
	ShearStudDia As Double, _
	ShearStudHt As Double, _
	ShearStudFu As Double _
) As Integer

int SetDeckSolidSlab(
	String^ Name, 
	double SlabDepth, 
	double ShearStudDia, 
	double ShearStudHt, 
	double ShearStudFu
)

int SetDeckSolidSlab(
	String^ Name, 
	double SlabDepth, 
	double ShearStudDia, 
	double ShearStudHt, 
	double ShearStudFu
)

Parameters

Name: Type: System String
The name of an existing deck property created with the SetDeck(String, eDeckType, eShellType, String, Double, Int32, String, String) function.

SlabDepth: Type: System Double
Slab Depth, tc

ShearStudDia: Type: System Double
Shear Stud Diameter

ShearStudHt: Type: System Double
Shear Stud Height, hs

ShearStudFu: Type: System Double
Shear Stud Tensile Strength, Fu

Return Value

Returns zero if the property is successfully initialized; otherwise it returns a nonzero value.

Remarks

Examples

C++

Copy to Clipboard Print

Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1 
       Dim DeckType As ETABS2013.eDeckType
       Dim ShellType As ETABS2013.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 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", ETABS2013.eDeckType.SolidSlab, ETABS2013.eShellType.ShellThin, "4000Psi", 14)

   'set new area property
       ret = SapModel.PropArea.SetDeckSolidSlab(Name:="MyShellProp1A", SlabDepth:=3.5, ShearStudDia:=0.75, ShearStudHt:=6, ShearStudFu:=65000)

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

   'get area property data
       ret = SapModel.PropArea.GetDeckSolidSlab("MyShellProp1A", SlabDepth, ShearStudDia, ShearStudHt, ShearStudFu)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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

Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1 
       Dim DeckType As ETABS2013.eDeckType
       Dim ShellType As ETABS2013.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 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", ETABS2013.eDeckType.SolidSlab, ETABS2013.eShellType.ShellThin, "4000Psi", 14)

   'set new area property
       ret = SapModel.PropArea.SetDeckSolidSlab(Name:="MyShellProp1A", SlabDepth:=3.5, ShearStudDia:=0.75, ShearStudHt:=6, ShearStudFu:=65000)

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

   'get area property data
       ret = SapModel.PropArea.GetDeckSolidSlab("MyShellProp1A", SlabDepth, ShearStudDia, ShearStudHt, ShearStudFu)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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