基于 auto cad vba 的工程制图试题库程序设计

《基于 auto cad vba 的工程制图试题库程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第9卷摇第7期软件导刊Vol.9No.72010年7月SoftwareGuideJul.2010基于AutoCADVBA的工程制图试题库程序设计郭莹渊陕西理工学院机械工程学院袁陕西汉中723003冤摘要院运用AutoCAD内嵌的面向对象的VBA语言设计了工程制图试题库模块程序袁实现了试卷的自动组卷和互动组卷功能遥设计的试题库系统组题速度快袁修改方便袁具备良好的互动性和扩展性,并能严格保证试卷的图形标准化要求遥关键词院VBA曰试题库曰程序设计中图分类号院TP311.52文献标识码院A文章编号院1672-7800渊2010冤园7原园员缘怨原园

2、猿在任何一个AutoCAD图形文件中加载运行该工程遥园引言1.3设计窗体窗体是构成AutoCADVBA工程的基本模块,即为应用程随着计算机技术的不断发展与普及袁应用计算机技术开发序创建的可视化界面遥根据设计的试题库管理系统流程图袁设能客观地尧公平地考察教学质量的课程试题库势在必然遥叶工程计如图2和图3所示的欢迎进入试题库的窗体和生成试卷的制图曳课程的特点是野图冶袁叶工程制图曳课的试题当然也是以主窗体遥野图冶为主袁而且图形还必须严格按照国家机械制图的标准规定绘制遥因而选择一个合适的绘图软件做平台来设计叶工程制图曳试题库尤为关键遥AutoCA

3、D是功能强大尧应用较广的绘图软件遥AutoCADVBA是嵌入到AutoCAD环境中的VB子集袁承袭了VB的所有语法规则袁具有面向对象的编程方式尧模块化的设计方法尧可视化界面尧易于编程调试的特点袁且有着比AutoLisp代码快得多的执行速度遥因此在AutoCAD环境下开发工程制图试题库系统,使用VBA要较AutoLisp和其它语言更方便简捷遥图2进入试题库的窗体界面图猿生成试卷的窗体界面1试题库总体设计圆设计VBA程序实现工程制图试卷的生成1.1设计试题库管理系统流程为了组卷的方便性和灵活性袁组卷方式设计成自动组卷和生成试卷的主要设计思想是

4、院通过野生成卷面冶首先将试卷交互组卷两种遥其管理系统的流程图如图1遥卷面插入到当前CAD文件袁使用野自动选题冶将以图形文件保存在某路径下的试题随机地插入到试卷卷面相应的位置来实现自动组卷曰通过野互动选题冶选中列表框中的试题并将选中试题插入到试卷卷面相应的位置来实现互动组卷遥圆.1标准模块代码设计通过标准模块可以完成特定功能袁是在应用程序内可以被其它模块访问的过程遥创建野GetFileName冶子过程袁功能是院使用列表框的AddItem方法袁将野.dwg冶为后缀的文件渊试题名冤添加到列表框图1试题库管理系统流程图中遥它是实现自动选题和互动选

5、题功能的基础遥其代码如下院1.2工程的创建PublicSubGetFileName(pathAsString,ListAsListBox)首先创建一个VBA工程袁并以独立的文件保存遥我们可以作者简介院郭莹渊1966-冤袁女袁陕西汉中人袁陕西理工学院副教授袁研究方向为工程制图及CAD教学与研究遥窑160窑软件导刊2010年'ListBox野.dwg冶的图形文件存放在一定的路径下袁所以可以通过使用DimiAsInteger袁DirpAsString袁strAsStringVBA中的InsertBlock方法来实现试题的插入功能遥代码如下院Di

6、rp=Dir渊path&野.dwg冶)PublicSubInsertB渊TnameAsString袁pathAsString冤i=0OnErrorResumeNextDoWhileDirp<>""DimErrStrAsStringList.AddItem袁iDimNameF渊1To8冤AsStringstr=Mid$(Dirp,InStrRev渊Dirp袁""冤+1冤DimiAsIntegerList.List渊i冤=strFori=1To8i=i+1NameF渊i冤=Getdata渊Tname冤Dirp=Dir渊冤NextiLoopN

7、ameF渊8冤=TnameEndSubThisDrawing.Application.ZoomExtents"GetFileName"'插入试题子过程可以被其他应用程序调用袁调用方法如下院DimStrpathAsString,Insertp渊0To2冤AsDouble袁BLAsCall子过程名咱渊参数列表冤暂AcadBlockReference下面这段代码是对子程序野GetFileName冶的调用袁目的是IfNameF渊1冤<>""Then将野非机械类试题库点袁直线袁面冶等路径下的野.dwg冶文件添Insertp渊0冤=56院Inse

8、rtp渊1冤=42加到LB1尧LB2等列表框中遥Strpath=path&"机械制图试题库点袁直线袁面"&NameFPrivateSubCommandIni_Click渊冤渊1冤Dimst