用VB和Surfer绘制彩色平面等值线图

Ｆ ａ ， ｅｌ ｓ Ｐ ｏＤ ｃ ｍｅ ｔ Ｓ ｌ ｔ ｎ Ｓ ａ ｅ等 。 ｒｍｅ Ｏｖ ｒ ｙ ， ｌｔ ｏ ｕ ｎ ， ｅｅ ｉ ， ｈ ｐ ａ ｃｏ
滑
其 中 Ａｐ ｌａｉｎ对象 代 表 Ｓ ｒｅ 应用 程 序 实 例 ， 其 ｐｉ ｔ ｃ ｏ ｕｆｒ 是 他 Ｓ ｒ ｒ 象 的根 。Ｓ ａ ｅ 绘 图元 素对 象 的基 类 对 ｕｆ 对 ｅ ｈｐ 是
ｙ１，ｘ１，ｚ １
ｙ ，】 ，ｚ ２ 【 ２ ２
数据艾件名 五 ＿ ■————一
网 化 法Ｆ 格 方 一
网 行 广 格 数
最小 号 『 蛾 一 ：
最 线 大 号 压 —一
ｙｎ ’ Ｘｌ ’ ｚ Ｉ ｎ
网 列 格 数
一 ： 钱 间 『 一 号 隔 —
ＶＢ是 Ｖｉ ａ Ｂ ｓ ｓ ｌ ａｉ 简称 ， 由美 国微 软 公 司 开 ｕ ｃ的 是 发 的一种 可视化 的、 面向对象 和采用 事件 驱动方 式 的结 构化 高级 程序设 计语 言 。在 Ｖｉ ａ Ｂ ｓ ｓ ｌ ａｉ ｕ ｃ环境 下 ， 用 利
据 一 Ｂ ｓ Ｍ ａ Ｃｏ ｔ ｕ Ｍ ａ Ｄｏ ｕ ｎ ｓ Ｇｒｄ， 光 ｅ ｓ Ｍ 一Ｅ一 自 一 ａ ｅ ｐ， ｎ ｏ ｒ ｐ， ｃ ｍｅ ｔ ， ｉ Ｌｅ ｌ ， ｐ 嘶 ｖ ａ
１３ ２
Ｓ ｔＳ ｒｅＡ ｐ — ＧｅＯｂｅｔ ，” ｕ ｆｒ Ａｐ ｌ ａ ｅ ｕ ｆｒ ｐ ｔ ｊｃ （ Ｓ ｒ ． ｐｉ — ｅ ｃ
ｔ ｎ ）捕获 Ｓ ｒ ｒ ｉ ”‘ ｏ ｕｆ 应用程序 ｅ
Ｉ Ｅｒ ｅ ｆ ｒＴｈ ｎ
一
一 一
一
事件驱动的编程机制， 使用 Ｗｉ ｏ ｓ内部 的广泛应用 ｎ ｗ ｄ 程序接 口（ Ｐ ） Ａ Ｉ函数， 动态链 接库 （ Ｉ ）对象的链接 Ｄ 、 Ｌ 与嵌入（ Ｌ ）开放式数据连接 （ Ｄ Ｃ 等技术 ， 以 ＯＥ、 Ｏ Ｂ） 可 高效、 快速地开发 Ｗｉ ｏ ｓ ｎ ｗ 环境下功能强大、 ｄ 图形界面 丰富 的应用 软件系统 。Ｓ ｒ ｒ Ｇ ｌ ｎ软件 公司在 ｕｆ 是 ｏｄ ｅ ｅ Ｗｉｄｗｓ ｎ ｏ 环境下开发 的地理数据绘图软件， 具有强大 的绘图和计算分析能力 ， ７ ０ 从 ． 开始增加 Ａ ｐ ｃｔ ｎ ｐ ｌ ａ ｏ ｉ ｉ 技术 ， 持 其 它 编 程 语 言 的 二 次 开 发 。使 用 Ｖ ６和 支 Ｂ Ｓ ｒｅ８程序 界面如 图 １ 示 。 ｕｆｒ， 所
据的彩 色平面等值线绘 图功能， 充分发挥 Ｓ ｒ ｒ ｕｆ 的网格化能力和绘图功能， ｅ 数据处理 简单 、 高效。 关 键词 ： Ｂ；ｕｆｒ物化探 ； 面等值 线 图 Ｖ Ｓ ｒｅ； 平 中图分类 号 ：２ 文献标识 码 ： 文章 编号 ：Ｏ４ ５ １（Ｏ １１一Ｏ ２—０ Ｐ２ Ａ １０— ７６ ２ １）２ １２ ４
点 阃Ｉ 号 鬲
一 程 密 ｆ＝； 一 序 钥 ；； ＝＝ ；可
通过 Ａ ｐｉ ｔ ｎ根对 象 ， ｐ ｌａｉ ｃ ｏ 下面各层 对象 便可 逐… 引用 ，
圈 １ 程 序 界 面
实现 Ｖ Ｂ程序对 Ｓ ｒ ｒ ｕｆ 主程序 的控制。其主要代码如 ｅ
下：
１ Ｓ ｒｅ 对象 介绍 ｕｆｒ
最 点 『 小号
最 点号 大
： 点比 石 号例 一
： 钱 例 Ｆ一 号比 —
三列数据分别是线号 、 点号和测量值。 ２２ 建 立 Ｖ ． Ｂ与 Ｓ ｒｅ 服务器 的通讯 ｕ ｆｒ 为 了实现 Ｓ ｒｅ 的嵌 入 ， ｕｆｒ 首先 要 引 用 Ｓ ｒ ｒ 型 ｕｆ 类 ｅ
库， 通过 Ｉ ｏｔ ｐ ｉｒｒ 令 导人 ” ｕｆ ｐ ｍｐ ｒＴｙ ｅＩｂａｙ命 ． Ｓ ｒｅ ８Ｔｙ ｅ ｒ Ｌｂａｙ ， 次 是 在 程 序 中用 Ｃ ｅｔＯｂｅｔ ） 建 或 ｉｒｒ”其 ｒａｅ ｊｃ （ 创
ＧｅＯｂｅ ｔ ） 获 Ｓ ｒｅ ｔ ｊｃ（ 捕 ｕｆｒ的 Ａｐ ｌ ａｉｎ对 象 的 实 例 。 ｐｉ ｔ ｃ ｏ
象 ，ｕｆ 中绘图元素很多 ， Ｓｒ ｒ ｅ 如坐标轴、 等值线 、 底图、 文 本等。在程序中可以通过给对象的属性赋值改变对象 的状 态 ， 实现 Ｓ ｒ ｒ 图 的程 序化 、 ｕｆ 绘 ｅ 自动化 。 ２ 实现等值线绘图功能 ２ １ 物 化探数 据格式 ． 物化 探数 据 的格 式一 般 为 文本 格 式 ， 可用 Ｅ ｃｌ 也 ｘｅ 电子表格 的形式 提供 。它包 含 的数 据项 有测点 的线 号 、 点号、 测量值 １测量值 ２ 测量值 ３ 、 、 ……。具体的数据 格式如下：
＊ 收稿 日期 ：０ １０ —５ ２ １—２１ 修回 日期：０ １０—８ ２ １－２２ 作者 简介 ： 邰军 良（ ９７） 男（ １ ６一 ， 汉族 ） 山西黎城人 ， ， 工程师 ， 现从事工程物探勘查工作ａ
２ １ 年第 １ 期 ０１ ２
西部探矿工程
ｅｄ ｎ ２一 Ｉｔｎｖｓ／２ ｎ （ ｌｌ ）
Ｄｉ Ｓ ｒｅＡｐ ｊｃ ｍ ｕ ｆｒ ｐＡｓＯｂｅｔ
Ｄｉ Ｄｏ ｊｃ ｍ ｃＡｓ Ｏｂｅｔ
ＯｎＥｒ ｏ ｓ ｍｅＮｅ ｔ ｒ ｒＲｅ ｕ ｘ
Ｓｒｒ ｕｆ 提供了完整 Ｏ Ｌ Ａ ｔｍ ｔ ｎ 能供外 部 ｅ Ｅ ｕｏ ａｉ 功 ｏ
应 用 程 序 调 用 ， 用 Ｓ ｒ ｒ对 象 有 ： ｐ ｌａｉ ， 常 ｕｆ ｅ Ａ ｐｉ ｔ ｎ ｃ ｏ
１２ ２
wenku.baidu.com
西部探 矿工 程
２１ 年第 ｌ 期 ０１ ２
用Ｖ Ｂ和 Ｓ ｒｅ 制彩 色 平 面等 值 线 图 ｕ ｆｒ绘
邰军 良
（ 山西省 地勘局 二 一二地 质 队， 山西 长 治 ０６０ ） ４０ ０
摘 要 ： 用 Ｓ ｒｅ 提供 的 Ａｕｏ ｔ ｎ技 术和 ＶＢ编程 语 言 的 ＯＩ 自动化 方 法 实现 物化探 测 量数 利 ｕｆｒ ｔｍａｉ ｏ Ｅ