前些日子我在网上看到一个程序可以将建筑安装工程的管线工程量(直接在CAD图上拾取)拾取并输出到excel汇总成报表,但是该程序美中不足的是设备(如图中的图块设备)无法拾取累加,现请哪位高手用Lisp语言编个这样的程序! 把源代码发至hlh168@126.com,非常感谢!(具体使用说明见附件) 安装算量 使用说明书 运行环境:AutoCAD2000~ AutoCAD2006 + Office Excel 2000~2003 1.启动:打开要计算的图形,运行SamRion安装算量V1.1 , 程序界面如下:
2.设置:计算之前,请先设置图形比例:
按”参照”按钮,拾取红色线长度,
在”标注值”里输入CAD图中的标注值8500! 如要对拾取过的线段进行标柱,请勾选”标注”复选框,拾取参照时会给出一个参考的标注字号,你如觉得太小就写大点值,本例170,再选择标注色”绿”!
本示例比例为1:100,默认值为1:100,也可自行计算填写比例值. 3.计算:按”拾取”按钮,在CAD图中选取你要计算的线或多线,按鼠标右键结束拾取.
填写相应内容,确认无误后按”添加”按钮添加到工程量列表中(默认单位mm):
也可以自定义添加,如下图所示: 完全开放给用户自定义添加工程量.如自设值单位为m,全自动转化为mm进行计算!
4.修改:在工程量列表中选取要进行修改的项目,双击跳出窗口进行相应修改. 5.保存:填写好工程名称,按”保存”按钮进行保存,工程文件保存在程序同一文件夹下,不填工程名称,程序默认为”临时工程”
6.计算稿:工程量计算完毕以后按”计算稿”生成EXCEL报表,报表分为”明细表”\”计算稿”\”汇总表”
注:提取工程量时要确保你选择的线或多线没有重复,以免重复计算! |