Sap2000官方API文档中的C#示例（已修改原有错误并加中文注释）
1. Create a new Visual C# 2010 project. 新建Visual C# 2010工程
2. Add a reference (COM) in the project to the Sap2000.exe. 添加Sap2000.exe引用到工程
3. Add a new button to a form in the project. 在窗体上添加一个新按钮
4. Double click on the new button to bring up the Click procedure for the button and paste in the following code. 双击新建的按钮添加如下代码
PS：记得添加 using System.Windows.Forms; using Sap2000;
//dimension variables 定义变量
Sap2000.SapObject SapObject;
Sap2000.cSapModel SapModel;
int ret;
int i;
double[] ModValue;
double[] PointLoadValue;
bool[] Restraint;
string[] FrameName;
string[] PointName;
int NumberResults;
string[] Obj;
string[] Elm;
string[] LoadCase;
string[] StepType;
double[] StepNum;
double[] U1;
double[] U2;
double[] U3;
double[] R1;
double[] R2;
double[] R3;
double[] SapResult;
double[] IndResult;
double[] PercentDiff;
string[] SapResultString;
string[] IndResultString;
string[] PercentDiffString;
string msg;
string temp_string1;
string temp_string2;
bool temp_bool;
//create Sap2000 object 创建Sap2000对象
SapObject = new Sap2000.SapObject();
//start Sap2000 application 运行Sap2000程序
temp_bool = true;
SapObject.ApplicationStart(Sap2000.eUnits.kip_in_F, temp_bool, "");
//create SapModel object 创建模型对象
SapModel = SapObject.SapModel;
//initialize model 初始化模型
ret = SapModel.InitializeNewModel((Sap2000.eUnits.kip_in_F));
//create new blank model 新建空白模型
ret = SapModel.File.NewBlank();
//define material property 定义材料属性
ret = SapModel.PropMaterial.SetMaterial("CONC", Sap2000.eMatType.MATERIAL_CONCRETE, -1, "", "");
//assign isotropic mechanical properties to material 添加材料各向同性力学属性
ret = SapModel.PropMaterial.SetMPIsotropic("CONC", 3600, 0.2, 0.0000055, 0);
//define rectangular frame section property 定义矩形框架截面属性
ret = SapModel.PropFrame.SetRectangle("R1", "CONC", 12, 12, -1, "", "");
//define frame section property modifiers 定义矩形框架截面属性修改器
ModValue = new double[8];
for (i = 0; i <= 7; i++)
{
ModValue[i] = 1;
}
ModValue[0] = 1000;
ModValue[1] = 0;
ModValue[2] = 0;
System.Array temp_SystemArray = ModValue;
ret = SapModel.PropFrame.SetModifiers("R1", ref temp_SystemArray);
//switch to k-ft units 切换至kip_ft_F单位
ret = SapModel.SetPresentUnits(Sap2000.eUnits.kip_ft_F);
//add frame object by coordinates 通过坐标系添加框架对象
FrameName = new string[3];
temp_string1 = FrameName[0];
temp_string2 = FrameName[0];
ret = SapModel.FrameObj.AddByCoord(0, 0, 0, 0, 0, 10, ref temp_string1, "R1", "1", "Global");
FrameName[0] = temp_string1;
ret = SapModel.FrameObj.AddByCoord(0, 0, 10, 8, 0, 16, ref temp_string1, "R1", "2", "Global");
FrameName[1] = temp_string1;
ret = SapModel.FrameObj.AddByCoord(-4, 0, 10, 0, 0, 10, ref temp_string1, "R1", "3", "Global");
FrameName[2] = temp_string1;
//assign point object restraint at base 在底部添加节点约束
PointName = new string[2];
Restraint = new bool[6];
for (i = 0; i <= 3; i++)
{
Restraint[i] = true;
}
for (i = 4; i <= 5; i++)
{
Restraint[i] = false;
}
ret = SapModel.FrameObj.GetPoints(FrameName[0], ref temp_string1, ref temp_string2);
PointName[0] = temp_string1;
PointName[1] = temp_string2;
System.Array temp_SystemArray1 = Restraint;
ret = SapModel.PointObj.SetRestraint(PointName[0], ref temp_SystemArray1, 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 = SapModel.FrameObj.GetPoints(FrameName[1], ref temp_string1, ref temp_string2);
PointName[0] = temp_string1;
PointName[1] = temp_string2;
temp_SystemArray1 = Restraint;
ret = SapModel.PointObj.SetRestraint(PointName[1], ref temp_SystemArray1, 0);
//refresh view, update (initialize) zoom 刷新视图，更新图像
temp_bool = false;
ret = SapModel.View.RefreshView(0, temp_bool);
//add load patterns 添加荷载类型
temp_bool = true;
ret = SapModel.LoadPatterns.Add("1", Sap2000.eLoadPatternType.LTYPE_OTHER, 1, temp_bool);
ret = SapModel.LoadPatterns.Add("2", Sap2000.eLoadPatternType.LTYPE_OTHER, 0, temp_bool);
ret = SapModel.LoadPatterns.Add("3", Sap2000.eLoadPatternType.LTYPE_OTHER, 0, temp_bool);
ret = SapModel.LoadPatterns.Add("4", Sap2000.eLoadPatternType.LTYPE_OTHER, 0, temp_bool);
ret = SapModel.LoadPatterns.Add("5", Sap2000.eLoadPatternType.LTYPE_OTHER, 0, temp_bool);
ret = SapModel.LoadPatterns.Add("6", Sap2000.eLoadPatternType.LTYPE_OTHER, 0, temp_bool);
ret = SapModel.LoadPatterns.Add("7", Sap2000.eLoadPatternType.LTYPE_OTHER, 0, temp_bool);
//assign loading for load pattern 2 为荷载类型2添加荷载
ret = SapModel.FrameObj.GetPoints(FrameName[2], ref temp_string1, ref temp_string2);
PointName[0] = temp_string1;
PointName[1] = temp_string2;
PointLoadValue = new double[6];
PointLoadValue[2] = -10;
temp_SystemArray1 = PointLoadValue;
ret = SapModel.PointObj.SetLoadForce(PointName[0], "2", ref temp_SystemArray1, false, "Global", 0);
ret = SapModel.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 为荷载类型3添加荷载
ret = SapModel.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;
temp_SystemArray1 = PointLoadValue;
ret = SapModel.PointObj.SetLoadForce(PointName[1], "3", ref temp_SystemArray1, false, "Global", 0);
//assign loading for load pattern 4 为荷载类型4添加荷载
ret = SapModel.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 为荷载类型5添加荷载
ret = SapModel.FrameObj.SetLoadDistributed(FrameName[0], "5", 1, 2, 0, 1, 2, 2, "Local", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0);
ret = SapModel.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 为荷载类型6添加荷载
ret = SapModel.FrameObj.SetLoadDistributed(FrameName[0], "6", 1, 2, 0, 1, 0.9984, 0.3744, "Local", System.Convert.ToBoolean(-1), System.Convert.ToBoolean(-1), 0);
ret = SapModel.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 为荷载类型7添加荷载
ret = SapModel.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 切换至kip_in_F单位
ret = SapModel.SetPresentUnits(Sap2000.eUnits.kip_in_F);
//save model 保存模型（官方原代码未创建文件夹导致计算不出结果）
Directory.CreateDirectory("C:\\SapAPI");
ret = SapModel.File.Save("C:\\SapAPI\\API_1-001.sdb");
//run model (this will create the analysis model) 运行分析模型（该命令将自动创建分析模型）
ret = SapModel.Analyze.RunAnalysis();
//initialize for Sap2000 results 初始化Sap2000分析结果
SapResult = new double[7];
ret = SapModel.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 获取荷载类型1~7的分析结果
NumberResults = 0;
Obj = new string[1];
Elm = new string[1];
LoadCase = new string[1];
StepType = new string[1];
StepNum = new double[1];
U1 = new double[1];
U2 = new double[1];
U3 = new double[1];
R1 = new double[1];
R2 = new double[1];
R3 = new double[1];
for (i = 0; i <= 6; i++)
{
ret = SapModel.Results.Setup.DeselectAllCasesAndCombosForOutput();
ret = SapModel.Results.Setup.SetCaseSelectedForOutput(System.Convert.ToString(i + 1), System.Convert.ToBoolean(-1));
if (i <= 3)
{
System.Array temp_SystemArray2 = Obj;
System.Array temp_SystemArray3 = Elm;
System.Array temp_SystemArray4 = LoadCase;
System.Array temp_SystemArray5 = StepType;
System.Array temp_SystemArray6 = StepNum;
System.Array temp_SystemArray7 = U1;
System.Array temp_SystemArray8 = U2;
System.Array temp_SystemArray9 = U3;
System.Array temp_SystemArray10 = R1;
System.Array temp_SystemArray11 = R2;
System.Array temp_SystemArray12 = R3;
ret = SapModel.Results.JointDispl(PointName[1], Sap2000.eItemTypeElm.ObjectElm, ref NumberResults, ref temp_SystemArray2, ref temp_SystemArray3, ref temp_SystemArray4, ref temp_SystemArray5, ref temp_SystemArray6, ref temp_SystemArray7, ref temp_SystemArray8, ref temp_SystemArray9, ref temp_SystemArray10, ref temp_SystemArray11, ref temp_SystemArray12);
temp_SystemArray9.CopyTo(U3, 0);
SapResult[i] = U3[0];
}
else
{
System.Array temp_SystemArray2 = Obj;
System.Array temp_SystemArray3 = Elm;
System.Array temp_SystemArray4 = LoadCase;
System.Array temp_SystemArray5 = StepType;
System.Array temp_SystemArray6 = StepNum;
System.Array temp_SystemArray7 = U1;
System.Array temp_SystemArray8 = U2;
System.Array temp_SystemArray9 = U3;
System.Array temp_SystemArray10 = R1;
System.Array temp_SystemArray11 = R2;
System.Array temp_SystemArray12 = R3;
ret = SapModel.Results.JointDispl(PointName[0], Sap2000.eItemTypeElm.ObjectElm, ref NumberResults, ref temp_SystemArray2, ref temp_SystemArray3, ref temp_SystemArray4, ref temp_SystemArray5, ref temp_SystemArray6, ref temp_SystemArray7, ref temp_SystemArray8, ref temp_SystemArray9, ref temp_SystemArray10, ref temp_SystemArray11, ref temp_SystemArray12);
temp_SystemArray7.CopyTo(U1, 0);
SapResult[i] = U1[0];
}
}
//close Sap2000 关闭Sap2000程序
SapObject.ApplicationExit(false);
SapModel = null;
SapObject = null;
//fill Sap2000 result strings 格式化Sap2000分析结果
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 格式化独立数据
IndResult = new double[7];
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 格式化百分比
PercentDiff = new double[7];
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 通过消息框显示输出比较结果
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];
MessageBox.Show(msg);
浙公网安备 33010602011771号