GetShellLayer_1 Method

cPropArea GetShellLayer_1 Method

CSi API ETABS 2015

Retrieves area property layer parameters for a shell-type area section.

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

Syntax

int GetShellLayer_1(
	string Name,
	ref int NumberLayers,
	ref string[] LayerName,
	ref double[] Dist,
	ref double[] Thickness,
	ref int[] MyType,
	ref int[] NumIntegrationPts,
	ref string[] MatProp,
	ref double[] MatAng,
	ref int[] S11Type,
	ref int[] S22Type,
	ref int[] S12Type
)

int GetShellLayer_1(
	string Name,
	ref int NumberLayers,
	ref string[] LayerName,
	ref double[] Dist,
	ref double[] Thickness,
	ref int[] MyType,
	ref int[] NumIntegrationPts,
	ref string[] MatProp,
	ref double[] MatAng,
	ref int[] S11Type,
	ref int[] S22Type,
	ref int[] S12Type
)

Function GetShellLayer_1 ( _
	Name As String, _
	ByRef NumberLayers As Integer, _
	ByRef LayerName As String(), _
	ByRef Dist As Double(), _
	ByRef Thickness As Double(), _
	ByRef MyType As Integer(), _
	ByRef NumIntegrationPts As Integer(), _
	ByRef MatProp As String(), _
	ByRef MatAng As Double(), _
	ByRef S11Type As Integer(), _
	ByRef S22Type As Integer(), _
	ByRef S12Type As Integer() _
) As Integer

Function GetShellLayer_1 ( _
	Name As String, _
	ByRef NumberLayers As Integer, _
	ByRef LayerName As String(), _
	ByRef Dist As Double(), _
	ByRef Thickness As Double(), _
	ByRef MyType As Integer(), _
	ByRef NumIntegrationPts As Integer(), _
	ByRef MatProp As String(), _
	ByRef MatAng As Double(), _
	ByRef S11Type As Integer(), _
	ByRef S22Type As Integer(), _
	ByRef S12Type As Integer() _
) As Integer

int GetShellLayer_1(
	String^ Name, 
	int% NumberLayers, 
	array<String^>^% LayerName, 
	array<double>^% Dist, 
	array<double>^% Thickness, 
	array<int>^% MyType, 
	array<int>^% NumIntegrationPts, 
	array<String^>^% MatProp, 
	array<double>^% MatAng, 
	array<int>^% S11Type, 
	array<int>^% S22Type, 
	array<int>^% S12Type
)

int GetShellLayer_1(
	String^ Name, 
	int% NumberLayers, 
	array<String^>^% LayerName, 
	array<double>^% Dist, 
	array<double>^% Thickness, 
	array<int>^% MyType, 
	array<int>^% NumIntegrationPts, 
	array<String^>^% MatProp, 
	array<double>^% MatAng, 
	array<int>^% S11Type, 
	array<int>^% S22Type, 
	array<int>^% S12Type
)

Parameters

Name: Type: System String
The name of an existing shell-type area property that is specified to be a layered shell property.

NumberLayers: Type: System Int32
The number of layers in the area property.

LayerName: Type: System String
This is an array that includes the name of each layer.

Dist: Type: System Double

Thickness: Type: System Double
This is an array that includes the thickness of each layer. [L]

MyType

Type:

System Int32
This is an array that includes 1, 2 or 3, indicating the layer type.

Value	Type
1	Shell
2	Membrane
3	Plate

NumIntegrationPts: Type: System Int32
The number of integration points in the thickness direction for the layer. The locations are determined by the program using standard Guass-quadrature rules.

MatProp: Type: System String
This is an array that includes the name of the material property for the layer.

MatAng: Type: System Double

S11Type

Type:

System Int32
This is an array that includes 0, 1 or 2, indicating the material component behavior.

Value	S11Type
0	Inactive
1	Linear
2	Nonlinear

S22Type

Type:

System Int32
This is an array that includes 0, 1 or 2, indicating the material component behavior.

Value	S22Type
0	Inactive
1	Linear
2	Nonlinear

S12Type

Type:

System Int32
This is an array that includes 0, 1 or 2, indicating the material component behavior.

Value	S12Type
0	Inactive
1	Linear
2	Nonlinear

Return Value

Returns zero if the parameters are successfully retrieved, otherwise it returns a nonzero value.

The function returns an error if the specified area property is not a shell-type property specified to be a layered shell.

Remarks

Examples

C++

Copy to Clipboard Print

Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1 
       Dim Name As String 
       Dim MyNumberLayers As Integer 
       Dim MyLayerName() As String 
       Dim MyDist() As Double 
       Dim MyThickness() As Double 
       Dim MyType() As Integer 
       Dim MyNumIntegrationPts() As Integer 
       Dim MyMatProp() As String 
       Dim MyMatAng() As Double 
       Dim MyS11Type() As Integer 
       Dim MyS22Type() As Integer 
       Dim MyS12Type() As Integer 
       Dim NumberLayers As Integer 
       Dim LayerName() As String 
       Dim Dist() As Double 
       Dim Thickness() As Double 
       Dim SType() As Integer 
       Dim MatProp() As String 
       Dim MatAng() As Double 
       Dim S11Type() As Integer 
       Dim S22Type() As Integer 
       Dim S12Type() As Integer 
       Dim NumIntegrationPts() As Integer 

   '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.SetShell_1("A1", 6, True, "", 0, 0, 0)

   'add A615Gr60 rebar material
       ret = SapModel.PropMaterial.AddQuick(Name, ETABS2013.eMatType.Rebar, , , , , ETABS2013.eMatTypeRebar.ASTM_A615Gr60)

   'set area property layer parameters
       MyNumberLayers = 5 
       ReDim MyLayerName(MyNumberLayers - 1)
       ReDim MyDist(MyNumberLayers - 1)
       ReDim MyThickness(MyNumberLayers - 1)
       ReDim MyType(MyNumberLayers - 1)
       ReDim MyNumIntegrationPts(MyNumberLayers - 1)
       ReDim MyMatProp(MyNumberLayers - 1)
       ReDim MyMatAng(MyNumberLayers - 1)
       ReDim MyS11Type(MyNumberLayers - 1)
       ReDim MyS22Type(MyNumberLayers - 1)
       ReDim MyS12Type(MyNumberLayers - 1)

       MyLayerName(0) = "Concrete"
       MyDist(0) = 0
       MyThickness(0) = 16
       MyType(0) = 1
       MyNumIntegrationPts(0) = 2
       MyMatProp(0) = "4000Psi"
       MyMatAng(0) = 0
       MyS11Type(0) = 1
       MyS22Type(0) = 1
       MyS12Type(0) = 1

       MyLayerName(1) = "Top Bar 1"
       MyDist(1) = 6
       MyThickness(1) = 0.03
       MyType(1) = 1
       MyNumIntegrationPts(1) = 1
       MyMatProp(1) = Name
       MyMatAng(1) = 0
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       MyLayerName(2) = "Top Bar 2"
       MyDist(2) = 6
       MyThickness(2) = 0.03
       MyType(2) = 1
       MyNumIntegrationPts(2) = 1
       MyMatProp(2) = Name
       MyMatAng(2) = 90
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       MyLayerName(3) = "Bot Bar 1"
       MyDist(3) = -6
       MyThickness(3) = 0.03
       MyType(3) = 1
       MyNumIntegrationPts(3) = 1
       MyMatProp(3) = Name
       MyMatAng(3) = 0
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       MyLayerName(4) = "Bot Bar 2"
       MyDist(4) = -6
       MyThickness(4) = 0.03
       MyType(4) = 1
       MyNumIntegrationPts(4) = 1
       MyMatProp(4) = Name
       MyMatAng(4) = 90
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       ret = SapModel.PropArea.SetShellLayer_1("A1", MyNumberLayers, MyLayerName, MyDist, MyThickness, MyType, MyNumIntegrationPts, MyMatProp, MyMatAng, MyS11Type, MyS22Type, MyS12Type)

   'get area property layer parameters
       ret = SapModel.PropArea.GetShellLayer_1("A1", NumberLayers, LayerName, Dist, Thickness, Stype, NumIntegrationPts, MatProp, MatAng, S11Type, S22Type, S12Type)

   '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 Name As String 
       Dim MyNumberLayers As Integer 
       Dim MyLayerName() As String 
       Dim MyDist() As Double 
       Dim MyThickness() As Double 
       Dim MyType() As Integer 
       Dim MyNumIntegrationPts() As Integer 
       Dim MyMatProp() As String 
       Dim MyMatAng() As Double 
       Dim MyS11Type() As Integer 
       Dim MyS22Type() As Integer 
       Dim MyS12Type() As Integer 
       Dim NumberLayers As Integer 
       Dim LayerName() As String 
       Dim Dist() As Double 
       Dim Thickness() As Double 
       Dim SType() As Integer 
       Dim MatProp() As String 
       Dim MatAng() As Double 
       Dim S11Type() As Integer 
       Dim S22Type() As Integer 
       Dim S12Type() As Integer 
       Dim NumIntegrationPts() As Integer 

   '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.SetShell_1("A1", 6, True, "", 0, 0, 0)

   'add A615Gr60 rebar material
       ret = SapModel.PropMaterial.AddQuick(Name, ETABS2013.eMatType.Rebar, , , , , ETABS2013.eMatTypeRebar.ASTM_A615Gr60)

   'set area property layer parameters
       MyNumberLayers = 5 
       ReDim MyLayerName(MyNumberLayers - 1)
       ReDim MyDist(MyNumberLayers - 1)
       ReDim MyThickness(MyNumberLayers - 1)
       ReDim MyType(MyNumberLayers - 1)
       ReDim MyNumIntegrationPts(MyNumberLayers - 1)
       ReDim MyMatProp(MyNumberLayers - 1)
       ReDim MyMatAng(MyNumberLayers - 1)
       ReDim MyS11Type(MyNumberLayers - 1)
       ReDim MyS22Type(MyNumberLayers - 1)
       ReDim MyS12Type(MyNumberLayers - 1)

       MyLayerName(0) = "Concrete"
       MyDist(0) = 0
       MyThickness(0) = 16
       MyType(0) = 1
       MyNumIntegrationPts(0) = 2
       MyMatProp(0) = "4000Psi"
       MyMatAng(0) = 0
       MyS11Type(0) = 1
       MyS22Type(0) = 1
       MyS12Type(0) = 1

       MyLayerName(1) = "Top Bar 1"
       MyDist(1) = 6
       MyThickness(1) = 0.03
       MyType(1) = 1
       MyNumIntegrationPts(1) = 1
       MyMatProp(1) = Name
       MyMatAng(1) = 0
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       MyLayerName(2) = "Top Bar 2"
       MyDist(2) = 6
       MyThickness(2) = 0.03
       MyType(2) = 1
       MyNumIntegrationPts(2) = 1
       MyMatProp(2) = Name
       MyMatAng(2) = 90
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       MyLayerName(3) = "Bot Bar 1"
       MyDist(3) = -6
       MyThickness(3) = 0.03
       MyType(3) = 1
       MyNumIntegrationPts(3) = 1
       MyMatProp(3) = Name
       MyMatAng(3) = 0
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       MyLayerName(4) = "Bot Bar 2"
       MyDist(4) = -6
       MyThickness(4) = 0.03
       MyType(4) = 1
       MyNumIntegrationPts(4) = 1
       MyMatProp(4) = Name
       MyMatAng(4) = 90
       MyS11Type(1) = 1
       MyS22Type(1) = 1
       MyS12Type(1) = 1

       ret = SapModel.PropArea.SetShellLayer_1("A1", MyNumberLayers, MyLayerName, MyDist, MyThickness, MyType, MyNumIntegrationPts, MyMatProp, MyMatAng, MyS11Type, MyS22Type, MyS12Type)

   'get area property layer parameters
       ret = SapModel.PropArea.GetShellLayer_1("A1", NumberLayers, LayerName, Dist, Thickness, Stype, NumIntegrationPts, MatProp, MatAng, S11Type, S22Type, S12Type)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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