运用Delphi编制基于AutoCAD平台地震勘探数据显示软件.pdfVIP

第33卷增刊 物探化探计算技术 2011年7月 文章编号：100l—1749(2011)增刊(1)015206 运用Delphi编制基于AutoCAD平台 的地震勘探数据显示软件 魏栋华1，曹 瑜2 (1．中铁二院成都地勘岩土工程有限责任公司，成都610031； 2．四川大学，成都610000) 摘要：铁路工程勘察物探成果资料往往需要提交AutoCAD格式文档。微机版地震反射勘探数 据处理软件输出没有直接输出AutoCAD矢量文件格。为此，这里运用ActiveX自动化技术开发 了一种在delphi2007环境下读取地震勘探SEGY格式数据并在AutoCAD平台上显示的适用方 法，通过实际的应用表明，用该方法显示的地震剖面，图形缩放不失真，便于成果资料的综合分析 和归档，具有一定的实用价值。 关键词：Delphi2007；地震勘探；SEGY格式；ActiveX自动化技术 中图分类号：P631．4 文献标识码：A Coded 卷头由EBCDIC区(ExtendedBinary Decimal 0前言 Interchange 制数区域(3201—3600字节)组成；道记录块由道 铁路工程勘察设计往往采用AutoCAD计算机头字区(占用240个字节，整型数据)和数据段区 辅助设计平台，因此，物探成果资料需要提交Auto-(占用4×样点数个字节，实型数据)组成。 CAD电子文档。微机版地震反射勘探数据处理软 地震勘探的参数保存在卷头二进制数区域和 道头字区，如：总道数和采样间隔分别存放在卷头 件如：GeogigaSeismic、Vista、focus等具有很强的数 据处理功能，但图形输出方面具有较大的局限性， 没有直接输出AutoCAD矢量文件格式的功能，若处，每道的样点数存放在道头字区的115—116字 将地震时间剖面图以位图形式粘贴到AutoCAD节处。按照格式在指定位置进行高低位交换后可 中，又存在图形缩放失真、清晰度差的缺点。 读取相应的参数，读取2字节整型数据的源代码如 基于上述原因，笔者在Delphi2007环境下编下： 程直接读取SEGY文件，运用AcfiveX自动化技术Function ofchar)：Word； SwapInt2(buf：array Var 对AutoCAD进行了二次开发，实现了在AutoCAD 平台上显示地震勘探数据的功能。 aChar：array[0．．1]ofchar； Y格式地震 tem：word； 1在Delphi下读取SEG begin 数据 正确读取地震SEGY数据首先要了解其存储 tern：=@aChar； 格式，SEGY格式的数据文件格式如下： result：=ternA； 卷头道头#l 数据#l 道头#2 数据#2 end； ……数据#N 地震勘探数据一般均采用SEGY格式中的 收稿日期：2011—06—07 增刊