cAnalyzeGetCaseStatus Method |
Namespace: ETABS2016
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 Dim NumberItems As Integer Dim CaseName() As String Dim Status() As Integer '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) 'set load case run flag ret = SapModel.Analyze.SetRunCaseFlag("MODAL", False) 'run analysis System.IO.Directory.CreateDirectory("c:\CSI_API_temp") ret = SapModel.File.Save("C:\CSI_API_temp\example.edb") ret = SapModel.Analyze.RunAnalysis 'get load case status ret = SapModel.Analyze.GetCaseStatus(NumberItems, CaseName, Status) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub