用VBA，做想做的一切事！

刚架结构计算书
工程项目： 计算人： 日期： 2003.10.31
一、 刚架的整体构造及结构和荷载信息输入:
A、 整体 情况 杆单元数量UM 刚架结点数PM 总约束度数RM 支承节点数
4 5 6 2
总结点荷载数LPM 非结点荷载数LFM 刚架的弹性模量E0 泊松比λ
0 4 2.06E+05 0.28
B、 杆单元在整体坐标系中的倾斜角度、长度、截面面积及截面惯性矩
单元编号 始结点编码(JM1) 终结点编码(JM2) 倾斜角度（°） 长度（mm） 截面面积(mm2) 截面惯性矩(mm4) 左端刚域长(mm) 右端刚域长(mm)
1 1 2 89.99999999 21200 1.60E+04 1.08E+09 0 0
2 2 3 7.12564 11310 1.60E+04 1.08E+09 0 0
3 3 4 -7.12564 11310 1.60E+04 1.08E+09 0 0
4 4 5 -89.99999999 21200 1.60E+04 1.08E+09 0 0
C、 刚架的设计荷载信息输入：
结点荷载息 非结点荷载信息 支承信息
数值 位置编码 数值 位置 杆单元编号 类型编码 支承约束位置编码
-4 21200 1 1 1 2 3
3 11310 2 1 13 14 15
2.5 11310 3 1
2.5 21200 4 1
二、 计算结果
1、 结点位移、等效结点荷载及单元中点局部挠度
节点编号 节点位移 等效节点荷载 单元跨中局部挠度
X方向(mm) Y方向(mm) 转角(θ) Fx(KN) Fy(KN) Fm(KN.m) 单元编号 挠度值(mm)
1 0 0 0 42.40000153 -2.12E-08 149.813328 1 -3.826
2 161.5754852 0.324244887 0.069536695 40.29550171 16.83449936 -181.794368 2 -3.903
3 159.0166168 20.93705177 -0.093778554 -0.350617677 30.86219215 5.330172 3 11.165
4 156.412 0.073 0.323 28.25364113 14.02786827 -66.982472 4 -8.128
5 0.000 0.000 0.000 26.5 1.325E-08 93.633336
2、 杆单元端点内力跨内最大弯矩
杆单元编号 始端内力 终端内力 跨内最大(正)弯矩
轴力(KN) 剪力(KN) 弯矩(KN.m) 轴力(KN) 剪力(KN) 弯矩(KN.m) 值(KN.m) 相对位置
1 -50.41 83.73 -600.61 50.41 1.07 -275.58 275.68 0.980
2 -5.20 -50.15 275.58 5.20 16.22 99.79 275.58 0.000
3 -1.04 -17.00 -99.79 1.04 -11.27 132.20 -99.79 0.000
4 -11.31 0.37 -132.20 11.31 -53.37 -437.42 437.42 1.000
三、 计算简图及内力图