SetSlabWaffle Method

cPropArea SetSlabWaffle Method

CSi API ETABS 2015

Initializes a waffle slab section.

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

Syntax

int SetSlabWaffle(
	string Name,
	double OverallDepth,
	double SlabThickness,
	double StemWidthTop,
	double StemWidthBot,
	double RibSpacingDir1,
	double RibSpacingDir2
)

int SetSlabWaffle(
	string Name,
	double OverallDepth,
	double SlabThickness,
	double StemWidthTop,
	double StemWidthBot,
	double RibSpacingDir1,
	double RibSpacingDir2
)

Function SetSlabWaffle ( _
	Name As String, _
	OverallDepth As Double, _
	SlabThickness As Double, _
	StemWidthTop As Double, _
	StemWidthBot As Double, _
	RibSpacingDir1 As Double, _
	RibSpacingDir2 As Double _
) As Integer

Function SetSlabWaffle ( _
	Name As String, _
	OverallDepth As Double, _
	SlabThickness As Double, _
	StemWidthTop As Double, _
	StemWidthBot As Double, _
	RibSpacingDir1 As Double, _
	RibSpacingDir2 As Double _
) As Integer

int SetSlabWaffle(
	String^ Name, 
	double OverallDepth, 
	double SlabThickness, 
	double StemWidthTop, 
	double StemWidthBot, 
	double RibSpacingDir1, 
	double RibSpacingDir2
)

int SetSlabWaffle(
	String^ Name, 
	double OverallDepth, 
	double SlabThickness, 
	double StemWidthTop, 
	double StemWidthBot, 
	double RibSpacingDir1, 
	double RibSpacingDir2
)

Parameters

Name: Type: System String
The name of an existing waffle slab property.

OverallDepth: Type: System Double
Overall Depth

SlabThickness: Type: System Double
Slab Thickness

StemWidthTop: Type: System Double
Stem Width at Top

StemWidthBot: Type: System Double
Stem Width at Bottom

RibSpacingDir1: Type: System Double
Spacing of Ribs that are Parallel to Slab 1-Axis

RibSpacingDir2: Type: System Double
Spacing of Ribs that are Parallel to Slab 2-Axis

Return Value

The function returns zero if the property data 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 SlabType As ETABS2013.eSlabType
       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 OverallDepth As Double 
       Dim SlabThickness As Double 
       Dim StemWidthTop As Double 
       Dim StemWidthBot As Double 
       Dim RibSpacing1 As Double 
       Dim RibSpacing2 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.SetSlab("MyShellProp1A", ETABS2013.eSlabType.Waffle, ETABS2013.eShellType.ShellThin, "4000Psi", 14.2)

   'set new area property
       ret = SapModel.PropArea.SetSlabWaffle(Name:="MyShellProp1A", OverallDepth:=11.1, SlabThickness:=22.2, StemWidthTop:=33.3, StemWidthBot:=44.4, RibSpacingDir1:=55.5, RibSpacingDir2:=66.6)

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

   'get area property data
       ret = SapModel.PropArea.GetSlabWaffle("MyShellProp1A", OverallDepth, SlabThickness, StemWidthTop, StemWidthBot, RibSpacing1, RibSpacing2)

   '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 SlabType As ETABS2013.eSlabType
       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 OverallDepth As Double 
       Dim SlabThickness As Double 
       Dim StemWidthTop As Double 
       Dim StemWidthBot As Double 
       Dim RibSpacing1 As Double 
       Dim RibSpacing2 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.SetSlab("MyShellProp1A", ETABS2013.eSlabType.Waffle, ETABS2013.eShellType.ShellThin, "4000Psi", 14.2)

   'set new area property
       ret = SapModel.PropArea.SetSlabWaffle(Name:="MyShellProp1A", OverallDepth:=11.1, SlabThickness:=22.2, StemWidthTop:=33.3, StemWidthBot:=44.4, RibSpacingDir1:=55.5, RibSpacingDir2:=66.6)

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

   'get area property data
       ret = SapModel.PropArea.GetSlabWaffle("MyShellProp1A", OverallDepth, SlabThickness, StemWidthTop, StemWidthBot, RibSpacing1, RibSpacing2)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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