基于VBA的标准件参数化设计系统开发.pdf

《基于VBA的标准件参数化设计系统开发.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、制造业信息化·机械研究与应用·基于VBA的标准件参数化设计系统开发芦新春(淮海工学院机械工程学院，江苏连云港222005)摘要：构建了标准件参数化设计系统的基本框架结构，介绍了利用VBA进行标准件库开发的方法，基于AutoCAD平台完成了标准件参数化设计系统的开发，实现了标准件参数化绘图，提高了绘图速度。’关键词：标准件库；VBA；VB；AutoCAD中图分类号：TV391．7文献标识码：A文章编号：1006-4414(2011)o4一ol47—02Developmentofparametricstand

2、ardpartsbasedonVBALuXin—chun(DepartmentofmechanicalHuaihaii~thuteoftechnology，LianyungangJiangsu222005，China)Abstract：Thebasicstructuralframeworkofstandardpansdatabaseisconstructed．ThewayondevelopmentofstandardpartsdatabasebyVBAisintroduced．Standardpartsd

3、atabaseiscompletedunderAutoCADplatform，whichcouldachieveparamet-ricdrawingandgreatlyimprovegraphicsspeed．Keyword：standardpartsdatabase；VBA；VB；AutoCAD1引言库的框架结构如图1所示。AutoCAD是目前广泛应用的计算机辅助绘图软件，具有强大的图形绘制与编辑功能，但AutoCAD所提供的只是通用的计算机绘图功能。在机械设计领域有很多标准件，其应用广泛，结构形式和尺

4、寸均已标准化⋯，如果每次使用都重新绘制是非常繁琐和低效的。因此利用AutoCAD内置的VBA开发工具开发出了一套机械标准件的参数化绘图模块。设计人员只要选择所需类型和参数，该模块就能自动绘制图1系统总体框架结构出所需的图形，大大提高了绘图效率。2开发语言简介系统主要由用户交互界面、数据管理模块和参数VBA(MicrosoftVisualBasicforApplications)化绘图模块组成。主要功能如下：是一个面向对象的编程环境，由于VisualBasic编程(1)数据管理模块数据库由Access数据库

5、建环境易学易用，VBA在AutoCAD进程中运行程序的立，可存放标准件的结构参数和其它信息，并可通过速度相对较快以及VBA也支持ActiveX技术等特点，用户界面对数据库中的数据进行查询、修改、添加和使得VBA成为二次开发AutoCAD最简单、最实用的删除。方法。VBA具有如下优点：①VBA的对话框构件快(2)参数化绘图模块主要包括螺纹紧固件、速、高效，允许开发者快速定制程序原型并可及时得键、销、滚动轴承等多个子系统，分别完成螺纹紧固到设计信息的反馈；②其工程可单独存在，也可嵌人件、键、销、滚动轴承等标准

6、件的参数化绘图。在图形中这给开发者在发行应用程序时以极大的灵3．2关键技术活性；③强化了AutoCAD与数据库的通讯能力。3．2．1数据库的建立和管理3系统总体设计与关键技术标准件涉及到大量的数据，建立良好的数据库十3．1系统总体设计分重要，可为后序设计带来方便。MicrosoftAccess是标准件库的建库原则是让用户能够以交互的方一种功能强大简单易用的数据库管理系统，VBA应式，利用标准件数据库查询所需的相关参数，快速地用程序可以通过数据访问对象(DAO)访问Access数进行标准件的绘制。根据这种要

7、求，建立机械标准件据库，并可实现复杂的数据库操作事务。因此本系统收稿日期：201l—o5—16作者简介：芦新春(1980一)，女，江苏连云港人，讲师，研究方向：现代设计理论与技术。·l47·制造业信息化·机械研究与应用·中基于Access建立标准件数据库，如滚动轴承数据Setobjlayer(1)=ThisDrawing．Layers．Add(”库中存放了机械设计手册中有关滚动轴承的各种数粗实线”)据表，并按滚动轴承分类；生成的各表均具有独立的objlayer(1)．color=acWhite名称；通过访

8、问各表中的不同记录获得不同的设计参objlayer(1)．Lineweight=acLnWt070数，以便参数化绘图使用。同时利用VB建立对数据EndIf库的管理，实现数据的添加、删除等操作。基本流程Setobjlayer(2)=ThisDrawing．Layers．Item(”中如图2所示。心线”)I数据库管理lIfErrThentSetobjlayer(2)=ThisDrawing．Layers．Add(”I连接数据源l●