[分享]高山流水结构工具箱V1.5.0
本帖最后由 chlh_jd 于 2014-9-24 22:09 编辑;;;--------------------2014年9月21日更新
1、改进全局变量的存储方式，直接保存在图纸中，免去每次打开图纸都得重置这些参数的困恼。
2、增加映射复制程序,【修改辅助】->【映射复制】，命令SS_MapCopy。
3、新增双线对轴程序，【模板】->【双线对轴】，命令ss_SXDZ
4、新增筏板附加筋绘制程序(基于YJK筏板单元面积结果），【基础】>【筏板加筋】，命令ss_fst(命令执行后可按ESC设置参数，也可以单独输入命令SS_FSD定义参数)。
5、修正了日照棒制作程序中正12点时的错误。
6、修正了其中一些由于系统函数修改引起的BUG,目前发现主要影响到的程序有:批量插入程序MYII、批量改负筋长度SS_PGFJCD、数值运算SZYS、Y轴标高YBG等基本已修复。
7、改进柱N-M曲线程序，支持型钢混凝土柱、钢管混凝土柱。
8、改进梁图文字移动程序CS_MYMOVE(RZ)，最小移动量取为(出图比例/绘图比例/10)使其适用范围得到增广，如按米为单位绘制的总平面图中的文字。
9、改进数值检查程序，增加多个数值和多个颜色匹配，默认颜色从小到大为5,140,4,110,3,70,2,40,30,20,1,230,6
10、改进通用对话框函数INIT,支持POPUP_list模式,单条用法(list "varname" "prompt" "pop_list" "itemlst-varname" "selectitem")
如(setq itemlst-varname '("建筑" "结构" "设备")) (init (list (list "ZYLB" "专业类别" "pop_list" "itemlst-varname" "0")) "dlg" nil)
11、改进板配筋格式刷，使其支持两种钢筋直径组合以适应限制间距的情况。
12、新增带半径倒角命令SS_RadFillet，功能和Fillet没差别，只是提前预定了个半径值，命令完成后返回原有设定的半径值，方便画详图时存在大量倒角使用。
13、修正拟合椭圆中长轴靠近Y轴时不能得到结果的BUG。
14、菜单修改 【校审】->[最小外圆]^c^cZXWY [最小外框]^c^cZXWK [最短外框]^c^cZDWK [实体外框]^c^css_WK 四个程序转移到绘图辅助。
15、新增最大内接圆程序,【绘图辅助】->【最大内圆】,命令SS_ZDNY。
16、新增点集转圆管程序,【趣味拾余】->【点集求圆管】,命令SS_PTS2PILE。
;;;------------------------2014年5月5日更新
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)]>)
;;;-------------------------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 详细用法见后面跟帖。
;;;-------------------------2014年01月02日更新
1.紧急修复凸包函数更新中的1个BUG，导致多个程序不能使用；
2.新增多点拟合直线程序, SS_LS_PTS_Line
3.新增多点拟合圆程序,SS_LS_PTS_Circle
4.新增多点拟合椭圆程序,SS_LS_PTS_Ellipse
;;;-------------------------2013年12月06日更新
1.菜单改版，将原【绘图辅助】栏拆分为【绘图辅助】、【修改辅助】、【标注辅助】，将原【加载管理】中的[标注样式]功能移到【标注辅助】。
2.增加了【趣味拾余】[定向仿射]程序SS_DX_AFF，主要用于平立剖模拟轴侧图辅助用。
3.增加了【修改辅助】[超级多段线简化]功能SS_LWPolyLine_SuperSimplified，此功能仅用于测试用，有待进一步完善。
4.增加了【修改辅助】[中心替换]功能SS_Cen_RePlace，主要用于批量替换对象，替换位置为被替换和替换对象的中心对位。
5.修正了[宽多段线剪影]程序的一个BUG——前段窄后段宽且在同一直线上时出错。
6.改进【基础】[筏板厚度]程序，提供非柱墩位置筏板厚度建议值。
7.修正【基础】[双偏压独基]尺寸优化程序中的一个BUG——当柱截面bc=hc且Mx=My时无法得到结果。
8.改进选择过滤器在高版本CAD中当动态输入打开时不能发送点坐标的BUG。
9.改进了系统函数库：新增函数AddLast、SubLast等表项函数，新增求对象转换矩阵函数——ss:3dMirrorMatrix(多维镜像变换Householder法适用于超3维变换矩阵)、
ss:2dMirrorMatrix、ss:ScaleMatrix(非等比或等比缩放矩阵），改进mytrans点集坐标变换函数（在原平移、旋转、顺逆的基础上加入非等比缩放功能）。
这几个函数在编制过程主要参考了highflybird高飞兄的Lisp轮矩阵一文和维基百科，在此致谢作者。
新增函数strcatby：(strcatby '("1" "2" "3") "-");_--> "1-2-3"
参数式对话框函数INIT 增加放灯片图片插入功能。
10.新增【建筑处理】[日照棒制作]SS_SunlightAnalysys_Rods程序。
11.将该版程序，限制时间推迟至2014年12月30日。
;;;-------------------------2013年10月12日更新
增加了几个基础方面的命令:
1、矩形角点平均附加布氏应力系数查询 SS_JC_B_A；
2、矩形角点平均附加明氏应力系数查询SS_JC_MIDALIN_A；
3、地基抗滑稳定性验算SS_JC_FSSC；
4、双偏压作用下独立基础截面尺寸优化SS_JC_INF_OPT；
5、修正了通用函数求点集凸包函数优化化变量未回收的BUG。
;;;-------------------------2013年6月13日更新
新增加4个功能、修正了1个BUG：
1、快速填充，ss_myhatch 用于高版本CAD的大图中的点式填充，由于高版本点选填充区域时，使用的边界搜索对象是全部对象，爆慢。
2、曲线回直，ss_qxhz 曲线按长度及其上的各点回直，并添加直线上的垂线，方便绘制曲线展开立面。
3、最短路径遗传算法求解（非封闭），NSP 可以是双源点之间连通，也可以是单源点向外连续。
4、基础类工具中增加平板式筏板中柱抗冲切最小厚度计算。
5、修正一元高次方程求解程序 ss_slover的一个BUG ，大于5次的方程采用牛顿法求解使用函数漏加进去了，补进去。
;;;-------------------------2013年4月14日更新
1、增加了SATWE柱底内力简图文字自适应避让程序（公测版）,命令SS_WN_MOVE_ALL，可到后面参看相关演示；
2、修正了图层隔离和图层全开的一个BUG（当隔离过程按下ECS键或者中断退出时，会导致图层颜色无法恢复）。
;;;-------------------------2013年3月5日更新
1、摒弃自定义命令在gsls_zcm.lsp文件中定义，您可以在pgp文件中添加自己的快捷命令，也可以在这个lsp文件中添加。
2、选择对象提示语句进一步完善（仍有一些程序未改进，有空慢慢做）；
3、增加了点集一元多次方程曲线回归命令SS_RegressCurve；
4、增加了餐厅厨房面积经验估算程序，命令ss_KitchenArea；
5、增加了Gile的椭圆弧转圆弧程序，命令EL2PL；
6、增加了Gile的画多义线椭圆程序，命令PELL，这个命令和EL2PL的结果与设置画椭圆的系统变量pellipse = 1的结果相同；
7、改进配筋结果对比程序WPJMAX，增加对比后的较大配筋的超链接，右键停留时可现实；显示内容举例："2.0cm^2;3-381-405;1-222-236；"该内容含义为：配筋值比原配筋值增大2.0cm^2；原电算为3级钢筋，换算为Q235放大1.11倍钢板截面面积为381，换算为Q235放大1.18倍的钢板截面面积为405；原电算为1级钢筋，换算为Q235放大1.11倍钢板截面面积为222，换算为Q235放大1.18倍的钢板截面面积为236；
;;;-------------------------2013年1月6日更新
1、修复梁柱交线处理的一个小BUG（当梁线或墙线存在多义线时，进行滤除处理）；
2、通用函数库增加了矩阵运算的相关函数：
Householder ： 正交变换函数；
EEA:Gauss: 高斯消元法将矩阵左下三角消0；
Givens : 吉文斯矩阵旋转变换函数；
QR->EV : QR法求矩阵特征值与特征向量;
: Jacobi法求矩阵特征值与特征向量 ；
PowerEigen : 幂法求矩阵主特征值及对应特征向量；
Power->Eigenvalues : 幂法求全部矩阵特征值；
Eigenvalue->Eigenvectors : 已知矩阵特征值求其对应的特征向量 ；
;;;-------------------------2013年1月4日更新
1、增加柱配筋还原计算书——柱表入库对存在重复线表格的支持；
2、调整了函数库的通用函数的正负号判断函数：sign 当≥0时返回 1.0 ，<0时返回-1.
;;;---------------------2012年12月24日更新
1、改进了一些通用函数库
2、增加了深厚粘性土层内打预制桩的浮桩检查程序（功能用法见后续动画)
;;;---------------------2012年12月18日更新
1、对于配筋比较，增加宏观指标输出：配筋增大处数占总体比例，配筋增大比率（含平均比率和最大比率）；同样也输出配筋减小对应的3个指标。
2、改进柱表标高该层，引入层高容差索引，以更适应柱表配筋还原计算书使用；同时允许多次选择柱表，以适应多栏选择。
3、修正柱表或柱大样图入库程序的BUG——对话框不显示，方便柱表入库。
;;;-----------------2012年12月7日更新
1)改进连接直线SS_LJZHX程序的算法，快速高效;
2)改进复核复制SS_FC程序的功能，增加相对于点Point对象群复制;
3)改进安装程序，使得多版本时可选;
4)增加样条曲线转为直线功能SS_SPL2L，主要用于将3DMAX模型转向CAD（采用*.sat文件格式导入）后将视图
通过SolProf命令转为2D平面图后产生了大量的两点SPline线转为直线;
5)增加封闭区域群标面积程序，面积标注于形心；
6)另外还有2个不成熟测试程序：文字移动到指定曲线上ss_wzqxpy[字群垂移]，双线绘制圆柱面投影线ss_yhzkx[圆弧曲线展开]
;;;-----------------2012年11月22日更新
增加建筑标面积功能，封闭LWPolyline群分别标注面积；
;;;--------------2012年10月6日更新
1）制作了高山流水结构工具箱安装程序，并带有菜单；
2）摒除所有注册码要求；
3）该版本使用日期上限改为2013年5月1日；
4) 增加了位图矢量化（结合HighFlyBird的ImageToDCL.EXE）；
5) 添加了二次编程帮助；
6 ) 增加了结构校审书写辅助工具SS_JDFZ；
;;;-----------2012年8月10日更新：
1)新增柱底内力求和程序，自动按WCS坐标系分轴求解，命令SS_S6；
2)新增功能曲线屏幕内所有交点间隔截断（或称裁剪）SS_TEO;
3)增加类似学院派工具箱的条件画弧功能，功能更强大些，只是界面没有院长的友好:-（
4)查找封闭曲线内的最大内接圆程序（此功能原创GP，源自HFB高飞兄的帖子）,命令SS_FMC；
5)改进TSP问题的求解方法，更为高效更为接近最优值，命令TSP；
;;;-----------2012年7月7日重大更新：
1) 改进画箍筋程序：
箍筋带圆角，且支持两点拉筋、并考虑拉筋是否包络外侧纵筋
2) 改进钢筋粗线与线框互换程序，支持带圆角箍筋。
3) 梁点取配筋程序支持用户选筋库，用户可添加或修改用户选筋库。
;;;---------2012年6月26日更新
1)增加梁图镜像工具SS_LTJX,操作方法请到后面看动画
2)废除 删除超级链接命令SCLJ，采用ACAD自带的DETACHURL
;;;--------2012年6月15日更新
1) 增加混凝土温度应力计算工具SS_JQDJL；
2) 指定范围检查是否存在指定编号 ss_BHJC，该版为测试版，请大家多提意见。
3) 增加填充图案输出 SS_GETPAT（由 Paul TurvilGetPat.lsp 改进而来) ， 支持比例变换。
;;;-------2012年5月31日更新
1）增加了板面负筋遇到墙、柱封闭框的支持，修正了长1短筋的BUG。
2）ACAD自带有文字对齐方式修改，命令justifytext,ETS可以退役了。
3）解决了CS_rr 出现引线移动问题，可能是文字左对齐出现。
4）修正了JL命令中斜向的梁文字会倒过去（通用函数修改引起）。
;;;--------2012年4月26日更新
1)更改了时间限值（原时间限值2012年5月1日），现版时间限值为2013年1月1日
2)增加了删除柱底内力简图非轴力信息的功能，命令SS_S5。
;;;-------2012年4月4更新
1)修正了点坐标平移并旋转的通用函数的BUG，角度原来以顺时针为正改为以逆时针为正；
2）增加了柱配筋图表还原为计算书的功能，命令分别为SS_ZPJB、SS_ZPJT、SS_ZJHY，配合WPJMAX使用可以作为柱配筋校对程序，演示请看后面。
;;;---------------------------------------------------------------------------------------;;;
;;;-------2012年2月7日更新
1) 改进梁点取配筋程序的钢筋搜索方法，最小钢筋直径与抗震等级和梁类型关联，配置框架梁和连梁时务必在对话框最下面栏选择正确的梁箍筋类型；配筋值超配率与楼层位置匹配，普通楼层位置一般配筋结果相对贴近些，屋面、底板、梁式筏板一般力学性能会更重视些。
2) 修正梁交线处理的一个BUG，T形节点非贯通线缺口问题。
3) 增加任意封闭或多段的多义线范围选择集创建，命令SS_SSP，支持透明使用。
;;;---------------------------------------------------------------------------------------;;;
;;;------2012年1月7日更新
1)修正梁图文字移动（MYMOVE命令)上一版更新的一个BUG；
2）增加标注标准样式生成命令:SS_DimStyle
;;;---------------------------------------------------------------------------------------;;;
;;;-------2011年12月16日更新
1)修正批量插入图纸命令MYII在ACAD2011以下版本不能使用的BUG；
2）改进梁点取配筋程序的配筋搜索算法，增加任意排钢筋偶数根奇数组合排列罚分，增加钢筋直径对于配筋值适应性奖罚；配筋结果更为合理化；排列方式摒除单排仅一根钢筋方式。
3) 开放截面宽度对应箍筋肢数自定义，放到gsls_zcm.lsp中，您可以自己定义梁宽对应的箍筋肢数。
;;;---------------------------------------------------------------------------------------;;;
2011年12月7日更新
1)修正交线处理有时会变成实线的BUG；
2）梁配筋点取程序支持弧形梁。
;;;---------------------------------------------------------------------------------------;;;
2011年12月更新
1）增加对64位WIN7系统下ACAD2010~版本的支持；
2）去除功能基本重复命令myi仅使用myii；并改进了MYII的文件名排序方法，与WINDOW相同，避免插入的简图不按顺序走；
3）增加查找SATWE位移超过某个值的节点查找标识，使用时请将SATWE计算的位移输出方式取为详细输出，并将对应要查找位移超限的几何简图插入到ACAD中来；命令SS_FIND_NODE
4）增加SATWE配筋简图处理，比如对某些配筋结果进行直接放大或者减小，命令 WPJTZ；
5）改进交线处理程序，支持弧形梁梁节点处理；
6）改进板图负筋长度及文字位置调整程序，支持弧形梁。
;;;---------------------------------------------------------------------------------------;;;
;;;----------2011.10.17
1）增加了画承台功能，主要针对补桩的，命令SS_HCT
2）增加了实体淡色和淡色恢复功能，主要用于图纸对比的，SS_DS
3）增加设备用房面积估算功能，主要用于建筑方案可行性校核，命令SS_SBJS
4）改进了多变形联合计算内核，容许差距，并将原命令名PLUNION改名为MERGE。
;;;---------------------------------------------------------------------------------------;;;
2011年9月更新
1)增加模仿ACAD2010的图层隔离、图层隔离关闭恢复显示;
2)修正了2011年7月版本编译时的BUG---"秋枫批量打印程序对话框类型按TXT编译;
3)"ss_ljzhx:连接图层和线型相同的直线"功能调整,当仅选中2条直线时，视为强制拉通;
4)修改选择过滤器"SS_S4"，适用于同排列文字选择，如基础内力图;
5)增加粗剪力墙线绘制功能 "ss_quick_wall_pline" ， 该命令需要设置全局变量，使用CSSZ设置
6)增加任意四边形仿射程序 "SS_AFF"
;;;---------------------------------------------------------------------------------------;;;
2011年7月更新
1）优化了各函数代码，采用独立ACTIVEX空间
2）改进了文字移动中的出错处理，解决了按ESC中断后图元无法解除亮显问题
3）增加了对ACAD2010的支持
4）摒弃了带反应器命令功能（LeeMac 文字平行曲线程序
5）增加了坐标取整ZBQZ命令对UCS状态的支持
6）改进了TIN三角网核心函数，并采用3DFACE代替LWPOLYLINE，支持3D点集和3D曲线
;;;---------------------------------------------------------------------------------------;;;
发个新版的点取配筋程序，宽屏显示器推荐使用新版（窄屏显示器现在估计不多了，如有需要请贴出邮箱地址），需要安装OpenDCL.6请到网上搜索下载
2011年5月更新
添加到工具集ACAD.VLX中，命令仍然为CS，加载ACAD.VLX就可以得到全部命令帮助
解除注册限制(在命令行输入GSGSGSGS命令，然后输入申请码，就能得到注册码
修正了原来对话框关闭后重新打开三次提示参数初始化错误的BUG
更改了梁纵筋搜索函数,引入截面、配筋值、通长筋、配筋位置关联的计分搜索算法
更改了原来不允许鼠标右键退出功能
调整了底板反向荷载工况的配筋形式，与国标相同
<p> </p> <p>这个看看好像不错啊，直接配筋的，用用看，谢谢高山流水</p> <p>谢谢高山，不会要注册了才能用吧！功能不错！</p> 看起来很牛 <p>支持高山...</p> <p>我怎么样能有钱呢？</p> <p>上传文件是旧的，已更新；见1楼</p>
<p> </p> <p>支持楼主了</p> 提点要求：选择配筋面积文字，直接生成钢筋文字，并且自动定位。