VB编程巷道断面轮廓.doc

实例：利用AutoCAD帮助信息 快速开发巷道断面轮廓软件 一、前言 AutoCAD是国内外煤炭企事业单位最广泛使用的工程绘图软件之一。AutoCAD版本有2004、2005、2006。AutoCAD帮助信息中包含了丰富的绘图信息。其中AutoCAD 2004的帮助信息中用VBA编制的824个小程序十分实用，为初学者提供了丰富的技术资料和快速开发实用软件的捷径。 根据我们长期从事采矿CAD教学科研的经验，走出了一条利用AutoCAD帮助信息快速开发采矿软件的成功之路。具体地说，首先从AutoCAD的帮助信息中得到软件的VBA代码，将其复制到AutoCAD的VBA编辑器中。其次，在VBA编辑器中调试运行成功后再复制到VB6的“代码”区域中。在VB6中“添加模块”、增加必要的控件、按VB6规定适当修改代码，调试运行成功后按VB格式存储。最后编译并得到实用软件的可执行文件。用这种方法已开发了40余个（套）采矿软件。 本文结合开发绘制半圆拱巷道断面轮廓软件的实例详细地介绍上述全过程。 二、实例与分析 设一半圆拱巷道断面轮廓尺寸为：巷道净宽B=4000，墙高h=1400，标志性的五个点坐标分别为：a（0，1400），b（0，0），c（4000，0），d（4000，1400），e（2000，1400），见图1。 该巷道断面轮廓线由三条直线和一段圆弧组成。只要能写出用VB6编程绘制直线和圆弧的代码，并输入正确的参数，就能绘制出巷道断面轮廓图形。而对于初学者来讲，VB6编程的代码、格式、控件、引用和属性的设置等等任何一个环节出了错都会导致编程的失败。 本文提供的思路可帮助初学者解决编程的入门问题。具体地步骤是： 第一步，找到绘制直线的VBA源代码，先绘制一条直线，再绘制三条直线。 第二步，找到绘制圆弧的VBA源代码，并绘制一段圆弧。 第三步，合并绘制直线和圆弧的VBA源代码，输入a、b、c、d、e各点组成的直线和圆弧，绘制出半圆拱巷道断面轮廓图形。 第四步，在VB6中将编程的代码、格式、控件、引用和属性的设置好，使程序实用。 第五步，在VB6中将全部内容编译成可执行文件。 问题的关键在于找到绘制直线和圆弧的VBA源代码。 三、AutoCAD中的帮助信息 1．查找绘制对象的VBA源代码 正常打开AutoCAD 2004，按以下步骤找到绘制直线的VBA源代码。 1）按F1键，打开AutoCAD中的帮助信息。 2）点击目录“自定义手册\ActiveX Automation 和VBA”，出现相关内容。 3）点击目录“ActiveX Automation and VBA Reference”，提供关于 ActiveX 对象模型及其相关接口部件的参考。提供Sub Example_AddLine() This example adds a line in model space Dim lineObj As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double Define the start and end points for the line startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0# endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0# Create the line in model space Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint) ZoomAll End Sub 这是一组完整的绘制一条直线的VBA代码，直线的起点为（1，1），终点为（5，5）。 2．运行VBA代码 只有将上述VBA代码复制到AutoCAD中的VBA编辑器中才能运行。 1）在AutoCAD中，点击菜单“工具\宏\Visual Basic编辑器”，出现无代码窗口的Visual Basic编辑器界面。 2）点击Visual Basic编辑器的菜单“视图\代码窗口”，出现有空白代码页面的Visual Basic编辑器界面。 3）将上述VBA代码复制到AutoCAD中的VBA编辑器的空白代码页面中，即可进行第一次运行。 4）在VBA编辑器中，有三种运行方式： （1）将光标放在本段代码的任何地方，点击工具栏处的“运行子过程”三角图标。 （2）将光标放在本段代码的任何地方，点击菜单“运行\运行子过程”。 （3）将光标放在本段代码的任何地方，按F5键。 5）在AutoCAD