cDCoSP63133302011SetOverwrite Method |
Namespace: ETABS2016
int SetOverwrite( string Name, int Item, double Value, eItemType ItemType = eItemType.Objects )
Value >= 0; 0 means use program determined value
Value >= 0; 0 means use program determined value
Value >= 0; 0 means use program determined value
Effective length factor, K MajorValue >= 0; 0 means use program determined value
Effective length factor, K MinorValue >= 0; 0 means use program determined value
Moment coefficient, Cm MajorValue >= 0; 0 means use program determined value
Moment coefficient, Cm MinorValue >= 0; 0 means use program determined value
Nonsway moment factor, Db MajorValue >= 0; 0 means use program determined value
Nonsway moment factor, Db MinorValue >= 0; 0 means use program determined value
Sway moment factor, Ds MajorValue >= 0; 0 means use program determined value
Sway moment factor, Ds MinorValue >= 0; 0 means use program determined value
If this item is Objects, the assignment is made to the frame object specified by the Name item.
If this item is Group, the assignment is made to all frame objects in the group specified by the Name item.
If this item is SelectedObjects, the assignment is made to all selected frame objects and the Name item is ignored.
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") 'set overwrite item ret = SapModel.DesignConcrete.SP63133302011.SetOverwrite("8", 1, 2) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub