[日积月累]：cad在地质方面的开发

wanwei110

摘  要：通过生产实践，将AutoLISP与Excel相结合，开发出《地质剖面图绘制》、《地质点展绘》、《钻孔剖面图绘制》、《触探曲线绘制》、《表格绘制》和《工程测量计算》等工具软件，具有较高的实用价值。
    关键词：CAD工具软件；AutoLISP语言；图形绘制模块；工程地质图?

1前言
    AutoCAD R14是目前国内外使用最为广泛的CAD软件，其丰富的绘图命令、强大的编辑功能和良好的用户界面，深受广大工程技术人员的普遍欢迎。AutoLISP语言作为CAD二次开发的重要工具，它内嵌于AutoCAD R14内，是当今世界上CAD软件中被广泛使用的语言之一。通过二次开发，可以最大限度地满足工程地质制图工作中的各类特殊要求。Microsoft Excel是一个功能强大、应用方便、普及广泛的电子表格软件，利用其VBA工具录制，可以使许多烦琐、机械的日常工作得以自动实现。因此，将AutoLISP与Excel结合在一起，完全可以创建一些符合各行业制图标准的实用工具，即利用Excel自带的Visual Basic语言编辑器(VBA)编程来实现原始数据的录入和管理，然后调用CAD中的LISP程序，读取由VBA所录入的数据并绘制出所需的图形。
2软件的开发
    工程地质剖面图和众多钻孔剖面图的制图工作，其实就是处理大量数据的工作，而这些数据往往需要保存，以便修改更新或重复使用。因此，通过在Excel 2000中采用VBA分别编制出“新建”、“打开”、“保存”、“另存为”、“退出”5个模块进行数据的录入和管理工作。CAD绘图程序采用AutoLISP语言编制，可实现两大功能模块，以便完成各类制图工作，即数据读入模块和图形绘制模块。
    通过生产工作中的不断实践，现已开发出《地质剖面图绘制》、《地质点展绘》、《钻孔剖面图绘制》、《触探曲线绘制》、《表格绘制》和《工程测量计算》工具等一系列实用程序软件。
    《地质剖面图绘制》工具通过对剖面数据的录入和管理，可以快速地绘制出图框、图签、标杆、地面线、剖面位置及编号、钻孔位置及编号、剖面间距、钻孔间距等图形组件，基本上处理了工程地质剖面图中的大部分信息，解决了绘制工程地质剖面图工作量大、工序繁多、重复过程多、费时费力、成图质量难以保证等一系列问题，在提高成图质量、加快工程进度等方面有着显著的效果。该工具除可生成地质剖面图外，也可用于测量、水工方面剖面线的生成。
    《地质点展绘》工具通过输入野外实测地质点数据，可以精确的在地质图上绘制出地质点的所在位置并标注其编号及高程。
    《钻孔剖面图绘制》工具在采集现有的钻孔岩芯获得率、抽压水试验数据、地层岩性深度(高程)、取样位置、地下水位高程及观测日期等钻孔资料的基础上，绘制含有各类数据的钻孔剖面图。
    《触探曲线绘制》工具在对原始数据的录入过程中自动修正实测击数，其校正系数采用2001新版《岩土工程勘察规范》标准，绘制的触探曲线与手工制作的曲线图完全一样，而工效却提高数倍，增加了工程地质剖面图的内容和精度，能满足各种地质图件的使用。
    《表格绘制》工具将Excel 2000下生成的表格文件保存为CAD数据格式，可以快速的生成各类试验汇总表及其它表格。
    《工程测量计算》工具组件可以实现在CAD制图工作中涉及到的各种测量计算，如：放样计算、坐标系转换等。?
3应用效果
    上述软件充分利用了Excel 2000强大的数据处理能力，使用时具有操作方便、成图迅速的特点，已在我院的勘察工程中得到了广泛应用，解决了制图工作中工作量大、工序繁多、重复过程多、费时费力、成图质量难以保证等等一系列的问题，因此而提高了生产效率，节约了生产成本，加快了工程进度，缩短了勘察周期，具有较为明显的实用效果。

hbfcwgy

书在那里.