高山流水结构工具箱（贺晓东论坛重生）

高山流水

;;;-------------------------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 详细用法见后面跟帖。

高山流水

三角网和等高线程序的演示

高山流水

塔吊相关计算的对话框图片

高山流水

单线网格和双线网格

高山流水

四线仿射和任意边界仿射

高山流水

新增结构力学力矩分配法函数：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.

yzdzz

跟tssd、天正及别的插件如小伙、xman等冲突吗？

高山流水

我就是用在TSSD和天正融合环境的，小伙没用过，XMAN里面有高山流水工具箱的，不过更新可能没那么快

enn09

感谢分享，好程序

figo7212

版本已过期请下载新版.函数:/参数表:(1 0)  怎么处理？2014年04月07日版的

figo7212

做屋面板 用通长筋+附加筋的时候，我们常常 附加筋 隔一放一 即间距大一倍。附加筋前一般也会加个前缀注明下 比如 +f8@400或附加f8@400。如果能这样完善下 就更好了 谢谢！！

高山流水

;;;------------------------2014年5月5日更新
明经通道下载地址：http://bbs.mjtd.com/thread-83390-1-1.html  晓东家园下载地址：http://bbs.xdcad.net/thread-667553-1-1.html
1、紧急修改，原版本限制日期为2014年5月1日修改为2015年5月1日。
2、新增对ACAD2012~2015（32位和64位系统）的支持。
3、改进图纸再造程序MakeEntMake，支持嵌套块，该命令将产生一个以图纸名称命名的线型文件在第1个系统支持搜索目录内，\\***\\<图名>.Lin；并产生一个以<图名>.lsp文件在
图纸所在文件夹内；请新建空白图纸，并加载<图名>.lsp，然后执行Emake再造图纸。
该程序制作的新图，不再受教育版及去印戳后被提示非AutoCAD产品制作的困恼。
操作视频见后附跟帖。
4、改进读取文本流函数SS:READBINARY,具体用法见后序跟帖。
5、新增字体文件字形索引编号及索引形名称查看函数，SS:Shx:GetIndexName 。
6、本程序加载了AutoCAD自带的ARX程序Geom3D.arx和GeomCAL.arx文件，即可下列使用系统函数，方便编程：
(cal "-0.2+5^3/2*sin(1.4)")
(align <选择集/对象> <第1个源点> <第1个目标点> <第2个源点> <第2个目标点> [指定第3个源点+第3个目标点或 <继续, [是否基于对齐点缩放对象？[是(Y)/否(N)] <否>] >])
(3dalign <选择集/对象> [复制C] <第1个源点,基点> <第2个源点> <第3个源点> <第1个目标点>  <第2个目标点> <第3个目标点>)
(mirror3d <选择集/对象> <[对象(O)/最近的(L)/Z 轴(Z)/视图(V)/XY 平面(XY)/YZ 平面(YZ)/ZX 平面(ZX)/三点(3)]<三点>]> )
(rotate3d <选择集/对象> <[对象(O)/最近的(L)/视图(V)/x 轴(X)/y 轴(Y)/z 轴(Z)/两点(2)]>)

高山流水

1. 
   
2. ;;;------------------------------------------------------------------------------;;;
   
3. ;;;                     SS:ReadBinaryStream      V2.0                            ;;;
   
4. ;;;------------------------------------------------------------------------------;;;
   
5. ;;  
   
6. ;;  function : Read binarystream from file(full path) by given charset , return a List or a String .
   
7. ;;  
   
8. ;;  Args:
   
9. ;;  file -- file name with full path , The file size must be less than amount of memory can be used for the current AUTOCAD .
   
10. ;;           
    
11. ;;  char -- charset name , it must register in your system , see the Windows registry sub-key in [url=file://\\HKEY_CLASSES_ROOT\\MIME\\Database\\Charset]\\HKEY_CLASSES_ROOT\\MIME\\Database\\Charset[/url]
    
12. ;;           such as "unicode","ascii","us-ascii","chinese","GB2132", etc.
    
13. ;;          nil & "Unicode" , allways return a list like by vlisp function Read-char .
    
14. ;;          Oterwise , the char will be used to convert the stream into text string .
    
15. ;;           
    
16. ;;  pos  -- position for start read byte , first start pos is 0 , second is 1,
    
17. ;;                   for Bigfont-Char it maybe use two bytes , if so the second text start pos is 2 , 4 ... 2n .
    
18. ;;  len  -- Numbits for read or readtext , if nil or beyond the size , will be set to suit Maximum value .
    
19. ;;  
    
20. ;;  Returns -- if char is nil or "Unicode" , returns a ascii code list ;after Acad2008 , The system expansion Charset beyond the 256 limit ,
    
21. ;;                      so it may return number like 18760 ,for this case , you can use (rem 18760 256) to get the ascii code like old version .
    
22. ;;             if char is not nil and "Unicode" , and it's supported in your window system , returns a string .
    
23. ;;  
    
24. ;;  by GSLS(SS) 10.23-2011 ~
    
25. ;;--------------------------------------------------------------------------;;
    
26. ;; Refrence :
    
27. ;;   adodb.stream      from   [url=http://baike.baidu.com/link?url=HkCWIQo1pSmTMN76tTipNkSUR5O_s7_8ctpH_XXuo06y2qhd-TCAkCCuxDOtNi55zA5V9eTPO4fobMbeYDNjHK]http://baike.baidu.com/link?url=HkCWIQo1pSmTMN76tTipNkSUR5O_s7_8ctpH_XXuo06y2qhd-TCAkCCuxDOtNi55zA5V9eTPO4fobMbeYDNjHK[/url]
    
28. ;;   Microsoft Data Access Components
    
29. ;;                     from   [url=http://en.wikipedia.org/wiki/Microsoft_Data_Access_Components]http://en.wikipedia.org/wiki/Microsoft_Data_Access_Components[/url]
    
30. ;;   Nonsmall's        from   [url=http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78782&extra=page%3D2%26filter%3Dtypeid%26typeid%3D110&page=1]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78782&extra=page%3D2%26filter%3Dtypeid%26typeid%3D110&page=1[/url]
    
31. ;;   Michale's         from   [url=http://www.theswamp.org/index.php?topic=17465.0]http://www.theswamp.org/index.php?topic=17465.0[/url]
    
32. ;;   LeeMac's          from   [url=http://www.theswamp.org/index.php?topic=39814.0]http://www.theswamp.org/index.php?topic=39814.0[/url]
    
33. ;;   Highflybird's     from   [url=http://www.theswamp.org/index.php?topic=36656.0]http://www.theswamp.org/index.php?topic=36656.0[/url]
    
34. ;;                            this vbs can't run in my used case : ACAD2011 Win7 64Bit.
    
35. ;;  Thank you all a lot !                                                   
    
36. ;;--------------------------------------------------------------------------;;
    
37. ;; Method of Adodb.Stream object .                                          ;;
    
38. ;;    Open ,  Close ,  Write ,  WriteText , Read ,  ReadText,               ;;
    
39. ;;    Flush , CopyTo , Cancel , SkipLine,   SetEOS                          ;;
    
40. ;; Property of Adodb.Stream object .                                        ;;
    
41. ;;     LineSeparator,   SaveToFile, LoadFromFile , Charset ,                ;;
    
42. ;;     Size ,  Position , Type , State , Mode , EOS ,                       ;;
    
43. ;;--------------------------------------------------------------------------;;
    
44. ;; e.g.  (SS:ReadBinaryStream (findfile "gslsshp.shx")  "us-ascii"  23  32) -->
    
45. ;;        "\032\010\000\010\000\001\000\010\000\022\000HELL\000\r\031^d\035z6q(`\000\000\000EOF"
    
46. ;;       (SS:ReadBinaryStream (findfile "gslsshp.shx") "Unicode" 23 4)--> '(18714 18824 18688 18824)
    
47. ;;       (SS:ReadBinaryStream (findfile "gslsshp.shx") nil 23 4)--> '(18714 18824 18688 18824)
    

复制代码

高山流水

图纸再造程序动画

youjie2003

过了五一正好用不了啦，谢谢分享，为什么明经上的附件不能下载呢