VB对surfer绘制的等值线图局部放大后的坐标定位.pdfVIP

计算机时代2008年第6期 ·59· 巩天宁，潘地林，陈旭辉 (安徽理工大学计算机科学与工程学院，安徽淮南232001) 摘要：针对使用VB调用surfer软件提供的自动化接口，在绘制等值线图的过程中调用外部控件进行图片放大后，无 图，并通过导入surfer软件生成的grd文件，推算图片中任意一点所处的网格点以获取该点的三维值的方法。 关键词：Surfer软件；自动化；等值线图；坐标定位；VB嵌入式编程 0引言 程如下： Surfer软件是美国GoldenSoftware公司研制开发的基于判断Surfer对象是否创建，如果没有创建则创建，完成后导 Windows操作系统的二维和三维绘图软件，它不仅提供了丰富入原始数据并使用选定的算法对其网格化插值后生成grd文件。 的网格化和插值算法，还具有强大的绘制等值线图及相应的三 分析Surfer生成的grd文件，提取图片上网格的行数、列 维图形的能力，是科技工作者特别是地学研究人员必备的软 数、网格坐标最小x值与最大x值、网格坐标最小Y值与最大 件。该软件提供了可嵌入编程的接口，Surfer服务器在后台运 Hmax、Vmin、Vmax和一个data数组中。 行，可以完全摆脱Surfer的主控界面，在客户程序界面中通过 VB嵌入式编程快速实现等值线图的绘制。 计算出每个网格在等值线图坐标轴上横坐标和纵坐标 对等值线图常需要作两种处理：局部放大和获取特定点的 Voloview 三维值。加载AutoCAD Express控件可以做到对图 片的放大、缩小、移动等。Surfer导出的grd文件是用选定的插 值算法推算出的等值线图中网格点的三维值(x、Y、z坐标的ScaleHeight／rows。 值)文件，通过分析grd文件可获取图片内所有网格点的三维 如果用户需要放大图片的某一部分，则获取放大域在VB图 值。但使用外部控件放大等值线图后，坐标无法定位就成了获 取特定点的三维值的障碍。 本文使用VB自带的PaintPicture方法编写图片放大函 数，同时计算放大域内的网格行列数及放大域的起始网格位， 计算放大域中网格的行列数并从data数组中提取选择域内所有 从而在放大后的图片中精确地推算出某点的网格坐标，确定其 三维值。 HIIlin、Vmin、SwPerGrid和ShPerGrid值。 1具体流程 如果用户需要图片中某点的三维值，则根据该点在VB图 片框坐标系中的位置换算出其在网格坐标系的位置(按前面的 笔者参与的煤矿压力报警项目中，需要调用Surfer绘制等 值线图，绘制完等值线图后需要根据客户要求局部放大图片， 同时还需在任意时刻提供客户关心点的三维值。这些工作的流 参考文献： 中圈。只要能接入Intemet，用户就可随时随地方便快捷地实现 【1l何强，何英．MATLAB扩展编程【M】．情华大学出版社，2002． MATLAB应用；同时，用户也无需掌握很多有关MATLAB编 AB UsewithMAll 【212 WebServer：For AB【R】． 程的知识，只需按提示输入一些实验参数，就可以轻松地进行实 Anonymous．MAll The 验仿真。 MathWorks．1nc，19