cComboDeleteCase Method |
Namespace: ETABS2016
This item indicates whether the CName item is an analysis case (LoadCase) or a load combination (LoadCombo).
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) 'add combo ret = SapModel.RespCombo.Add("COMB1", 0) 'add load case to combo ret = SapModel.RespCombo.SetCaseList("COMB1", LoadCase, "DEAD", 1.4) 'delete load case from combo ret = SapModel.RespCombo.DeleteCase("COMB1", LoadCase, "DEAD") 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub