必须再赞一次，居然支持64位win7的cad2010
大爱呀
好东东 顶 高山大大
;;;-------------------------2014年04月07日更新
1.【修改辅助】★多段线超级简化，命令改为【★多线超简】，更新简化内核，原来只简化为ARC，更改为自适应识别简直线段和圆弧段，引入可输入同弧或同直段容差，可输入；
这个功能主要用于形似图块简化（如人物、树木图块等）减少图形存储量。
2.调整sjrf.shx字体文件，上下标起止标识符号%%160~%%163为%%190~%%193，因其中两个标识号在高版本CAD中未能引用到特殊UNICODE码，会引起双击时文字变形。
3.改进批量修改文字程序，对高版本天正对象的支持。
4.改进等高线绘制程序(采用YMG程序增减)，增加等高线倒角功能。
5.增加二维Voronoi图绘制程序，命令SS_Voronoi。
6.改进离散点集三角网程序SS_Tin，增加可生成2DVoronoi图选项。
7.引入了Charles Alan Butler 的把对象制作成lisp文件的程序,命令MakeEntMake ,修改了原有函数Obj->str，***其他相关函数未作测试***需要找时间测试下。
8.增加【塔吊计算】工具，风荷载计算SS_Crane_QW、支座反力计算SS_Crane_RF、附着杆内力计算SS_Crane_AttMF。
9.增加【仿射变形】工具，将原定向仿射、四边形仿射移至该栏，增加单线网格SS_1CURVE_MESH、双向网格SS_2CURVE_MESH、四线仿射SS_4S_AFF、任意边界仿射SS_B_AFF。
10.修改同时新增了连续梁力矩分配法计算函数：SS:SM:M-d-m 详细用法见后面跟帖。
三角网和等高线程序的演示
塔吊相关计算的对话框图片
单线网格和双线网格
本帖最后由 chlh_jd 于 2014-4-7 11:42 编辑
四线仿射和任意边界仿射
新增结构力学力矩分配法函数：SS:SM:M-d-m
;; 力矩分配法 求连续梁中间支座弯矩
;; Moment distribution method for the continuous beam bearing moment
;; mi_lst --初始弯矩
;; u_lst--中间支座左右分配系数
;; c_lst--中间支座杆端弯矩传递系数
;; ml --左支座初始弯矩
;; mr --右支座初始弯矩
;;
;; 返回 中间支座弯矩表、左支座弯矩、右支座弯矩
;;
;; E.G.
;| (SS:SM:M-d-m
'((931.411 71.8667) (-71.8667 71.8667) (-71.8667 71.8667))
'((0.428571 0.571429) (0.5 0.5) (0.5 0.5))
'((0.0 0.5) (0.5 0.5) (0.5 0.5))
2078.42
-71.8667
2e-4)
--> (((465.973 -465.973) (-216.67 216.67) (-30.4944 30.4944))
2078.42
-92.5528)|;
;; Note : 本程序仅用于每个支座只有两杆相连的连续梁
;;
;; 相关帮助
;; 分配系数:
;;Uba = Sba / (Sba+Sbc) , Ubc = Sbc / (Sba+Sbc)
;; Sij 为节点转动刚度,只与远端(j端)支座发生关系
;; 远端固端 -- 4i
;; 远端铰接 -- 3i
;; 远端滑动 -- i
;; 远端自由 -- 0
;; 其中 i 为相应跨梁线刚度 i = EI / L
;; 传递系数:
;; Cba = Mab / Mba 、Cbc = Mcb / Mbc
;; Cij 只与远端(j端)支座情况发生关系
;; 远端固定 -- 0.5
;; 远端铰接 -- 0
;; 远端滑动 -- -1.
感谢大神的无私分享~
感谢楼主无私奉献