GetOverwrite {Concrete Eurocode 2 1992}

GetOverwrite

Syntax

SapObject.SapModel.DesignConcrete.EUROCODE_2_1992.GetOverwrite

VB6 Procedure

Function GetOverwrite(ByVal Name As String, ByVal Item As Long, ByRef Value As Double, ByRefProgDet As Boolean) As Long

Parameters

Name

The name of a frame object with a concrete frame design procedure.

Item

This is an integer between 1 and 12, inclusive, indicating the overwrite item considered.

1 = Multi-response case design

2 = Consider environmental durability

3 = Consider shear design

4 = Shear design method

5 = Cotangent of the angle of concrete compressive strut

6 = Add tensile force due to shear

Value

The value of the considered overwrite item.

1 = Framing type

0 = Program Default

1 = Sway

2 = Non-sway

2 = Live load reduction factor

Value >= 0; 0 means use program determined value.

3 = Unbraced length ratio, Major

Value >= 0; 0 means use program determined value.

4 = Unbraced length ratio, Minor

Value >= 0; 0 means use program determined value.

5 = Effective length factor, Beta Major

Value >= 0; 0 means use program determined value.

6 = Effective length factor, Beta Minor

Value >= 0; 0 means use program determined value.

7 = Moment coefficient, Cm Major

Value >= 0; 0 means use program determined value.

8 = Moment coefficient, Cm Minor

Value >= 0; 0 means use program determined value.

9 = Non-sway moment factor, Dns Major

Value >= 0; 0 means use program determined value.

10 = Non-sway moment factor, Dns Minor

Value >= 0; 0 means use program determined value.

11 = Sway moment factor, Ds Major

Value >= 0; 0 means use program determined value.

12 = Sway moment factor, Ds Minor

Value >= 0; 0 means use program determined value.

ProgDet

If this item is True, the specified value is program determined.

Remarks

This function retrieves the value of a concrete design overwrite item.

The function returns zero if the item is successfully retrieved; otherwise it returns a nonzero value.

VBA Example

Sub GetConcreteDesignOverwriteItemEUROCODE_2_1992()

 'dimension variables

 Dim SapObject as cOAPI

 Dim SapModel As cSapModel

 Dim ret As Long

 Dim Value As Double

 Dim ProgDet As Boolean

 'create Sap2000 object

 Set SapObject = CreateObject("CSI.SAP2000.API.SapObject")

 'start Sap2000 application

 SapObject.ApplicationStart

 'create SapModel object

 Set SapModel = SapObject.SapModel

 'initialize model

 ret = SapModel.InitializeNewModel

 'create new concrete frame section property

 ret = SapModel.PropFrame.SetRectangle("R1", "4000Psi", 20, 12)

 'create model from template

 ret = SapModel.File.New2DFrame(PortalFrame, 2, 144, 2, 288, True, "R1", "R1")

 'set concrete design code

 ret = SapModel.DesignConcrete.SetCode("EUROCODE 2-1992")

 'run analysis

 ret = SapModel.File.Save("C:\SapAPI\x.sdb")

 ret = SapModel.Analyze.RunAnalysis

 'start concrete design

 ret = SapModel.DesignConcrete.StartDesign

 'get overwrite item

 ret = SapModel.DesignConcrete.EUROCODE_2_1992.GetOverwrite("8", 1, Value, ProgDet)

 'close Sap2000

 SapObject.ApplicationExit False

 Set SapModel = Nothing

 Set SapObject = Nothing

 End Sub

Release Notes

Initial release in version 11.03.

See Also

SetOverwrite