Sets the value of a concrete design preference item.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int SetPreference(
int Item,
double Value
)
Function SetPreference ( _
Item As Integer, _
Value As Double _
) As Integer
int SetPreference(
int Item,
double Value
)
Parameters
- Item
- Type:
System Int32
This is an integer between 1 and 13, inclusive,
indicating the preference item considered.
- Number of interaction curves
- Number of interaction points
- Consider minimum eccentricity
- Seismic design category
- Phi tension controlled
- Phi compression controlled tied
- Phi compression controlled spiral
- Phi shear and/or torsion
- Phi shear seismic
- Phi joint shear
- Pattern live load factor
- Utilization factor limit
- Multi-response case design
- Value
- Type:
System Double
The value of the considered preference item.
-
Number of interaction curves
Value >= 4 and devisable by 4
-
Number of interaction points
Value >= 5 and odd
-
Consider minimum eccentricity
0 = No
Any other value = Yes
-
Seismic design category
- A
- B
- C
- D
- E
- F
-
Phi tension controlled
Value > 0
-
Phi compression controlled tied
Value > 0
-
Phi compression controlled spiral
Value > 0
-
Phi shear and/or torsion
Value > 0
-
Phi shear seismic
Value > 0
-
Phi joint shear
Value > 0
-
Pattern live load factor
Value >= 0
-
Utilization factor limit
Value > 0
-
Multi-response case design
- Envelopes
- Step-by step
- Last step
- Envelopes - All
- Step-by step - All
Return Value
Returns zero if the item is successfully set;
otherwise it returns a nonzero value.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
ret = EtabsObject.ApplicationStart()
SapModel = EtabsObject.SapModel
ret = SapModel.InitializeNewModel()
ret = SapModel.File.NewSteelDeck(4, 12, 12, 4, 4, 24, 24)
ret = SapModel.PropFrame.SetRectangle("R1", "4000Psi", 20, 12)
ret = SapModel.FrameObj.SetSection("8", "R1")
ret = SapModel.DesignConcrete.SetCode("ACI 318-08/IBC 2009")
System.IO.Directory.CreateDirectory("c:\CSI_API_temp")
ret = SapModel.File.Save("C:\CSI_API_temp\example.edb")
ret = SapModel.Analyze.RunAnalysis
ret = SapModel.DesignConcrete.StartDesign()
ret = SapModel.DesignConcrete.ACI318_08_IBC2009.SetPreference(2, 9)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End Sub
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")
'run analysis
System.IO.Directory.CreateDirectory("c:\CSI_API_temp")
ret = SapModel.File.Save("C:\CSI_API_temp\example.edb")
ret = SapModel.Analyze.RunAnalysis
'start concrete design
ret = SapModel.DesignConcrete.StartDesign()
'set preference item
ret = SapModel.DesignConcrete.ACI318_08_IBC2009.SetPreference(2, 9)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub