AutoCAD二次开发在地质勘察中应用.doc

AutoCAD二次开发在地质勘察中应用 　　摘要：本文介绍使用delphi对AutoCAD进行二次开发应用于工程地质勘察图件绘制的设计思路及实现方法。 　　关键词：AutoCAD二次开发 地质勘察 柱状图程序 剖面程序 Delphi 　　中图分类号:P62 文献标识码:A 文章编号:1672-3791(2011)10(c)-0000-00 　　 　　 AutoCAD是工程地质勘察中最常用的二维绘图软件，大部分勘察图件都在该软件环境下绘制，AutoCAD在中国普及时间最早，应用范围也最宽，能收集到的资料也最多，加上AutoCAD良好的扩展性，为其二次开发应用于特定环境打下良好基础。AutoCAD下的二次开发方式也很多，有AutoCAD内置的Lisp、ARX、VBA等，也可使用高级编程语言开发软件通过ActiveX接口控制AutoCAD的方式。不管用哪种方式进行二次开发，对于一线员工来说，操控简单明了、数据共享、提高工作效率、能最大程度实现绘图自动化的软件是最受欢迎的。 　　 工程地质勘察行业需要的各种勘察图件较多，但最主要和基本的图件有平面地质图、工程地质剖面图、钻孔柱状图，而钻孔柱状图和地质剖面图又常常是数量最多且费时费力最多的图件，一线员工在勘察过程中时需要及时制作这些图件以供分析比较，为设计提供依据，并为勘察报告提供相应数据，本文探讨利用计算机信息技术及数据库技术结合AutoCAD二次开发相应程序提高工作效率降低工作强度。 　　 　　1 设计思路： 　　 根据一线勘察工作流程及需提供的成果整理设计思路如图： 　　 　　设计流程图 　　 1.1 数据录入程序?D?D数据库技术 　　 数据录入程序基于信息及数据共享的原则。我们知道，钻孔数据是地质勘察中最基本的数据之一，是绘制剖面图及进行工程评价的基础。我们第一目标就是要将钻孔数据进行数字化，利用数据库技术，将钻孔的各种数据录入到数据库中，以供给后续工作分析使用。钻孔柱状图、工程地质剖面图等图件的绘制将依赖于这些数据库，包括编制勘察报告时需要的统计数据也都使用该数据库。 　　1.2 图件绘制程序?D?DAutoCAD的二次开发 　　 钻孔柱状图、地质剖面图是勘察成果的最终展现，一般要求提供AutoCAD的DWG格式的图件。我们用delphi等编程软件编写程序，读取数据库及地质平面图中的数据控制AutoCAD自动绘制钻孔柱状图及剖面图，将地质人员的主要精力放在数据分析上而非一点一画的去绘图。 　　1.3 统计分析程序 　　 因为钻孔数据已存在于数据库中，在编制勘察报告时需要的统计数据可以通过程序从数据库中读出并进行统计分析计算。 　　 　　2 实现过程： 　　2.1 数据录入 　　 为方便用户及减小程序开发与维护难度，我们将数据采集与钻孔柱状图绘制程序集成在一起，并使用操作系统Windows自带的数据库驱动，以Access为数据库后台，采用delphi编写程序进行钻孔数据录入。在数据录入过程中集成对原始数据进行计算处理的功能，如压水试验计算、注水试验计算、动力触探校正等，进一步方便用户的使用。 　　2.2 图件绘制 　　 为避免AutoCAD版本升级而影响程序的使用，我们采用高级编程软件编写程序通过ActiveX接口控制AutoCAD绘制图件，分三步实现目的： 　　 链接AutoCAD：调用函数GetActiveOleObject(AutoCAD.Application)可以获得已启动的AutoCAD的实例，如果没有已启动的AutoCAD实例则用函数CreateOleObject(AutoCAD.Application)创建一个AutoCAD的实例。此处参数AutoCAD.Application与AutoCAD版本无关，如要启动特定版本的AutoCAD，则需在参数后加上版本号，如创建一个AutoCAD2008的实例，则需将参数改为AutoCAD.Application.17.1。 　　 读取钻孔数据库：前面的数据录入程序已将各种原始数据录入并处理后存放在钻孔数据库中，此步只需根据绘图需要从数据库中读取相应数据并转换成适合AutoCAD处理的数据。 　　 控制AutoCAD绘图：此步即通过ActiveX接口调用AutoCAD的图元对象绘制方法来生成图形，我们将创建主要AutoCAD对象的代码封装成子程序或函数方便程序调用。 　　 钻孔柱状图的绘制与钻孔数据录入程序集成在一起，数据录入完成即可调用AutoCAD绘制柱状图。 　　 在剖面绘制程序中需通过AutoCAD读取地形地质图中的等高线数据及地质内容数据进行绘图，涉及到如下AutoCAD图元方法和属性： 　　 方法selectSet.SelectOnScreen(filt