基于AutoCAD的三维工字钢模型的自动生成器的开发与研究信息管理与信息系统专业毕业设计论文二稿

1、2010届学生毕业设计(论文)材料（四）学 生 毕 业 设 计（论 文）课题名称基于AutoCAD的三维工字钢模型的自动生成器的开发与研究姓 名学 号院 系专 业信息管理与信息系统指导教师2010年 5月12日0 前言21 绪论211课题开发的意义212课题开发的目的413课题开发内容42课题开发工具介绍421 AUTOCAD软件简介42.2 VBA介绍52.2.1 VBA 简介52.2.2 VBA 基础623 AUTOCAD软件二次开发的特点和原理6软件二次开发的特点6二次开发方法原理73需求分析83.1功能分析83.2用户分析84系统设计94.1功能介绍94.2模块设计94.3结构设计11

2、系统模块结构图11系统流程图125VBA编程及调试125.1编程思路125.1.1 ADO连接技术125.1.2 编程步骤13三维立体模型的实现245.2调试和测试256系统关键276.1变量使用276.1.1 局部变量276.1.2 对象变量276.2选择集276.2.1 选择集的创建27过滤选择集276.3主要函数286.4菜单按钮制作296.5 ADO的连接技术297模型图展示307.1平面图307.2 立体图308开发小结30参考文献：31致谢：32基于AutoCAD的三维工字钢模型的自动生成器的开发与研究摘 要：VBA是一个AutoCAD应用程序集成开发环境，它提供了高质量的用户编程

3、能力，能够使AutoCAD数据与其他VBA应用程序直接共享。此外，VBA的加入扩展了AutoCAD集成用户化工具的能力。在CAD软件绘制图形的过程中常遇到一些重复性操作的问题，这无非大大增加了工作人员的压力，同时也是CAD软件缺陷的地方，所以结合VBA编辑器对CAD软件进行二次开发可以弥补CAD软件自身的缺陷性，也可减轻工作人员的负担。基于AutoCAD的三维工字钢模型的自动生成器的开发与研究，结合国家标准的工字钢参数，建立工字钢参数数据库，开发出工字钢模型的自动生成器，这样就可以根据客户的需要在短时间内完成对不同标准的工字钢模型的生成。关键词：AutoCAD二次开发；VBA语言；工字钢；三维

4、立体Based on the model of three-dimensional AutoCAD choices to the research and development of the auto generatorAbstract: VBA is an integrated development environment AutoCAD applications, it provides high quality user programmable ability, can make the AutoCAD data and other VBA application directly

5、. In addition, VBA to join the AutoCAD integration expansion of the user. Chemical In the process of CAD software rendering graphics frequently encountered some repetitive operation, this but greatly increase the staff's pressure and also CAD software defect, so the place with VBA editor for sec

6、ondary development of CAD software can make up the defects of CAD software itself, also can reduce the burden of staff. Based on the model of three-dimensional AutoCAD choices to the research and development of the auto generator, combined with the national standard of choices parameters, establishe

7、s parameter database and develop choices, automatic model choices according to the customer that can be finished in a short time needed for different choices of the standard model. The choices of the secondary development model, make a design more concise and easy, the design time is shortened, and

8、improve the design efficiency.Key Word: AutoCAD second development, VBA language, Choices, 3d 0 前言在计算机辅助绘制时 ,常会出现一些重复操作的工作，如在绘制工字钢模型的过程中，因为工字钢的模型基本上都是一样的，而不同的是它的国家标准有所不同，也就是参数不同。倘若就按照CAD绘图的操作来做的话，那对于客户来说，他若需要几个参数不同的工字钢图纸，工作人员起不在一段时间内进行这重复性的工作，这样的操作既费时又费力。本课题是基于AutoCAD的三维工字钢模型的自动生成器的开发与研究，开发出来的工字钢模型的

9、自动生成器，只要按下按钮，参照选项选择不同的标准，即可绘制出不同参数的工字钢模型图。11课题开发的意义广泛深入应用到国民经济的大多数设计和生产领域的CAD技术，在制造业、工程设计、电气和电子电路、仿真模拟和动画制作、轻工、纺织、家电、服装、医疗乃至体育方面都能觅得其踪影。CAD技术对于企业提高设计效率、优化设计方案、减轻技术人员劳动强度、缩短设计周期，对设计和生产领域生产力的解放起到了关键性的作用。基于AutoCAD的VBA应用程序是高级语言程序计算功能与AutoCAD的绘图功能结合，使用VBA程序AutoCAD是世界上最主要的计算机辅助设计软件之一，在机械、建筑和电器等工程的设计领域有许多二

10、维绘图任务是通过它来完成的。自AutoDesk公司开发的AutoCAD工程图形处理软件面世以来，以其完善的绘图功能，易学易用的特点，受到了广大工程技术人员的普遍欢迎，AutoCAD及其图形格式已成为一种事实上的国际工业标准。AutoCADVBA是一个AutoCAD应用程序集成开发环境，它提供了高质量的用户编程能力，能够使AutoCAD数据与其他VBA应用程序直接共享。此外，VBA的加入扩展了AutoCAD集成用户化工具的能力。AutoCAD的版本在不断的更新，也越来越完善.而现如今对三维工字钢的研究也越来越广泛，那么本课题也就是基于AutoCAD对三维工字钢的开发与研究。AutoCAD工程图形

11、处理软件，自1982年由美国Autodesk公司开发面世以来，以其完善的绘图功能、良好的用户界面、易学易用的特点，受到了广大工程技术人员的普遍欢迎。虽然AutoCAD软件具有以上的特点，但就绘制机械图纸而言， AutoCAD有着其自身的缺点和不足。例如，当我们在绘制不同的国家标准三维工字钢模型时，常遇到国家标准不一样，而每一种三维工字钢模型的形状都是一样的，只是在参数上不一样而已，若我们遇到客户需求不同标准工字钢模型时，那时我们还要根据客户需求逐一绘制，显然费时费力，事倍功半。显然AutoCAD在这方面出现了局限性。因此，有必要对AutoCAD软件进行二次开发，实现参数化绘图，以简化绘图过程，

12、减少重复性工作，让工作人员不在枯燥的机械的绘图，减轻思想疲乏，更重要的是，真正充分发挥CAD快速、准确的优势。根据此课题我们就可以弥补CAD在这方面的局限性，通过VBA编辑器开发出三维工字钢的自动生成器，这样的话我们就可以根据客户需求，利用自动生成器生成不同参数的工字钢模型，既快捷又节省了大量时间，同时更减轻了工作人员的工作，使得绘图不再枯燥机械。12课题开发的目的根据当前国内外CAD的发展动态，AutoCAD之所以得到广泛的应用，一个很重要的原因还在于它开放的结构体系，即用户可以根据自己的需要，对其进行二次开发。正因如此，本课题正是根据不同客户的需求，对三维工字钢进行二次开发，即工字钢模型的

13、自动生成器开发与研究。客户就可以很方便快捷的选择自己需要的那种模型，就像把不同参数的工字钢模型集中在一个图库中，客户根据自己的需求方便快捷的从图库中调用出该参数的模型出来，这样既省时又节约了资金，同样的工作人员也就不会那么枯燥的乏味的重复的去工作。13课题开发内容在AutoCAD的基础上，利用内嵌的VBA作为绘图程序开发工具，采用ActiveX Automation面向对象技术，使用ADO的方法来连接数据库，进行二次开发，将不同标准的工字钢图形的尺寸都定义成参数，用参数约束图形，图形就会自动完成图形的绘制工作，而改变参数的值，图形也会随之改变，从而开发出具有专业特色的工字钢参数化绘图系统，即工

14、字钢模型的自动生成器系统。2 课题开发工具介绍 21 AUTOCAD软件简介AutoCAD是目前最为流行的工程图形处理软件，它不但具有完善的绘图功能、良好的用户界面，而且允许用户进行二次开发。AUTOCAD特点：可以采用多种方式进行二次开发，满足不同用户的需求；2.2 VBA介绍 VBA 简介Visual Basic for Application（VBA）是Microsoft面向最终用户的应用软件编程语言。它最早出现于Microsoft的Excel和Project中，如今VBA已成为VB和所有Office产品的组件。常用的绘图软件AutoCAD也已支持VBA作为二次开发工具。VBA是面向对象

15、的程序设计语言，它继承了VB语言简单、功能强大、易学易用的特点，同时，由于VBA可与主程序在同一个内存空间内运行，大大提高了运行速度。VBA最大特点和最大优点是利用面向对象（OOP）的ActiveX Automation技术，使语言的引擎在技术上与开发环境分离。它的功能在很大程度上依赖于它的客户显露的Automation接口。同时，由于VBA是基于ActiveX Automation技术，它可以使用任何Automation技术的应用程序共同工作。 VBA 基础23 AUTOCAD软件二次开发的特点和原理AutoCAD是PC平台上的主流CAD系统，它不但具有强大的二维绘图和三维造型功能，而且提供

16、开放的二次开发环境。AutoCAD软件二次开发的特点AutoCAD软件二次开发的特点如下：1继承性。二次开发是在已有软件的基础上进行的开发，因此开发后的软件性能在很大程度上取决于支撑软件的性能和开放程度，以及开发者对支撑软件的理解；2.3.2AutoCAD二次开发方法原理有些企业的产品绝大多数为定型产品，这些产品系列化、通用化和标准化程度高。因此，进行这些产品的设计所采用的数学模型及产品的结构都是固定不变的，所不同的只是产品的结构尺寸有所差异，而结构尺寸的差异是由于相同数目及类型的已知条件不同规格的产品设计中取不同值而造成的。对于这类产品，可以将已知条件及其他的随着产品规格而变化的基本参数用相

17、应的变量代替，然后根据这些已知条件和基本参数，由计算机自动查询图形数据库，或相应的软件计算出绘图所需的全部数据，由专门的绘图生成软件在屏幕上自动地设计出图形来，这种方法成为参数化。其工作原理如图2-1所示：显示图形图形支撑软件用 户系统运行界面参数处理与计算生成绘图文件DB参数库图4-1 参数化绘图原理1. 在运行此功能模块时，选择选择条件；2. 在选择条件过滤机制下，选择不同参数；3. 选择按钮操作“添加、“修改”、“删除”、“确定”、“取消”；4. 通过确定按钮实现不同参数的工字钢模型图的生成；5. 立体模型图显示于AutoCAD窗口中。本自动生成器功能既具有时效性、实用性，大大提高了设计

18、效率。4.2模块设计该课题是基于AutoCAD的工字钢模型的自动生成器的开发与研究，力求与实际相结合，使之更加方便快捷以提高工作效。打开AutoCAD，点击工具栏创建一个VBA编辑器，在编辑器上点击工具创建一个用户窗体模块，进行程序界面的设计。具体操作如下图4.1所示：图4.1 创建Visual Basic编辑器控件介绍： 窗体名称改为Form,列表框的名称改为LstType,各个文本框的名称分别为：txtH、txtB、txtD、txtT、txtR、txtR1、txtArea和txtWeight，命令按钮的名称分别为：cmdAdd、cmdModify、cmdDelete、cmdOk和cmdCa

19、ncel。图4.5系统流程图1.开发阶段编写代码时产生逻辑错误。这种逻辑错误在编写程序时很容易见，当运行一个事件过程并且检验它时，即可看到有没有逻辑上的错误，如有IF语句时，必须要有END IF 结尾。2.在输入一个语句后，VBA解释程序有时会立即发现有编译错误。当程序转换成可执行的形式时，错误也可能比编辑程序发现。编译错误的出现就是因为输入了不正确的代码，当输入的语句没有满足Visual Baisc语言句法上的要求时，一些编译错误就会立即出现。例如： 编译错误：子过程或函数未定义 编译错误：语法错误 编译错误：方法或数据成员未找到针对上述编译错误，采取了如下措施：找到未定义的子过程或函数，进

20、行定义；对于语法错误的地方进行修改，并不断的进行测试等。3.在数据连接时发生错误。 在选择或输入数据库名称时，所选择的数据表录入路径错误会导致连接测试不成功。选择连接的数据由OLE DB提供的Microsoft Jet 4.0 OLE DB Provider ，之后查看路径及输入登录数据库的信息是否正确，完后进行测试，要是连接不成功，返回前面的步骤看哪里出错了，进行修改后，继续测试连接，直到测试连接成功。4立体模型生成时发生错误。 在运行结束后，产生的图形只是平面图，未达到预期的效果。经过查看发现是在使用SendCommand方法连接时出的错，如：程序 ThisDrawing.SendComm

21、and "extrude" & vbCr & det & vbCr & vbCr & 100 & vbCr & 0 & vbCr中的det变量没有定义，经过变量定义后运行结果还是平面图。再进行调试发现是没有指定过滤机制，如下面的程序：Dim fType(0) As Integer, fData(0) Dim pl As AcadLWPolyline '指定过滤机制 fType(0) = 0 fData(0) = "LWPOLYLINE" SSet.Select acSelection

22、SetAll, , , fType, fData使用过滤机制后，运行结果立体图，调试成功。选择集是作为独立单元进行处理的指定AutoCAD对象的组合。选择集可由单个对象组成，或它可以更加复杂的组合。定义选择集有两步过程。先创建新的选择集并将其添加到SelectionSets集合。创建后就可往选择集上加入对象。Dim SSet As AcadSelectionSet If Not IsNull(ThisDrawing.SelectionSets.Item("JoinPoly") Then Set SSet = ThisDrawing.SelectionSets.Item(&q

23、uot;JoinPoly") SSet.Delete End If Set SSet = ThisDrawing.SelectionSets.Add("JoinPoly")6.3主要函数定义函数axadSS2lspEnts，用于将选择集中的多个实体转化成可在AutoLISP中使用的变量：' 转换多个图元的函数Public Function axadSS2lspEnts(ByVal adSS As AcadSelectionSet) As String If adSS.Count = 0 Then Exit Function Dim entHandle As

24、 String Dim strEnts As String entHandle = adSS.Item(0).Handle strEnts = "(handent " & Chr(34) & entHandle & Chr(34) & ")" If adSS.Count > 1 ThenDim i As Integer For i = 1 To adSS.Count - 1 entHandle = adSS.Item(i).Handle strEnts = strEnts & vbCr & "

25、;(handent " & Chr(34) & entHandle & Chr(34) & ")" Next i End If axadSS2lspEnts = strEntsEnd Function 调用GetPtIntersect函数，获得直线方程系数。GetPtIntersectKP = GetPtIntersect(a1, b1, c1, a2, b2, c2)6.4菜单按钮制作在AutoCAD软件的命令行输入menu命令，载入工字钢生成器菜单按钮制作的acad.mnu文件之后，在菜单处生成【工字钢生成器】按钮。其生成器按钮

26、的程序如下：*POP12*工字钢生成器ID_Mymenu &工字钢生成器ID_AddIStell &生成器CCP(command "_vbarun" "AddIStell") p运行结果如图6-1所示：参考文献：1 陈猛，刘保嘉. AutoCAD二次开发技术与实例  .现代计算机.2000年2 原恩桃，李文斌.基于AutoCAD机械设计标准件库的建立. 山西机械. 2003年3 孔祥丰等.AutoCAD VBA从入门到精通M.电子工业出版社.2001年4 张帆等.AutoCAD 2002/2000 VBA二次开发教程M.清华大学出版社.2006年5 符纯华，杨长牛.李建明机械工程图模板的AutoCAD二次开发.四川轻化工学院学报.2003年6 赵海峰.基于VBA的AutoCAD机械设计.中国农村小康科技.2005年7 王玉琨等编著.CAD二次开发技术及其工程应用.清华大学出版.2008年8 吴涛.建筑CAD二次开发技术.电子工业出版社.2