cPropFrameGetRebarBeam Method

Retrieves beam rebar data for frame sections.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int GetRebarBeam(
	string Name,
	ref string MatPropLong,
	ref string MatPropConfine,
	ref double CoverTop,
	ref double CoverBot,
	ref double TopLeftArea,
	ref double TopRightArea,
	ref double BotLeftArea,
	ref double BotRightArea
)

Parameters

Name
Type: SystemString
The name of an existing frame section property.
MatPropLong
Type: SystemString
The name of the rebar material property for the longitudinal rebar.
MatPropConfine
Type: SystemString
The name of the rebar material property for the confinement rebar.
CoverTop
Type: SystemDouble
The distance from the top of the beam to the centroid of the top longitudinal reinforcement. [L]
CoverBot
Type: SystemDouble
The distance from the bottom of the beam to the centroid of the bottom longitudinal reinforcement. [L]
TopLeftArea
Type: SystemDouble
The total area of longitudinal reinforcement at the top left end of the beam. [L2]
TopRightArea
Type: SystemDouble
The total area of longitudinal reinforcement at the top right end of the beam. [L2]
BotLeftArea
Type: SystemDouble
The total area of longitudinal reinforcement at the bottom left end of the beam. [L2]
BotRightArea
Type: SystemDouble
The total area of longitudinal reinforcement at the bottom right end of the beam. [L2]

Return Value

Type: Int32
Returns zero if the rebar data is successfully retrieved; otherwise it returns a nonzero value.
Remarks
This function applies only to the following section types. Calling this function for any other type of frame section property returns an error.

The material assigned to the specified frame section property must be concrete or this function returns an error.

Examples
VB
Copy
Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1
       Dim RebarName As String
       Dim MatPropLong As String
       Dim MatPropConfine As String
       Dim CoverTop As Double
       Dim CoverBot As Double
       Dim TopLeftArea As Double
       Dim TopRightArea As Double
       Dim BotLeftArea As Double
       Dim BotRightArea 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 frame section property
       ret = SapModel.PropFrame.SetRectangle("R1", "4000Psi", 20, 12)

   'add ASTM A706 rebar material
       ret = SapModel.PropMaterial.AddQuick(RebarName, eMatType.Rebar, , , , , eMatTypeRebar.ASTM_A706)

   'set beam rebar data
       ret = SapModel.PropFrame.SetRebarBeam("R1", RebarName, RebarName, 3.5, 3, 4.1, 4.2, 4.3, 4.4)

   'get beam rebar data
       ret = SapModel.PropFrame.GetRebarBeam("R1", MatPropLong, MatPropConfine, CoverTop, CoverBot, TopLeftArea, TopRightArea, BotLeftArea, BotRightArea)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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