cDCoACI318_08_IBC2009GetPreference Method |
Namespace: ETABS2016
Value >= 4 and devisable by 4
Value >= 5 and odd
0 = No
Any other value = Yes
Value > 0
Value > 0
Value > 0
Value > 0
Value > 0
Value > 0
Value >= 0
Value > 0
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 Dim Value 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) '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() 'get preference item ret = SapModel.DesignConcrete.ACI318_08_IBC2009.GetPreference(2, Value) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub