键操作实现CAD图纸工程量的快速核算.docx

一键操作，实现图纸工程量的快速核算 在工程管理和审计等工作中经常要核对一些项目的工程量，尤其像一些管道及线路工 程，数据量庞大，常规的手工采用计算器计算会占用大量的工作时间，且易出现计算错误和 误差，为提高工作效率和提高核算精准度，结合一些工作经验，特整理出如下技巧，达到充分解决该问题的目的。 一、 制作脚本文件； 1、 新建 txt 文档； 2、 打开粘贴如下内容进去： (defun c:add() (setq sblip (getvar blipmode) scmde (getvar cmdecho)) (prompt \nSelect objects) (setq ss (ssget (list (cons 0 text))) pt1 (getpoint \n 给出结果位置) f1 (getvardimtxt) i1 2 len (sslength ss) all i 0) (repeat len (setq namei (ssname ss i)) (setq li (entget namei)) (setq ti (cdr(assoc 1 li))) (setq ti (atof ti)) (setq all (+ ti all)) (setq i(+ 1 i)) ) (setq ss nil) (setq all(rtos all 2 i1)) (command text j mc pt1 f1 0 all) (setvar blipmode sblip) (setvar cmdecho scmde) ) 3、 保存，修改扩展名为“lsp”（如：新建文本文档.lsp 为 AUTOCAD 识别文件）二、 导入和执行 1、 打开图纸文件； 2、 在下步命令窗口键入“ap”回车； 3、 在弹出的窗口中选择脚本导入： L一 L一!』L_ ＿l 吊 程 字 亡i 干倪存劝臣歹 灿 ；一 响 云 网招 查找范困(!;)· 卓 面 .... ,o ; 团 ... 言 ` .一.,一一声 声 罕 ；二 ＿＿＿＿＿＿＿＿＿＿＿＿＿ 闪 文 妇 叩 ． 动过文本文怕 13D 文# 妇 |/i，.心 应用程斥（拳叩 ：耐切 .,. I 泗心 l ：诊姑 ： 4 已加酗的应用程序 国 妇也宁II | 凸 III I D一 组 1 卧 压 江社md 泗 C \1J立 飞 I.拉寸面 m·心1 灯 ＼妞 Wr“ o·m f i1 七5b 可1“ e的C WI ,6) m f i1 七5I.1的 小1 r ＼飞；一 卢 一”-．心n 叩勹主223 ~．．如 细 扑枚屯启动组 杠 也 0l 二 I 匕厂 立·· 陌 心 勹 L 闭型仁」l 助创 」 下 卫 A =: —a 臣 4、 框选要计算的路段或区域： ＿亡lLJ L_J厂 －－ ＿亡 L— _J L_ J p\U＇ ＇霉，，，,“\.＇一，，＇＇，霍-,,＇1, I LL p\U ＇ ＇ 霉 ， ，， , “ \. ＇ 一 ，， ＇＇ ，霍-,, ＇ 1, I LL匾 \＼L ！ , I , ＇ r , ，、、 \ ＇＇;＇.1 瞿－ ｀； ，，， L 八郅 [3 5 L 八 郅 [3 5J 图层 咯莽护 一， 一土 G Y T ?Il ?IlE＿里 丁?IlE＿ 丁?IlE＿里 ＼ Jbj．.,-下一,rg, .4勹 J b j． ., - 下一 ,rg , .4勹] 二 , - =l[1 D DD DD ，空 }t 廿 、一心 lrl块 lrl GY 丁 芦全部 ( 芦 全部 ( 35) ... I 宜线(2) 固面 (3) 1?T 6、 在命令窗口中键入“add 空格”，提示结果输出位置，在图纸随意空白处单击合计结果就会显示。 三、 特殊情况处理 1、作为内部材料，一般情况下图纸为非加密状态，但由于不同的制图人员的习惯不同，工程量标注会出现图块和外部参照的情况，在选择核算区域时会提示“select objects 结果为 0”，这个时候上述的方法不能马上使用，需要先将图块炸开后对独立的图素再操作。步骤也比较简单，选择需要炸开的范围，在命令框输入“x”命令回车即可。 2、如果遇到比较顽固和图纸，无法进行编辑和炸开时，以下的操作是个不错解决方法：（1）首先，你打开图，（一般这样的图可以打开，但是无法编辑，不管你想尽任何方法去炸，或者是想在位编辑，都是徒劳的。)然后使用输出命令输入 EXPORT, 确认后会弹出对话框让你选择保存的格式，然后你另存为 WMF 格式，存好后关闭CAD.（2）再次打开CAD，记得是打开空的CAD。然后输入import,确认后弹出对话 框，选择刚才保存好的文件，打开后，等进度条满后，就可以