public SapModel(string _modelDirectory, string _modelName = "Trial1") { this.modelDirectory = _modelDirectory; this.modelName = _modelName; //set the following flag to true to attach to an existing instance of the program //otherwise a new instance of the program will be started AttachToInstance = false; //set the following flag to true to manually specify the path to SAP2000.exe //this allows for a connection to a version of SAP2000 other than the latest installation //otherwise the latest installed version of SAP2000 will be launched SpecifyPath = false; //if the above flag is set to true, specify the path to SAP2000 below string ProgramPath; ProgramPath = "C:\\Program Files (x86)\\Computers and Structures\\SAP2000 20\\SAP2000.exe"; //full path to the model //set it to the desired path of your model try { System.IO.Directory.CreateDirectory(ModelDirectory); } //Model Directory is input to the constructor. catch (Exception /*ex*/) { Console.WriteLine("Could not create directory: " + ModelDirectory); } modelPath = ModelDirectory + System.IO.Path.DirectorySeparatorChar + ModelName; //model name is input to the constructor. //dimension the SapObject as cOAPI type cOAPI mySapObjectAPI = null; //Use ret to check if functions return successfully (ret = 0) or fail (ret = nonzero) int ret = 0; if (AttachToInstance) { //attach to a running instance of SAP2000 try { //get the active SapObject mySapObjectAPI = (cOAPI)System.Runtime.InteropServices.Marshal.GetActiveObject("CSI.SAP2000.API.SapObject"); } catch (Exception /*ex*/) { Console.WriteLine("No running instance of the program found or failed to attach."); return; } } else { //create API helper object from which we create SAPAPI object from which we Create SAPModel// cHelper myHelper; try { myHelper = new Helper(); } catch (Exception /*ex*/) { Console.WriteLine("Cannot create an instance of the Helper object"); return; } if (SpecifyPath) { //'create an instance of the SapObject from the specified path try { //create SapObject mySapObjectAPI = myHelper.CreateObject(ProgramPath); } catch (Exception /*ex*/) { Console.WriteLine("Cannot start a new instance of the program from " + ProgramPath); return; } } else { //'create an instance of the SapObject from the latest installed SAP2000 try { //create SapObject mySapObjectAPI = myHelper.CreateObjectProgID("CSI.SAP2000.API.SapObject"); } catch (Exception /*ex*/) { Console.WriteLine("Cannot start a new instance of the program."); return; } } //start SAP2000 application ret = mySapObjectAPI.ApplicationStart(eUnits.kN_m_C); } //create SapModel object mySapObjectModel = mySapObjectAPI.SapModel; }
static void Main(string[] args) { //set the following flag to true to attach to an existing instance of the program //otherwise a new instance of the program will be started bool AttachToInstance; AttachToInstance = false; //set the following flag to true to manually specify the path to SAP2000.exe //this allows for a connection to a version of SAP2000 other than the latest installation //otherwise the latest installed version of SAP2000 will be launched bool SpecifyPath; SpecifyPath = true; //if the above flag is set to true, specify the path to SAP2000 below string ProgramPath; ProgramPath = "C:\\Program Files\\Computers and Structures\\SAP2000 19\\SAP2000.exe"; //full path to the model //set it to the desired path of your model string ModelDirectory = "C:\\CSiAPIexample"; try { System.IO.Directory.CreateDirectory(ModelDirectory); } catch (Exception ex) { Console.WriteLine("Could not create directory: " + ModelDirectory); } string ModelName = "API_1-001.sdb"; string ModelPath = ModelDirectory + System.IO.Path.DirectorySeparatorChar + ModelName; //dimension the SapObject as cOAPI type cOAPI mySapObject = null; //Use ret to check if functions return successfully (ret = 0) or fail (ret = nonzero) int ret = 0; if (AttachToInstance) { //attach to a running instance of SAP2000 try { //get the active SapObject mySapObject = (cOAPI)System.Runtime.InteropServices.Marshal.GetActiveObject("CSI.SAP2000.API.SapObject"); } catch (Exception ex) { Console.WriteLine("No running instance of the program found or failed to attach."); return; } } else { //create API helper object cHelper myHelper; try { myHelper = new Helper(); } catch (Exception ex) { Console.WriteLine("Cannot create an instance of the Helper object"); return; } if (SpecifyPath) { //'create an instance of the SapObject from the specified path try { //create SapObject mySapObject = myHelper.CreateObject(ProgramPath); } catch (Exception ex) { Console.WriteLine("Cannot start a new instance of the program from " + ProgramPath); return; } } else { //'create an instance of the SapObject from the latest installed SAP2000 try { //create SapObject mySapObject = myHelper.CreateObjectProgID("CSI.SAP2000.API.SapObject"); } catch (Exception ex) { Console.WriteLine("Cannot start a new instance of the program."); return; } } //start SAP2000 application ret = mySapObject.ApplicationStart(); } //create SapModel object cSapModel mySapModel; mySapModel = mySapObject.SapModel; //initialize model ret = mySapModel.InitializeNewModel((eUnits.kip_in_F)); //create new blank model ret = mySapModel.File.NewBlank(); //define material property ret = mySapModel.PropMaterial.SetMaterial("CONC", eMatType.Concrete, -1, "", ""); //assign isotropic mechanical properties to material ret = mySapModel.PropMaterial.SetMPIsotropic("CONC", 3600, 0.2, 0.0000055, 0); //define rectangular frame section property ret = mySapModel.PropFrame.SetRectangle("R1", "CONC", 12, 12, -1, "", ""); //define frame section property modifiers double[] ModValue = new double[8]; int i; for (i = 0; i <= 7; i++) { ModValue[i] = 1; } ModValue[0] = 1000; ModValue[1] = 0; ModValue[2] = 0; ret = mySapModel.PropFrame.SetModifiers("R1", ref ModValue); //switch to k-ft units ret = mySapModel.SetPresentUnits(eUnits.kip_ft_F); //add frame object by coordinates string[] FrameName = new string[3]; string temp_string1 = FrameName[0]; string temp_string2 = FrameName[0]; ret = mySapModel.FrameObj.AddByCoord(0, 0, 0, 0, 0, 10, ref temp_string1, "R1", "1", "Global"); FrameName[0] = temp_string1; ret = mySapModel.FrameObj.AddByCoord(0, 0, 10, 8, 0, 16, ref temp_string1, "R1", "2", "Global"); FrameName[1] = temp_string1; ret = mySapModel.FrameObj.AddByCoord(-4, 0, 10, 0, 0, 10, ref temp_string1, "R1", "3", "Global"); FrameName[2] = temp_string1; //assign point object restraint at base string[] PointName = new string[2]; bool[] Restraint = new bool[6]; for (i = 0; i <= 3; i++) { Restraint[i] = true; } for (i = 4; i <= 5; i++) { Restraint[i] = false; } ret = mySapModel.FrameObj.GetPoints(FrameName[0], ref temp_string1, ref temp_string2); PointName[0] = temp_string1; PointName[1] = temp_string2; ret = mySapModel.PointObj.SetRestraint(PointName[0], ref Restraint, 0); //assign point object restraint at top for (i = 0; i <= 1; i++) { Restraint[i] = true; } for (i = 2; i <= 5; i++) { Restraint[i] = false; } ret = mySapModel.FrameObj.GetPoints(FrameName[1], ref temp_string1, ref temp_string2); PointName[0] = temp_string1; PointName[1] = temp_string2; ret = mySapModel.PointObj.SetRestraint(PointName[1], ref Restraint, 0); //refresh view, update (initialize) zoom bool temp_bool = false; ret = mySapModel.View.RefreshView(0, temp_bool); //add load patterns temp_bool = true; ret = mySapModel.LoadPatterns.Add("1", eLoadPatternType.Other, 1, temp_bool); ret = mySapModel.LoadPatterns.Add("2", eLoadPatternType.Other, 0, temp_bool); ret = mySapModel.LoadPatterns.Add("3", eLoadPatternType.Other, 0, temp_bool); ret = mySapModel.LoadPatterns.Add("4", eLoadPatternType.Other, 0, temp_bool); ret = mySapModel.LoadPatterns.Add("5", eLoadPatternType.Other, 0, temp_bool); ret = mySapModel.LoadPatterns.Add("6", eLoadPatternType.Other, 0, temp_bool); ret = mySapModel.LoadPatterns.Add("7", eLoadPatternType.Other, 0, temp_bool); //assign loading for load pattern 2 ret = mySapModel.FrameObj.GetPoints(FrameName[2], ref temp_string1, ref temp_string2); PointName[0] = temp_string1; PointName[1] = temp_string2; double[] PointLoadValue = new double[6]; PointLoadValue[2] = -10; ret = mySapModel.PointObj.SetLoadForce(PointName[0], "2", ref PointLoadValue, false, "Global", 0); ret = mySapModel.FrameObj.SetLoadDistributed(FrameName[2], "2", 1, 10, 0, 1, 1.8, 1.8, "Global", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0); //assign loading for load pattern 3 ret = mySapModel.FrameObj.GetPoints(FrameName[2], ref temp_string1, ref temp_string2); PointName[0] = temp_string1; PointName[1] = temp_string2; PointLoadValue = new double[6]; PointLoadValue[2] = -17.2; PointLoadValue[4] = -54.4; ret = mySapModel.PointObj.SetLoadForce(PointName[1], "3", ref PointLoadValue, false, "Global", 0); //assign loading for load pattern 4 ret = mySapModel.FrameObj.SetLoadDistributed(FrameName[1], "4", 1, 11, 0, 1, 2, 2, "Global", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0); //assign loading for load pattern 5 ret = mySapModel.FrameObj.SetLoadDistributed(FrameName[0], "5", 1, 2, 0, 1, 2, 2, "Local", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0); ret = mySapModel.FrameObj.SetLoadDistributed(FrameName[1], "5", 1, 2, 0, 1, -2, -2, "Local", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0); //assign loading for load pattern 6 ret = mySapModel.FrameObj.SetLoadDistributed(FrameName[0], "6", 1, 2, 0, 1, 0.9984, 0.3744, "Local", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0); ret = mySapModel.FrameObj.SetLoadDistributed(FrameName[1], "6", 1, 2, 0, 1, -0.3744, 0, "Local", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0); //assign loading for load pattern 7 ret = mySapModel.FrameObj.SetLoadPoint(FrameName[1], "7", 1, 2, 0.5, -15, "Local", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0); //switch to k-in units ret = mySapModel.SetPresentUnits(eUnits.kip_in_F); //save model ret = mySapModel.File.Save(ModelPath); //run model (this will create the analysis model) ret = mySapModel.Analyze.RunAnalysis(); //initialize for SAP2000 results double[] SapResult = new double[7]; ret = mySapModel.FrameObj.GetPoints(FrameName[1], ref temp_string1, ref temp_string2); PointName[0] = temp_string1; PointName[1] = temp_string2; //get SAP2000 results for load patterns 1 through 7 int NumberResults = 0; string[] Obj = new string[1]; string[] Elm = new string[1]; string[] LoadCase = new string[1]; string[] StepType = new string[1]; double[] StepNum = new double[1]; double[] U1 = new double[1]; double[] U2 = new double[1]; double[] U3 = new double[1]; double[] R1 = new double[1]; double[] R2 = new double[1]; double[] R3 = new double[1]; for (i = 0; i <= 6; i++) { ret = mySapModel.Results.Setup.DeselectAllCasesAndCombosForOutput(); ret = mySapModel.Results.Setup.SetCaseSelectedForOutput(System.Convert.ToString(i + 1), System.Convert.ToBoolean(-1)); if (i <= 3) { ret = mySapModel.Results.JointDispl(PointName[1], eItemTypeElm.ObjectElm, ref NumberResults, ref Obj, ref Elm, ref LoadCase, ref StepType, ref StepNum, ref U1, ref U2, ref U3, ref R1, ref R2, ref R3); U3.CopyTo(U3, 0); SapResult[i] = U3[0]; } else { ret = mySapModel.Results.JointDispl(PointName[0], eItemTypeElm.ObjectElm, ref NumberResults, ref Obj, ref Elm, ref LoadCase, ref StepType, ref StepNum, ref U1, ref U2, ref U3, ref R1, ref R2, ref R3); U1.CopyTo(U1, 0); SapResult[i] = U1[0]; } } //close SAP2000 mySapObject.ApplicationExit(false); mySapModel = null; mySapObject = null; //fill SAP2000 result strings string[] SapResultString = new string[7]; for (i = 0; i <= 6; i++) { SapResultString[i] = string.Format("{0:0.00000}", SapResult[i]); ret = (string.Compare(SapResultString[i], 1, "-", 1, 1, true)); if (ret != 0) { SapResultString[i] = " " + SapResultString[i]; } } //fill independent results double[] IndResult = new double[7]; string[] IndResultString = new string[7]; IndResult[0] = -0.02639; IndResult[1] = 0.06296; IndResult[2] = 0.06296; IndResult[3] = -0.2963; IndResult[4] = 0.3125; IndResult[5] = 0.11556; IndResult[6] = 0.00651; for (i = 0; i <= 6; i++) { IndResultString[i] = string.Format("{0:0.00000}", IndResult[i]); ret = (string.Compare(IndResultString[i], 1, "-", 1, 1, true)); if (ret != 0) { IndResultString[i] = " " + IndResultString[i]; } } //fill percent difference double[] PercentDiff = new double[7]; string[] PercentDiffString = new string[7]; for (i = 0; i <= 6; i++) { PercentDiff[i] = (SapResult[i] / IndResult[i]) - 1; PercentDiffString[i] = string.Format("{0:0%}", PercentDiff[i]); ret = (string.Compare(PercentDiffString[i], 1, "-", 1, 1, true)); if (ret != 0) { PercentDiffString[i] = " " + PercentDiffString[i]; } } //display message box comparing results string msg = ""; msg = msg + "LC Sap2000 Independent %Diff\r\n"; for (i = 0; i <= 5; i++) { msg = msg + string.Format("{0:0}", i + 1) + " " + SapResultString[i] + " " + IndResultString[i] + " " + PercentDiffString[i] + "\r\n"; } msg = msg + string.Format("{0:0}", i + 1) + " " + SapResultString[i] + " " + IndResultString[i] + " " + PercentDiffString[i]; Console.WriteLine(msg); Console.ReadKey(); }