cDesignConcreteSetCode Method

Sets the concrete design code.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetCode(
	string CodeName
)

Parameters

CodeName
Type: SystemString
This is one of the following concrete design code names.
  • ACI 318-14
  • ACI 318-11
  • ACI 318-08/IBC2009
  • ACI 318-05/IBC2006
  • ACI 318-02
  • ACI 318-99
  • AS 3600-09
  • AS 3600-01
  • BS8110-97
  • BS8110-89
  • Chinese 2010
  • CSA A23.3-04
  • CSA-A23.3-94
  • EUROCODE 2-2004
  • EUROCODE 2-1992
  • Hong Kong CP 2004
  • Indian IS 456-2000
  • Italian DM 14-2-92
  • KCI-1999
  • Mexican RCDF 2004
  • Mexican RCDF 2001
  • NZS 3101-2006
  • NZS 3101-1995
  • Singapore CP 65:99
  • Turkish TS 500-2000
  • UBC97

Return Value

Type: Int32
Returns zero if the code is successfully set; otherwise it returns a nonzero value.
Remarks
Examples
VB
Copy
Public Sub Example()
   Dim SapModel As cSapModel
   Dim EtabsObject As cOAPI
   Dim ret As Integer = -1

'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)

'create new concrete frame section property
   ret = SapModel.PropFrame.SetRectangle("R1", "4000Psi", 20, 12)

'set frame section property
   ret = SapModel.FrameObj.SetSection("8", "R1")

'set concrete design code
   ret = SapModel.DesignConcrete.SetCode("ACI 318-08/IBC 2009")

'close ETABS
   EtabsObject.ApplicationExit(False)

'clean up variables
   SapModel = Nothing
   EtabsObject = Nothing

End Sub
See Also