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

一键操作，实现图纸工程量的快速核算在工程管理和审计等工作中经常要核对一些项目的工程量，尤其像一些管道及线路工程，数据量庞大，常规的手工采用计算器计算会占用大量的工作时间，且易出现计算错误和误差，为提高工作效率和提高核算精准度，结合一些工作经验，特整理出如下技巧，达到充分解决该问题的目的。制作脚本文件；新建txt文档；打开粘贴如下内容进去：(defun c:add() (setqsblip (getvar blipmode)scmde (getvar cmdecho)) (prompt \nSelect objects) (setqss (ssget (list (cons 0 text))) pt1 (getpoint \n给出结果位置) f1 (getvardimtxt) i1 2 len (sslengthss) all 0.0 i 0) (repeat len (setqnamei (ssnamessi)) (setq li (entgetnamei)) (setqti (cdr(assoc 1 li))) (setqti (atofti)) (setq all (+ ti all)) (setqi(+ 1 i)) ) (setqss nil) (setq all(rtos all 2 i1)) (command text j mc pt1 f1 0 all) (setvar blipmode sblip) (setvar cmdecho scmde))保存，修改扩展名为“lsp”（如：新建文本文档.lsp为AUTOCAD识别文件）导入和执行打开图纸文件；在下步命令窗口键入“ap”回车；在弹出的窗口中选择脚本导入：关闭窗口。框选要计算的路段或区域：选择计算字段：（全部或根据需要）在命令窗口中键入“add空格”，提示结果输出位置，在图纸随意空白处单击合计结果就会显示。特殊情况处理1、作为内部材料，一般情况下图纸为非加密状态，但由于不同的制图人员的习惯不同，工程量标注会出现图块和外部参照的情况，在选择核算区域时会提示“select objects结果为0”，这个时候上述的方法不能马上使用，需要先将图块炸开后对独立的图素再操作。步骤也比较简单，选择需要炸开的范围，在命令框输入“x”命令回车即可。2、如果遇到比较顽固和图纸，无法进行编辑和炸开时，以下的操作是个不错解决方法：（1）首先，你打开图，（一般这样的图可以打开，但是无法编辑，不管你想尽任何方法去炸，或者是想在位编辑，都是徒劳的。)然后使用输出命令输入EXPORT,确认后会弹出对话框让你选择保存的格式，然后你另存为WMF格式，存好后关闭CAD.（2）再次打开CAD，记得是打开空的CAD。然后输入import,确认后弹出对话框，选择刚才保存好的文件，打开后，等进度条满后，就可以炸开了，你就可以任意编辑。3、还有一些为1、2步骤均不能实现的情况，如可以炸开但无法直接核算，直接导出再执行导入也无法进行核算，这是采用1+2的方式可以解决，先进行炸开操作，在此基础上执行导出操作，然后再进行导入即OK！