用VB编程实现钻孔自动绘制.pdf

7 6 江苏煤炭 2 0 0 4年第 1 期 用 V B编程实现钻孔自动绘制 周永臣 ， 岳殿召 ， 张广军 ， 林在康 1 ． 中国矿业大 学， 江 苏 徐 州 2 2 1 0 0 8 ； 2 ． 平 顶 山煤业集 团 公司一矿 ， 河南 平 顶 山 4 6 7 0 1 1 [ 摘 要] 以 A u t o C A D 2 0 0 2为系统平 台， 将矿图中的钻孔分为垂直与倾斜两类 ， 利用 V B编 程 、 基 于 Ac t i v e Au t o ma t i o n和 AD 0数 据 库 访 问技 术 ， 及 其 时 C S V 格 式 的 E x c e l 文件调 用。一 次完成批 量钻孔 的 自动绘 制。 [ 关键词] A u t o C A D 2 0 0 2 ； V i s u a l B a s i c ； A u t o m a t i o n ； 钻孔 ； C S V格式的 E x c e l 文件 [ 中图分类号] T D 6 7 2 [ 文献标识码] B [ 文章编号] 1 0 0 3 - 6 0 8 3 2 0 0 4 0 1 0 0 7 6 0 2 0 引 言 A u t o C A D已在各行各业中广泛应用。 它采用 开放式 的体系结构允许扩充新的功能和设计各 种应用程序 。V i s u a l B a s i c开发 C A D的技术 为 A u t o m a t i o n 技术 ， 是 A u t o C A D开发工具之一。 钻孔数据是煤矿的重要资料之一 ， 数量 比较 大 ， 为了存储和调用方便 ， 采用 了直接从电子报 表读取数据技术 ， E x c e l 是 比较 常用 的电子报表 软件 ，具有强大而快速的数据处理功能 ，基于 A u t o m a t i o n技术和 A D O数据库访问技术可 自动 生成矿图中钻孔软件。 1 A c t iv e X D a t a O b j e c t s数据库访问技术 1 ． 1 A D O技术 当前几种最常用的微软数据库访 问技术包 括 O D B C 、 D A O和 A D O技术 ，其中 A c t i v e X D a t a O b j e c t s A D O 是为 Mi c r o s o f t 数据访 问接 口 O L E D B而设计的。它是一个便于使用的应用程序层。 可以满足很多开发需要 ， 包括创建前端 的数据库 客户端和多层结构中的商业对象 ， 使用活动连接 访问关系型数据库和其他的数据存储 。 同时 A D O 使用了与 D A O相似的约定和特性 ，使它易于掌 握和学习。使用它可以对多种数据库进行访问， 支持 V i s u al C 、 V i s u al B a s i c 、 V i s u al J 以及 V B ． S c i r p t 和 J a v a S c r i p t 等脚本语言 。利用 A D O数据 库访问技术实现在 C A D系统内两种开发技术之 间的数据交换【l1 。 1 ．2 A D O对象模型 A D O有三大对象 ，即 C o n n e c t io n 、 C o m m a n d 和 R e c o r d S e t 对象。可分别集合产生 C o n n e c t i o n Er r o r s Er r o r 、 C o mma n d P a r a me t e r s Pa r a me t e r 、 R e c o r d S e t F i e l d s F i e l d对象 。其 中 C o n n e c t i o n 、 C o m m a n d 、 R e c o r d S e t 和 F i e l d又分别具有 P r o p e r i - t i e s 集合而产生 P r o p e r it y 对象[21 。 2 Au t o ma t i o n技术 2 ． 1 A u t o ma t io n技术简介 A c t i v e X A u t o m a t io n技术是一组基于 C 0 M 的 技术集合， 是 由O L E自动化技术扩充和发展起来 的， 它是一个应用程序操纵在另一个应用程序中 实现的对象。A u t o C A D从 R1 4开始提供 A c t i v e X A u t o m a t i o n 。一个应用程序支持的对象、 方法、 属 性通常在应用程序的对象库中定义。类型库是一 个文件或文件的一部分，描述一个或多个对象 ， 但是它不存储对象 ，而是存储对象的接 口描述 。 因此，为了使用 A u t o C A D的 A u t o m a t i o n对象 ， 必 须首先在 V i s u a l B a s i c中引用该 对象 的类 型库 Au t o CAD 2 0 0 0 T y p e L i b r a r y。 2 ．2 A u t o C A D 2 0 0 2的 A u t o ma t io n对象 所有 A u t o C A D 2 0 0 2的对象组成 一个层状结 构。最高层是 A p p l i c a t io n对象 ，其他对象都是 A p p l i c a t i o n对象的后代。为了得到一个特定的对 象，必须从 A p p l i c a t i o n对象对其后代进行遍历， 一 直到得到这个特定的对象。 按照上面的层次关 系， 依次遍历访问 ， 就可 以在 A u t o C A D的模型空间 M o d e l S p a c e 中根据 所给定的参数 ， 调用该对象的绘图函数接 口进行 自动绘图。 3 系统功能模块 在 A D O数据库访问技术和 A c t i v e A u t o m a t i o n 技术的基础上， 将所需要的数据从 E x c e l 数据库中 取出， 再把取出的数据传送到 A u t o C A D， 作为绘图 维普资讯 2 0 0 4年第 l 期 周永臣等用 V B编程实现钻孔 自动绘制 7 7 的参数 ， 从而达到自动绘制钻孑 L 的目的。 系统要完成钻孑 L 的 自动绘制 ， 主要模块有 以 下几个 输入钻孑 L 资料模块 ， 完成钻孔数据的输入 ； 维护钻孔资料模块 ， 用来维护钻孔数据 ； 绘制钻孔模块， 完成钻孑 L 的绘制； 坐标转换模块 ， 完成世界坐标和用户坐标之 间的转换 。 其系统功能模块图， 如图 l 所示。 钻孔 自动绘制系统 输 入 钻 孔 数 据 维 护 钻 孔 数 据 绘 制 钻 孔 模 块 图 1 系统功 能模块 图 坐 标 转 换 模 块 4应用实例 以平煤一矿丁组煤层钻孔 自动生成为例简要 说明。 在 E x c e l 表 中按软件要求数据文件格式输入 丁组煤层 7 7个钻孑 L 数据资料， 如图 2所示。 数据资料正确输入后 ， 打开钻孔 自动绘制软 件 ， 进入钻孑 L 自动绘制软件启动界面 ， 按钻孑 L 绘 制要求进行界面设置后 ， 单击“ 绘制钻孔” 按钮 ， 软件进行钻孔 自动绘制，一次性绘制出 7 7个钻 孔。自动绘制完毕后， 选择单个钻孔 ， 局部放大后 显示 ， 如图 3所示。 核对钻孔数据与绘制图形对应关系， 确认所 绘制钻孑 L 图形无误后 ， 保存图形 ， 至此钻孑 L 自动 绘制工作结束。 文 件 编 辑蓬 视 图 插 入∞ { 各 耋 毫 勘 工 具辽 数 据也 窗 口∞ 番 渤迅 创 D q 国 电 ， 一 薯警 ∑广 - 叁 l i l 鲤 孽奶 1 0 帐 ， 回 宋 体 ， 12， B，U 蠹善 l暮国 ％， 掌章 一， ， A-， A 1 ， l 序号 居 中 I A I B 1 ． c D E { F G H．} I J 1 l 庄 呈 聿 占 孔号 地面 x 地面Y 地面 z 见煤x 见煤Y 见煤z 煤厚 直斜孔 2 1 一 P 2 6 3 7 4 4 0 ．6 4 7 6 0 8 ． 7 1 1 3 2 ． 1 2 7 4 4 0 ． 6 4 7 6 0 8 ． 7 1 2 5 ． 3 2 2 ． 6 直 3 2 P 2 6 5 7 9 1 1 ． 7 8 7 7 6 0 ． 4 8 1 8 5 ． 7 2 7 9 1 1 ． 7 8 7 7 6 0 ． 4 8 4 1 ． 2 3 1 ． 8 直 ⋯_． 4 3 P 2 6 6 9 8 2 5 ． 6 4 8 3 4 1 ． 2 4 2 0 7 ． 1 1 9 8 2 5 ． 6 4 8 3 4 1 ． 2 4 1 1 9 ． 9 5 1 ． 5 1 直 5 4 P 2 6 7 1 0 7 5 5 ． 0 8 8 6 2 7 ． 6 8 1 9 5 ． 8 9 1 0 7 5 5 ． 0 8 8 6 2 7 ． 6 8 2 4 1 ． 1 1 1 ． 1 直 ⋯ ， 6 5 P 2 6 8 1 0 2 8 7 ． 3 5 8 4 8 2 ． 8 5 1 6 2 ． 2 2 1 0 2 8 7 ． 3 5 8 4 8 2 ． 8 5 - 1 1 5 ． 3 4 1 ． 3 3 直 14 ● l H f＼ T6 钻孔c S v ／ ． I l l l 厂 黼 I I l I 丽 F r 图 表钻子 L 数据图 图 某倾斜钻子 L 局部放大图 [ 参 考文 献] [ 1 ] 林在康， 王斌 ， 谭超． 采矿 开发及编程技术[ M ] ． 徐 州 中国矿业大学 出版社 ， 1 ． 【 2 】 张红军， 王红 ， 等． ．中文版高级应用与开 发指南[ M] ． 北京 人民邮电出版社， ． 【 3 】 庄宗元． 使用教程【 M】 ． 徐州 中国矿业大 学 ， ． 【 作者简介] 周永臣 一 ， 男 ， 江苏徐州人 ， 中国矿业大学能源 与安全工程学院研究生， 研究方 向为采矿信息与计算机应 用。 [ 收稿 日期 2 ] 维普资讯