基于VB的AutoCAD之菜单、工具条生成器的二次开发

《基于VB的AutoCAD之菜单、工具条生成器的二次开发》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、万方数据第26卷第1期2009年1月计算机应用与软件ComputerApplicationsandSoftwareV01．26No．1Jan．2009基于VB的AutoCAD之菜单、工具条生成器的二次开发于化龙张大彪(河北师范大学河北石家庄050016)j摘要运用AutoCAD的用户不同，对其菜单、工具条的需求也各异。然而，岩不同用户均根据自身需求进行编程开发。则费时又费力。提出运用VB技术，设计、开发出了通用的AutoCAD菜单、工具条生成器的组件，用户可在使用AutoCAD时运用该组件，不需要任何编程即可方便、快捷地生成所需的AutoCAD

2、菜单和工具条。从而解决了AutoCAD用户对菜单和工具条等重复的二次开发问题。关键词VBAutoCAD菜单工具条生成器SECoNDARYDEVELopMENTOFTooLBARGENERAToRANDMENUoFAUToCADBASEDoNVBYuHualongZhangDabiao(HebeiNormalUniversity。Shijiazhuang050016，Hebei，China)AbstractDifferentusersofAutoCADneeddifferentkindofmenuandtoolbat．However，ifever

3、yuserconductsprogram·writingaccord-ingtohis／herownneeds，itmustbetime-consumingandwasteofefforts．ThisarticleintroduceshowtouseVBtechnologytodesignandde。velopthecomponentsofuniversalAutoCADmenuandtoolbargenerator．WhileusingAutoCAD，theusercanutilizethesecomponentstode-velopther

4、equiredAutoCADmenuandtoolbarconvenientlyandquicklywithoutanyprogram·wrMng．Thereforetheproblem—ofrepeatedde-velopmentofmenuandtoolbarfortheusersofAutoCADisresolvedKeywordsVBAutoCADMenuToolbarGenerator0引言AutoCAD的强大图形处理功能，使其成为当今最为流行的计算机辅助绘图软件，针对AutoCAD的二次开发，拓展其功能也成为研究的热点问题。在Aut

5、oLISP、ADS、ARX、VisualLISP和VisualBasic等诸多语言中，VB支持DDE功能和ActiveX技术，成为AutoCAD二次开发的较好工具¨-3]。AutoCAD的用户都知道，我们往往根据专业特点把自己常用的任务、绘图操作以菜单或工具条形式显示出来，形成自己的绘图环境，提高效率。然而每位用户都要针对自己的需要编写程序，生成所需的菜单或工具条，这就造成了大量重复的二次开发工作，设计、开发通用的AutoCAD的“菜单生成器”、“工具条生成器”是解决此问题的较佳途径。lVB管理AutoCAD菜单、工具条的基本原理运用VB进行A

6、utoCAD开发时，是通过访问AutoCADAcadApplication对象来完成的。AutoCADAcadApplication对象提供了与菜单相关的菜单条(MenuBar)集和菜单组(Menu．Group)集(结构如图l所示)，VB可通过它们进行添加、删除、重排AutoCAD菜单条(项)等操作Hjo。根据此原理。我们先完成如图2所示的菜单并在AutoCAD每次启动时自动加载。图l霉’“’’外接程序。，她：菜单生成器工具条生成器圈21．1访问AutoCAD对象说明启动VB创建模块，引用AutoCAD对象库，定义AutoCAD对象变量，创建A

7、utoCAD对象变量。这些是VB对AutoCAD二收稿日期：2007—06—13。河北省自然科学基金项目(砣005000185)。于化龙，副教授，主研领域：计算机网络，数据库。万方数据第1期于化龙等：基于VB的AutoCAD之菜单、工具条生成器的二次开发103次开发的基础，在许多文章、书中均有阐述，在此不多讨论(程序略)。1．2创建外接程序菜单用VB创建AutoCAD菜单，可通过以下三步完成。①用Add方法创新菜单名并加入到AutoCAD菜单中；②用AddMenu—Item方法为新菜单添加菜单项，用shell命令指定菜单项执行的程序；③用Ins

8、ertMenuInMenubar或InsertInMenubar方法将新菜单插入菜单条并显示。简单程序如下：Submain()Callautoead’