多种编程语言及工具实现灌浆综合剖面图的快速绘制多种编程语言及工具实现灌浆综合剖面图的快速绘制发布日期：2010年04月29日 字号： 大 中 小 多种编程语言及工具实现灌浆多种编程语言及工具实现灌浆 综合剖面图的快速绘制综合剖面图的快速绘制贵州中水建设项目管理有限公司 姜修华摘要：目前灌浆综合剖面图自动成图的软件不少，但大多数软件均需手工录入成图所需的数据，当灌浆孔数较多时，数据录入工作相当繁重，而这些数据在做灌浆成果一览表时，已进行过录入。本文介绍了利用 VB、Autolisp 编程语言实现 Excel 与CAD 共享数据的一种方法，并通过实际应用，取得了较好的效果。关键词：灌浆综合剖面图；多种语言编程；自动成图0 前言前言灌浆综合剖面图是进行灌浆效果分析和检查孔布置的重要依据，但手工进行灌浆综合剖面图的绘制要进行大量的数据计算和数据录入，出图时间长，时效性差。在进行灌浆资料整理时，现在工程技术人员基本上都采用 Excel 来完成灌浆成果一览表。如何实现 CAD 自动调用电子表格中的数据成图，减轻绘制灌浆综合剖面图时数据录入的工作量，并保持灌浆成果一览表与灌浆综合剖面图数据的一致性及 CAD 自动成图等，是本文介绍的主要内容，供同行批评指正。1 解题思路运用 Excel 来完成灌浆成果一览表，通过 VB 编程实现对电子表格的数据采集并形成 CAD 的脚本文件，通过脚本文件生成CAD 的“表”集，最后采用 Autolisp 编制灌浆综合剖面图绘制程序来完成 CAD 出图。流程图见图1。2解决办法2.1 按规范要求设计电子表格如图2。要求1 个灌浆孔的数据作为 Excel 的1个“表”，若干个“表”组成1个“工作簿”。 “工作簿”中各表的格式必须统一，可以采用复制表的方法来形成新的表。2.2 在电子表格中充分利用 Excel 的函数功能来完成数据的自动填写，手工仅录入最基本的数据。2.3 运用 VB 编写数据采集程序（如图3、图4） 。通过 VB中 xy(i, j) = RsFields(i)语句读取电子表格中固定位置的数据，用 WriteLog ()函数将采集的数据转换成 CAD 脚本。用 VB 编写的数据采集程序最终生成的是一个 CAD 脚本文件。通过运行CAD 脚本文件，首先将采集的数据形成 CAD 的“表”集，然后调用灌浆综合剖面图绘制程序。2.4 用 AutoLisp 编制灌浆综合剖面图绘制程序来读取脚本文件生成的“表”集并完成数据处理和 CAD 出图（见图5） 。3 应用实例在小洋溪水库除险加固工程中，通过上述方法实现了灌浆综合剖面图的快速绘制，做到了单元工程现场施工当天完成当天就出灌浆成果资料，取得了较好的应用效果。4 结论通过 VB、AutoLisp 编程语言编制的灌浆数据采集转换程序和灌浆综合剖面图绘制程序及 Excel、CAD 工具软件的联合应用，大大减少了数据录入和处理的时间，避免了因多次手工录入数据而产生灌浆成果一览表中的灌浆数据与灌浆综合剖面图中的灌浆数据不一致的弊端，为提高灌浆综合剖面图的出图精度，减轻灌浆技术人员整理灌浆成果的劳动强度提供了重要手段，方便了及时分析灌浆效果和布置检查孔。