AutoCAD 在水利工程工程量计算中的应用

摘要：本文章主要阐述了AutoCAD 在水利工程工程量计算中的应用。笔者通过 实际情况谈了自己的一些体会

关键词：AutoCAD 水利工程工程量计算

中图分类号：TV文献标识码： A 文章编号：

一、概述

随着计算机技术的飞速发展，计算机技术的应用已深人到每个人工作、生活的每一个角落。水利工程设计工作中如果充分利用计算机不仅可以降低劳动强度，而且可以提高工程的设计速度，从而大大提高工作成效，更重要的是节约了很多宝贵时间。AutoCAD是目前国内外应用最为广泛的计算绘图和设计软件，它其有使用方便、体系结构开放、修改方便、成图精美、绘图速度快等优点，深受广大用户欢迎，并广泛用于平面设计、建筑、机械、电子、纺织等领域。在水利工程除险加固设计中常常需要计算冲抓回填、高喷灌浆的工程量，利用AutoCAD的AutoLISP编写的计算程序可以快速计算出冲抓回填、高喷灌浆的工程量，从而使工作量减少和设计周期缩短。

二、提出问题

小型水库险加固设计的时，多数渗漏水库采取冲抓回填、高喷灌浆两种方式进行防渗处理。在统计工程量的时候，多数情况下设计人员要利用AutoCAD软件的list命令量出每个孔的深度，在对每孔深度进行求和才可以计算出工程量。对于坝轴线较长的大坝进行工程量统计时劳动强度较大、进度较慢、精确度不高，急需一个快速解决该问题的方法。

三、解决问题

1）解决思路：对于多个重复性工作交与计算机处理速度快、精度高。

2）选取二次开发语言：该功能对于图形界面没有任何要求，只对结果精度有要求，所以才用AutoCAD LISP语言进行二次开发。

3）程序源代码：

(princ "\n程序：统计多条线段长度之和 命令：tjcd")

(defun C: tjcd (/ CURVE TLEN SS N SUMLEN)

(vl-load-com)

(setq SUMLEN 0)

(setq SS (ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))

(setq N 0)

(repeat (sslength SS)

(setq CURVE (vlax-ename->vla-object (ssname SS N)))

(setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))

(setq SUMLEN (+ SUMLEN TLEN))

(setq N (1+ N))

)

(princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 3) "."))

(princ)

)

四、工程实例

某土石坝除险加固设计采用高喷灌浆工程措施进行坝体防渗处理，设计断面图下图：

工程量统计步骤：

1）通过AutoCAD工具菜单栏AutoLISP加载该程序。

2）在AutoCAD命令行输入程序调用命令：tjcd，选择所需统计长度的线段并确定，即可计算出相应的工程量。

五、体会

用这种方法进行冲抓回填、高喷灌浆工程量的计算，方法简便快捷，数据计算精度高，大大减少设计工作量，大幅度降低设计人员的劳动强度，提高设计速度和工作效率，可使绘图、计算工程量一次完成。在一定意义上节省了设计成本，提高了经济效益。此设计方法在冲抓回填、高喷灌浆工程量的计算的应用与推广，对AutoCAD实用技术在水利工程设计中的全面应用与推广也具有一定的积极意义。