CAD在绘制矿图过程中的应用.pdf

第 1 3卷 第 I期 黑龙江科技 学 院 学报 20 3年3月JOU RN A LOFH EILON G JIAN GIN ST IT U TEOFSC IE NC E 波 殷伟 2 孙广义 2 2 黑龙江科技学院资源与环境工程学 院 黑龙江鸡西 巧8 1 0 5 摘 要 针对采矿矿 图种 类繁多 内容 多变 重复性强的特点 对A utoCAD 的底层机制进行研 究 利用计算机程序语言V B 建立了矿 图 图元的计算机绘制模型 使其能够添加到所需要绘制的采 矿 图中 并且能够自动 完成文字标注和 图形旋转 缩放 此方法与采矿 线型库结合 可 完成 复杂的采 矿矿 图的全部绘制工作 为在实践中推广采矿计算机辅助设计莫定了基础 关键词 V is ua l Ba si c AutoCAI 二次 开发 采矿 矿 图 图元库 中图分类号 T D 21 9 仰39 1 7 2文献标识码 A Th e CAD 5 NimbleAPPl ieatio ninD ra wi n gMini ng Ch art Z万通NGB ol YI N W eiZ SUNG a n 盯1 2 1 H u m an R e s ourc es Seetio n H ei lon 自ia ng In stitute of Seie nc e a nd T eehn ology Jixi158 10 5 Chin a 2 In stituteof R es o ure ea nd E nviro n m e nt H eilo ng j ia ng In stitu t eof Seie n e e and T e chn ology Jixi 158 10 5 Chin a A bst r a et Dir ec t edatthe c h aracter sof 而 n ingm aP su c h a s m a nysPecies chan g eblec on tent stro ng rePetition the PaPerintroduc e s the researc h into the b o ttom m e eha nismof A utoCA D a nda nattem Pt tobuild the c o mPute rd r aw ingm odelof miningm aP Pietu re ele m ent by u sing the eo mPute r Pr ogramla ngu age V isu alBa sie T he m o d elallo w sto be added to ther equir e d drawing miningm aP It ca nalso a ec o mPlishc h araeters m ark and the g raPh re vo lving an d zoo m auto m atieally It intr odu ces the re ality m e thod a nd the stePs The eo mb in ationofthe m e thodwiththe mini ng lin e ar wa r eho useser v es to acc o mPli sh thed r aw ing ofeom Plie atedminingm aPa nd f o rr n s theba se o f sPreadin gminingc omPute r assistant de sign inP raetie e Keyw ordsi Visu alBa sie the see ond d evelo Pm e ntof AutoC AD mining m aP thePietu re elernentwareho u se O引 言 现在许多企业和设计院所都具 有了一定 的C AD 设计手 段 但由于其各类基础软件都仅提供了一 种 底层 的 支持环境 并 不宜 直接用于产品 的 开 发 设 计 例如 用 户 采 用Au t o C A D可以方便地 进 行点 线 圆等儿何元素的绘制工作 但如果用这 些 儿何元 收稿日期 2田2一l卜以 基金项目 黑龙江省教育厅科研项目 9 551 0料 素去一步步地构造 一个复杂 的图形 那么 设计效 率将会很低的 而且对用户的要求也很高 设计者的劳 动强 度也较大 有效的解决办法是利用各种基 础软 件提供的功能 由软件人员进行二次开 发 在 二 次 开 发 中可以应用可视化 应用 界 面 面向用户 使没有 Au t oCA D 基 础 的工作人员也可以轻 松熟练的 绘制 图形 Au t 0 CAD强大 的功能为开发者提供了J 一 大 设 计空 间 应 用A ut o C AD二 次开 发可以为工程 技 术人 员创 造 良好的设计环境 使其减轻绘 图繁重之苦 采 第 1期张波 等 二CAD 在绘 制矿图过程 中的应用 矿 系统图元应用重复性高 但是借助 Au t o CAI 的面 向对象开放性 的特 点 对其进 行二 次 开 发 就可以大 大提高绘 图效 率 A U t o CAO 对象模型树 A u toCA D 中的A c tiv eX A utomatio n 是 微 软 公 司Ac tiv eX规范 的具体应用 它 通过基于Ac t iv eX的 自动化对象 为其他 应用程序提供了访 问Au t o C AD 内部功能 的方 法 是A ut o C AD 最新的开 发 接 口 在 运 行时 A n t oCAD与其他 应 用程序之间 的关系是 服 务器与客 户的 关系 开发 人员使用支持Ac tiveX规范 的编 程语言 如 V B D e ph i 等 能通 过访问A uto CAD 的对象模 型 把 Au t oCAD 的强大功能集成到 应用程 序中 Aut oC A D的对象模型是 一 种树型结构模型 根 为 A u toCAD AP Plieatio n A uto CAD 中 的 所 有对象都是A uto C ADAp plieation的子对象 图l 所示 为Au t 0 CAI 对象模型 的 层次结构树 其中 父 对象与子对象之间 的 关 系并不 是对象继 承 关 系 而是包含 关 系 川 图1 Au t 0CAD 应用程序对 象 F ig 1A uto c AD 5 aPPlied Pro c edu r e ob jeet 2 基本思路 2 1 相关术语简介 使用自动化 Au t o CAD 暴露其可 编 程 对象 引 起的暴露对象称为 自动化对象 自动 化对象主要暴 露 二个方面 属性 pr oPer tie S 和方法 m et h o d s 属 性是设置或返回对象特征 出处的功能 而方 法 是 针 对对象动作的各种操作 A n t oCAD可以选择所选 中 对象上的一些属性和方 法 通过A etiv e XA ut o l n a t i on 来使用它 例如L in e 线 体是 A n t oCAD所有对象 中的一 种 它 也具有属性 颜色 剪 切 旋转 平 移和 重画等 V i su slBa si c 总共 可 取 得 A ut0 C AD约 7 0 个对 象 这些对象共 有 5 00多个方 法和 属性 Au t o C AD按 层次来组 织 这 些对象 其中柳phc a ti on 对象处于该 层 次 的 顶端 所 有 其 它对象都是A pP li以t i on 对 象 的 子 集 操 作 一 个特 定 的对象 必 须从A p pl i以tio n 对象 开始 再到 它的子对象 D o c u m e n t对象和Pr ef e r e n昭对象 一直到要 操作的 特 定 对 象 接 下来就可 以用该对象 的属性和方法来创建或修 改对象 的属性 特征1 2 1 下 面介 绍二次 开发 经常用到 的几个重 要 的对象 及其方法 属性 A pphc at io n 对象是编写代码 时第一个使用 的对 象 代表 Aut oCAD本身 Apphc at io n 对象是 通 过 两 个重要语句 记tob j以和 Cr c at日 b j时来与之连接 这 两个语句虽然语法 不 同 但功能相同 都是用 于将 AutoCAD连接装人 到 内存 创建一个新的A ut o CA D 实例 并 与之连接 Do c u me n t对象是Aut oC AD 当前的活动绘 图文 档 活动绘图文 档 就 是通过Do c u me n t 对象 的A c t iv e D o c u m e n t属性取得 的 它 为A uto C AD图形 及非 图 形对象操作提供人口 因为每个特定对象的操作都 是在A uto C AD某个绘图 文档中进行的 c u m ent 的M od 粥p a优 和p ape6 p a c e属性 为图 形对象 如 L in e P o i n t Ci r cle 等等 提供人 口 而 非 图形对象 如 Laye rs Lin etyPe s 等等 的人 口则 是通过D o cu m e nt 其它 相 应 属 性 如 Layer s Lin etyPe s 等等 提供 Gr aph ic a l 图形 对象即实体是可 见 的对象 如L in e Po in t Ci r c l e 等等 都是在图 形 文 档 中所 能 见到 的具体图形元素 创建这些对象是 通过它们的 相 应方法 A d dEn ti n am e 来实现 也允许使用Cop y E r a s e M o v e等 等的方法来实现 对 实体的编辑 N on g r a phieal 非图形 对象是 图形附带诸如Layer s Lin etype s nir n s tyle 等不可见属性特征 2 2 引用A nt oCA D对象 用VB语言编 程进行A u t oCAD二次开发 必 须 在VB编 程 环境中引 用A ut o CAD 对象库 在V B编 程 环 境 中选 择 工 程 引 用 命令 打 开 引用对话 框 选 中A Llt0 CAD2 0 0 0Typ e L ibr ar y 这是 关 键 一 步 否则 V B 语言编程 控制不 了 Aut oCA I 200 2 的命 令 完成引用后 V B 就像操作本身一样操作A ut o CAD 2002 2 3 编写代码 首先 定义 一些必 要 的变量 完成VB6 0与A ut o CAD 20OZ的连接 Publi c Ac adAPP A s A e adA PPlieatio n A uto CAD的A p p licatio n 对象 Public A e a d D oe A s A ea dD oeument auto ead d o eu m e nt 对象 50 黑龙江科技学院学 报 第 13 卷 Publicm o SPac e A s A cad M o d elSPace m o d elspa c e 模型 空I e d对象集合 Pub liePaS Pac eA s A ea dPaPerSPa ee pa P e r spae e 图纸空间对象集合 然 后 连接到A uto CA 一般是 先 试着 连 接已 运行的A utoCA D 再试着去打开A u t o CA D并与之 连接 如果系统没有A ut0 C AD 则会报告一 个错误 下 面 的代码可作为一 段V B连接 A n t oCAD的 通用 代码 O n E rror R esume N e xt SetAe ad A PP G eto b j ect a u to cad A PPlieatio n 启动 A utoC AD IfE r ror The n er r Cle a r SetAc adAP P C reateo b j ect a uto e ad APPlic atio n今 If e rr The n M sgBo xerr D e se riPtion 如果 启动失败 显示错误提示 E xi t Sub E nd l f E l ld If Sc t m o SPac e A 连dL心e M odelS Pa ee 设 置 Au t oCAD 为模型 空间 Ac adAPP Visible a c T r u e 使 Au t oC AD 可 见 缺省是不可见 启动 Aut0CAD后就可以面向对象编程了 由于 A ut o C AD中提供了块 BLA CK 功能 可以利用图块 插 人 IN S ER T 命令将图元插 人 到 当前图形 的某 一 点 针对这一特点 在V B代码中把基 本 图形元素组 合成块 在绘图需 要 的时候 可以把这些 重复性高的 元素插人 到相应 的位置 根据需要满足设计要求 确确定软件设计目标标 软软件总体结构设 汁 程序模块设计计 用用户界面设 计计 图2 Fig ZA 应用程序 PP liedf l owchart 3 功能实现 3 1 绘制基本图形元素 绘 制点 应用程序如 图2所 示 D imPointob j eet A s A ea dPoint nimpoint 0toZ A s D ou b l e 定义点的坐标 Point 0 12 Point l 12 Point 2 12 SetPointob j eet M odelS Pa e e A ddPoint Poi nt 绘 制直线 Dimlin eAsA ead Lin e D imSP 0 to Z A s D o u ble DimE P 0 to Z A s D o u ble SP 0 O S P l O SP 2 0 EP 0 100 EP l 100 EP 2 0 定义 直 线 的起点和终 点坐标 Setlin eo b j m oS Pae e A ddL in e SP E P 3 2 绘 制 图形块 Au t oCAD 在插人 图 块 时 可以随 意 改变比 例 按 照1 1比例定制母 图 在 插 人时改变比例以 满足实际应 用 另外 在 插 人 图形 后 可以 A n t oC AD 命令 缩放 复制等 在V B代码中是 这 样完成 图块 定 制 的 以矿车为例 创建块 矿车 InP 0 0 InP l 0 InP 2 0 Setmyb lo ck ac a dD oe Blo cks Ad d InP 矿 车 DimPl in eg o b jA s A e adLWPo lylin e D imPointsg 0T o g A s D ou ble Pointsg O varr e t 0 Pointsg l varr e t l Pointsg 2 var ret 0 100 bl Pointsg 3 var ret l Pointsg 4 var ret 0 100 bl Pointsg 5 v ar ret l 200 bl Pointsg 6 var ret 0 Pointsg 7 v ar ret l 200 bl Pointsg 8 二 va r ret 0 Pointsg 9 二 varret l S et Plin egob j M odelSPa ee A d dLightw eight Polylin e Pointsg Dim myeg A s Ac ad C irele Dim c c en g 0T o Z A s D ou ble eeeng 0 var ret 0 一25 bl ee en g l v a n t l 40 bl c c en g 2 0 Se t myeg M odelSPa e e Ad d Cir ele c c e n g 2 5 bl Dimmyeg 1AsA eadC irele D im e cen gl 0T o Z A s D o ub le 第1期 张波 等 C A D在绘制 矿 图过程中的应用 5l c e en gl 0 varr et 0 一25 bl c cen 91 l V ar ret l 1 60 bl eeen gl 2 0 Setmycgl M o d el SPae e Ad dC irel e eee n gl 25 b l 用V B代码 进行文 字标 注 a e a dD o e A ctiv eTe xtstyle f o n tFile c windows f o n ts sim s u n ttf 设 置 字体 Dimmtxtsob jA s A ead MTe x t Dim m t xtsstr A s String Dimmwidth s A s D ou ble D imin sPnts 0 T o Z A s D ou b le mtxtsstr 矿车 mwidth s 80 bl in sPn ts O va rret 0 2 30 bl in sPn ts l 二 var ret l 50 bl in sPnts 2 0 Setmtxtsob j二 a eadDo e M o d elSPae e Ad dMT e xt i nsPnts m wid ths m txtsstr 标 注m txtso b j H eight 20 bl 备注 b l为比例 在 这里值为2 o 定制后结果 如 图3所示 数和倾斜 角度 保证图块的合理 应用 只要 给出以上 三个参数 程 序 就可以按照要 求 完 成图形 绘 制 具休 方 法如下 插人块 Dim v ar ret A s V arian t varret二a ea dn o e Utility G etpoint 起 点 Call a c adDo e M odelSPa ce In s ertBl o c k var r et 矿车 l 2 l 90 180 3 14 插人 块时要 求提供块的起 点坐标 块名称 龙 Y Z 方向上的比例 旋转角度 V ar r e t是在Au toC AD 中指定 的起 点位置坐标 由于比例 为2 所以尤 y Z 方 向上 的比例分别为l 2 1 由于旋转 角度 为90 0 所 以在 插人时 角度应为90 180 3 14 程序提供了友 好 的界 面 只要 选择需 要 的 图元 输入旋转角 度 在 需 要 绘制的图形区点击鼠标即可完成 图形绘制 按照 这种 方法可以完成所有 图例的 随意绘制 4 结束语 矿车 图3 插入图形中的图元 Fig 3 T h e Piet or ed e m e ntof ins e rt ed 6g u r e 根据上述方法 可以把点 线 圆等基本图 形元 素组成 图块 以方便使用 利用图块和 图形 元素就可 以绘制整个图形 采矿 常用 图元有几十个 它 与采矿 线 型组成了采矿 绘 图基础