1、柱状图绘制软件摘 要本系统通过利用VB编程从Excel中读取数据，在AutoCAD中实现自动绘制柱状图，具有一定实用性。关键词CAD二次开发 柱状图 VB Excel 1 概述随着科学的发展，计算机在采矿领域的应用应用已越来越广，其中一个重要的应用方向就是计算机辅助制图（CAD）。在煤炭行业，CAD的应用已相当普遍，但制图自动化程度较低，生产、设计单位也缺少这方面的软件，由此给我们一个思路，通过编程实现绘图的自动化。Autodesk公司的AutoCAD是当今世界上最畅销的绘图软件之一，已成为广大工程技术人员最好的设计助手。它具有强大的绘图功能，同时，具有开放性，用户可以根据自己的实际需要及专业
2、性质，对CAD进行二次开发，从而更加完善地为本专业服务，这也是CAD受欢迎的重要原因之一。Mcrosoft公司的Visual Basic6.0是当今最畅销的编程语言之一，为软件开发者提供了良好的开发环境；简单易学，功能强大。而CAD内部的VBA开发工具，使以上两套功能强大的软件可以无间隙地结合在一起，让用户可以很轻松地开发出自己满意的软件。为此采用AutoCAD的ActiveX技术及Visual Basic 6.0、Mcrosoft Excel来编制软件。柱状图是采矿制图中需经常绘制的一部分，且柱状图具有较大的相似性，为其自动处理提供了可能。下面介绍的就是用VB对CAD进行二次开发，绘制柱状图
3、的软件。2 系统目标用户选择已输入数据的Excel文件，并设置了相应参数或采取默认值以后，系统自动完成柱状图的绘制，并进行标注。为了做到功能全面，操作简单，要求系统能达到这样的要求：当用户改变某一参数（如柱状图的宽度）时，系统对其它参数进行自动调整，努力使柱状图谐调，美观，使“柱状图绘制”做到真正的“自动化”。这一点是整个系统设计的重点与难点。3 设计原则本系统的设计应按软件工程的步骤一步步进行，不应盲目进入代码编制阶段，首先看有关资料，进行练习，完成必要的技术储备，然后进行系统的总体设计、详细设计，接着才是编码阶段，最后反复调试，使之能达到预期的要求。4 设计思想由于柱状图的画法基本一致，故
4、本程序将柱状图的各个组成部分，等的绘制编制成函数或子过程，当选择不同类型的巷道时，调用相应的函数或子过程，完成柱状图的自动绘制。同时，各个函数或子过程可随着柱状图参数的变化（如柱状图宽度的不同）绘制出不同的柱状图。5 程序流程图图5.1 程序流程图6 系统介绍6.1 系统功能本系统能在AutoCAD环境中自动完成柱状图的绘制，并标注各岩层性质，并能根据用户设置的主要参数（如宽度）来自动调整和改变柱状图的形状，使柱状图协调、美观。图6.程序界面6.2 界面介绍1.用户首先需要选择保存有柱状图数据的Excel文件。单击驱动器列表框，则目录列表框列出当前驱动器中的文件。2.在目录列表框中单击柱状图数
5、据文件所在的文件夹，则在文件列表框列出该文件夹包含的所有保存有柱状图数据的Excel文件。3.单击文件名则程序将自动打开该Excel文件，并将该文件内的所有工作表的名称在列表框中列出。4.单击列表框中的工作表，在窗体右上方的OLE控件中显示该工作表中的内容，便于用户核对数据，同时“添加”按钮变为可用。用户也可以通过双击该控件，打开对应的Excel工作表，更改数据后保存，重复以上步骤即可继续绘图。如果用户想重新输入数据，还可以单击“重新输入数据”按钮，打开新的工作表，输入完成后保存，重复以上步骤即可继续绘图。OLE控件显示数据表如图6.2。图6.2 OLE控件显示Excel表界面5.单击“添加”
6、按钮程序自动读取所选Excel工作表中数据并存储。同时在Date控件中显示文件名及对应柱状图序号。6.单击“启动”按钮，打开AutoCAD，这一步可以忽略，而直接绘图。7.单击“绘图”按钮程序自动完成柱状图的绘制并提示绘制完成。绘制完效果图如图6.3。8.单击“退出”按钮结束程序，并清空对象，释放占用空间。7 系统编制过程7.1 引用各类的库要实现用Visual Basic语言对AutoCAD的二次开发，首先要用倒的是VB与AutoCAD的连接，先打开VB的工程引用，选择AutoCAD 2004 type library，如图7.1。然后的准备工作就是VB与Excel的连接，引用VB中的标准库
7、Microsoft Excel 11.0 Object Library，加载方法同上，打开VB的工程引用，选择Microsoft Excel 11.0 library，如图7.1。图7.1应用各类库图6.3 绘制完毕效果图7.2 Visual Basic与AutoCAD的连接Visual Basic语言对AutoCAD的二次开发，就要使Visaul Basic的程序能调用CAD的命令并能在CAD的环境下由程序控制进行自动绘图。首先在Visaul Basic模块中申明一组对象。代码如下：定义AutoCAD对象Public AcadApp As ObjectPublic AcadDoc As Ob
8、jectPublic AcadMds As ObjectPublic AcadUtil As Object连接CADPublic Sub qidongCAD()On Error Resume Next Set AcadApp = GetObject(, autocad.application) If Err Then Set AcadApp = CreateObject(autocad.application) End If Set AcadDoc = AcadApp.ActiveDocument Set AcadMds = AcadDoc.ModelSpace Set AcadUtil =
9、AcadDoc.Utility Set AcadPaperSpace = AcadDoc.PaperSpaceEnd Sub运行以上代码即可启动AutoCAD7.3 Visual Basic与Excel 的连接Visual Basic与Excel 的连接同Visual Basic与AutoCAD的连接，要使Visaul Basic的程序能调用Excel的命令、函数等，并在Excel中存取数据，首先要在Visaul Basic模块中申明一组对象。定义EXCEL空间Public ExcelApp As Excel.ApplicationPublic ExcelWBook As Excel.Work
10、bookPublic ExcelWSheet As Excel.WorksheetPublic ExcelShape As Excel.ShapesPublic ExcelChart As Excel.Chart连接ExcelPublic Sub qidongExcel() 连接EXCELOn Error Resume Next 忽略错误Set ExcelApp = GetObject(, Excel.Application) 查找一个正在运行的 Excel 拷贝If Err Then 如果 Excel 没有运行则 Err.Clear Set ExcelApp = CreateObject(E
11、xcel.Application) 运行它End IfEnd Sub运行以上代码启动Excel。7.4 自定义变量类型Public Type Tu 自定义一个记录数组 BianHao As String YanXing As String HouDu As Double MeiHao As String YinZi As Double PatName As StringEnd TypePublic Zhu_Zhuang(1 To 100) As Tu自定义存储柱状图数据变量Public Type Data_List_File 自定义一个记录数组 Excel_File As String Fil
12、e_Path As String Sheet_N As Integer Zhu_N As Integer BiaoGao As DoubleEnd TypePublic Ji_Lu(0 To 100) As Data_List_File 自定义记录柱状图文件路径及相关参数变量7.5 主要模块的编写本软件最重要的有两部分，一部分是从Excel存取数据，另一部分是在CAD中绘制柱状图。针对不同部分的功能在模块中编制了7个过程和两个函数。以下通过系统绘图的步骤来说明系统的实现过程，由于篇幅限制，不可能把所有代码全部列出，只列出一些重要的程序代码，以供参考。7.5.1 从Excel中取数据在VB和Ex
13、cel建立连接后就可以利用VB程序对工作表进行操作、调用Excel里的数据，以下是定义一个子过程实现柱状图数据从Excel工作表到VB中自定义数组。Public Sub FuZhi(i As Integer) 把Excel里面的数据输入到数组Zhu_Zhuang()里面 On Error Resume Next Dim File_name As String 定义存储文件名的字符型变量 Dim File_Path As String 定义存储文件路径的字符型变量 Dim Excel_File As String 定义存储Excel文件名的字符型变量 Dim Zhu_N As Integer D
14、im Sheet_N As Integer Dim iROW As Integer Dim iCOL As Integer Dim K As Integer Dim j As Integer For K = 1 To i Excel_File = Ji_Lu(K).Excel_File File_Path = Ji_Lu(K).File_Path File_name = File_Path & / & Excel_File Sheet_N = Ji_Lu(K).Sheet_N Zhu_N = Ji_Lu(K).Zhu_N 以上为从记录数组中复制文件路径及相关变量 Set ExcelWBook = ExcelApp.Workbooks.Open(File_name) Set ExcelWSheet = ExcelApp.Sheets(Sheet_N)打开对应的Excel文件 iROW = 2 Do While Trim(Ex
