SetDeckUnfilled Method

cPropArea SetDeckUnfilled Method

CSi API ETABS 2015

Initializes an unfilled deck property

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

Syntax

int SetDeckUnfilled(
	string Name,
	double RibDepth,
	double RibWidthTop,
	double RibWidthBot,
	double RibSpacing,
	double ShearThickness,
	double UnitWeight
)

int SetDeckUnfilled(
	string Name,
	double RibDepth,
	double RibWidthTop,
	double RibWidthBot,
	double RibSpacing,
	double ShearThickness,
	double UnitWeight
)

Function SetDeckUnfilled ( _
	Name As String, _
	RibDepth As Double, _
	RibWidthTop As Double, _
	RibWidthBot As Double, _
	RibSpacing As Double, _
	ShearThickness As Double, _
	UnitWeight As Double _
) As Integer

Function SetDeckUnfilled ( _
	Name As String, _
	RibDepth As Double, _
	RibWidthTop As Double, _
	RibWidthBot As Double, _
	RibSpacing As Double, _
	ShearThickness As Double, _
	UnitWeight As Double _
) As Integer

int SetDeckUnfilled(
	String^ Name, 
	double RibDepth, 
	double RibWidthTop, 
	double RibWidthBot, 
	double RibSpacing, 
	double ShearThickness, 
	double UnitWeight
)

int SetDeckUnfilled(
	String^ Name, 
	double RibDepth, 
	double RibWidthTop, 
	double RibWidthBot, 
	double RibSpacing, 
	double ShearThickness, 
	double UnitWeight
)

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.

RibDepth: Type: System Double
Rib Depth, hr

RibWidthTop: Type: System Double
Rib Width Top, wrt

RibWidthBot: Type: System Double
Rib Width Bottom, wrb

RibSpacing: Type: System Double
Rib Spacing, sr

ShearThickness: Type: System Double
Deck Shear Thickness

UnitWeight: Type: System Double
Deck Unit Weight

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 RibDepth As Double 
       Dim RibWidthTop As Double 
       Dim RibWidthBot As Double 
       Dim RibSpacing As Double 
       Dim ShearThickness As Double 
       Dim UnitWeight 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.Unfilled, ETABS2013.eShellType.ShellThin, "4000Psi", 14)

   'set new area property
       ret = SapModel.PropArea.SetDeckUnfilled(Name:="MyShellProp1A", RibDepth:=1.1, RibWidthTop:=2.3, RibWidthBot:=2.4, RibSpacing:=7, ShearThickness:=5, UnitWeight:=3.1)

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

   'get area property data
       ret = SapModel.PropArea.GetDeckUnfilled("MyShellProp1A", RibDepth, RibWidthTop, RibWidthBot, RibSpacing, ShearThickness, UnitWeight)

   '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 RibDepth As Double 
       Dim RibWidthTop As Double 
       Dim RibWidthBot As Double 
       Dim RibSpacing As Double 
       Dim ShearThickness As Double 
       Dim UnitWeight 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.Unfilled, ETABS2013.eShellType.ShellThin, "4000Psi", 14)

   'set new area property
       ret = SapModel.PropArea.SetDeckUnfilled(Name:="MyShellProp1A", RibDepth:=1.1, RibWidthTop:=2.3, RibWidthBot:=2.4, RibSpacing:=7, ShearThickness:=5, UnitWeight:=3.1)

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

   'get area property data
       ret = SapModel.PropArea.GetDeckUnfilled("MyShellProp1A", RibDepth, RibWidthTop, RibWidthBot, RibSpacing, ShearThickness, UnitWeight)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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