基于VBA的AutoCAD二次开发在巷道断面参数化建模中的应用.pdfVIP

科 科I技J论J坛 基于VBA的AutoCAD二次开发在巷道 ． 断面参数化建模中的应用 张 杰 (安徽理工大学，安徽 淮南 232001j 摘 要：以AutoCAD为软件平台，以参数化建模为向导，利用VBA工具对其进行二次开发，输入适当的参数即可建立一个巷道断面模型，可以 根据需要 自行选择绘制巷道、锚杆、松动圈和锚杆受力模块，每个模块绘图时都新建一个图层，单独设置图层的颜色和线型等，同时通过ADO访问 Access数据库实现复杂的数据库事务操作的功能，并且提供了友好的可视化界面，极大的提高了效率实现规范化的管理和应用。 关键词：AutoCAD；参数化建模；VBA；二次开发；数据库 引言 测 点 5：Num— 参数化技术在计算机辅助设计领域已经 ber，Long 得到了广泛的应用。参数化方法通过对图形作 3程序设计的 参数化建模来实现。图形的生成步骤是程序参 基本思路 数化的基础，由它形成程序的流程，程序参数化 本文介绍了通 将生成图形的过程编制成程序。这种参数化方 过 AutoCAD 的 法求解快，不需要通用的推理算法，专用性很 VBA二 次开发方 图 1力的标注样式 强，一个程序只能设计一个固定的图形，一般应 法，利用用户输人 用在结构 比较稳定、拓扑结构 比较简单的产品 的模型参数 自动 由 设计中。直墙半圆拱巷道断面结构比较固定，锚 AutoCAD绘制巷道 杆严格按照间距布置，所以用程序参数化建模 模型——直墙半圆 比较适合，可以节省工作时间，减少工作量。 拱 ，由两个参数即 lVBA简介 可建立模型，它们 MicrosoftVBA是基于 ActiveX Automation 是巷道的高度日Pight 技术的AutoCAD二次开发工具，它是一个面向 和宽度Width。由公 对象的编程环境 ，可提供类似 VB的丰富开发 式 L=Height—Width／2 功能。从语法角度讲，VBA是 VB的一个子集， 可 以计算出直墙的 它们的语法结构是相同的。VBA和VB的主要 高度 L，上面半圆 差别是 VBA和AutoCAD在 同一进程空间中运 拱的半径R=Width／2 行，提供的是具有AutoCAD智能的、非常快速 根据计算出的参数 的编程环境。 绘制三条直线段和 AutoCADVBA允许 VBA环境与 Auto— 一 段圆弧就可以建立巷道断面的模型。 在锚杆指定的位置标注力的大小，只需要 CAD同时运行，并通过ActiveXAutomation接 锚杆绘制考虑了两个参数：锚杆长度 Length 标注点的位置和标注力的值，样式都相同，故把 口对AutoCAD进行编程控制。这样就把这三者 和锚杆的间距 Interval。 标注力做成一个块。不同点的标注只是修改插 紧密结合在一起，提供了一个非常强大的接 口。 最顶部，由巷道的高度和锚杆的长度可以确定它的 入块的坐标位置和里面的文字即可。标注点的 AutoCAD、ActiveXAutomation和VBA的这种结 两个端点坐标分别为 (U，Hdg~)和 (n砌 +￡删姚 位置和标注力的值由数据库存储。力的标注样 合方式不仅为操作AutoCAD对象，而且为向其 注：取巷道底部中心点为原点。顶部和帮部的锚杆 式如图 1所示 。 他应用程序发送或检索数据提供了功能极为强 根据锚杆的布置间距逐一绘制上。由公式 4程序功能的实现 大的接口。正是基于以上的这些优点，本文选择 0=Interval／R可以计算出顶部锚杆的布置角度日 程序绘图部分分为四个独立的模块：巷道 了VBA作为巷道断面参数化建模的开发工具。 然后可以计算出锚杆两端的坐标，绘制一段直 断面、锚杆、松动圈和锚杆受力标注。每个模块 2数据库分析与设计