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

一键操作，实现图纸工程量的快速核算

在工程管理和审计等工作中经常要核对一些项目的工程量，尤其像一些管道及线路工程，数据量庞大，常规的手工采用计算器计算会占用大量的工作时间，且易出现计算错误和误差，为提高工作效率和提高核算精准度，结合一些工作经验，特整理出如下技巧，达到充分解决该问题的目的。

一、制作脚本文件；

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 (getvar"dimtxt")

i1 2

len (sslength ss)

all 0.0

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、在弹出的窗口中选择脚本导入：

关闭窗口。

4、框选要计算的路段或区域：

5、选择计算字段：（全部或根据需要）

6、在命令窗口中键入“add空格”，提示结果输出位置，在图纸随意空白处单击合计结

果就会显示。

三、特殊情况处理

1、作为内部材料，一般情况下图纸为非加密状态，但由于不同的制图人员的习惯

不同，工程量标注会出现图块和外部参照的情况，在选择核算区域时会提示“select

objects结果为0”，这个时候上述的方法不能马上使用，需要先将图块炸开后对独

立的图素再操作。步骤也比较简单，选择需要炸开的范围，在命令框输入“x”命

令回车即可。

2、如果遇到比较顽固和图纸，无法进行编辑和炸开时，以下的操作是个不错解决

方法：（1）首先，你打开图，（一般这样的图可以打开，但是无法编辑，不管你想

尽任何方法去炸，或者是想在位编辑，都是徒劳的。)然后使用输出命令输入EXPORT,

确认后会弹出对话框让你选择保存的格式，然后你另存为WMF格式，存好后关闭

CAD.（2）再次打开CAD，记得是打开空的CAD。然后输入import,确认后弹出对话

框，选择刚才保存好的文件，打开后，等进度条满后，就可以炸开了，你就可以任

意编辑。

3、还有一些为1、2步骤均不能实现的情况，如可以炸开但无法直接核算，直接导

出再执行导入也无法进行核算，这是采用1+2的方式可以解决，先进行炸开操作，在此基础上执行导出操作，然后再进行导入即OK！