CAD系统中VB界面与AUTOCAD的连接.doc

CAD系统中VB界面与AUTOCAD的连接王蕾田爱华赖志昌摘要 本文介绍了如何利用VB语言及AUTOCAD软件来制定冲裁模CAD系统中的界面，提出了VB界面与AUTOCAD及ADS程序之间接口问题的解决方法。关键词 冲裁模CAD； VB界面； 接口中图分类号 TH122The Connection between AUTOCAD and VB Interface in CAD SystemWang Lei; Tian Aihua; Lai ZhichangABSTRACT The paper described how the interfaces are to be designed and prepared through applying VB Language and AUTOCAD software for mould-punching in CAD system. Furthermore, it proposed the method of the solution to the mouthpiece problem arisen from VB interfacing with AUTOCAD and ADS program as well.Key words: mould-punching CAD; VB interface; mouthpiece1引言冲裁模CAD系统的设计与机械类其它专业CAD设计一样，经历了从DOS到WINDOWS，从BASIC、FORTARN的数值计算到由C语言、VB、VC等语言形成的可视化设计的飞跃。冲裁模CAD设计在50年代就开始初步研制，直到现在为止，在许多国家它已得到广泛的应用和发展。但我国由于起步晚、基础差，同时还受到财力和物力等诸多方面的影响，迄今为止，多数CAD/CAM系统还处于试用阶段，尚未在实际生产中推广应用。这一现状极大地阻碍了我国模具CAD/CAM的进一步发展，更重要的是无法发挥其优越性。因此，CAD系统的实用化已成为亟待解决的问题。作为一个很好的实用开发软件，不仅要能够完全实现所要求的功能，还要具备一个方便可靠的使用界面，冲裁模CAD软件正是基于这个原则来进行开发设计的。在这方面，许多高校和研究所都进行了不懈地研究和努力，大家都在寻求一种有效的办法，希望既能得到一个较好的窗口，又能在核心程序之外的界面及其连接上，不花费大量的时间和精力，而用VB语言来制作界面则正是一种有效的办法。但程序间接口这个问题，又始终使设计者感到很棘手。作者在这方面做了一些有益的尝试，总结了一些经验，现在将它写下来，和大家共同探讨。2VB简介WINDOWS的功能和风格对使用者来说是十分便利和友好的，但对于程序设计者来说，则需要付出巨大的代价。VB出现以前，写一个全功能的WINDOWS程序是十分艰辛的。幸运的是，VB把程序员从复杂劳动中解脱出来了。VB是一个高效率的应用开发工具，它提供了相当多的控件，能够完成类似于WINDOWS下各种用户输入输出界面的开发，而且VB是一种面向对象的高级语言，与传统的面向过程的高级语言相比，在编制中、大规模的应用软件方面具有极大的优越性。此外，它还具有极大的数据处理功能，它支持目前流行的众多数据库管理系统：如ORACKE、DBASE系统、FOX系列等，使我们能够处理各种类型的工程数据库。3WINDOWS应用程序间的匹配作者在实践中发现，由于WINDOWS应用程序微处理器有16位和32位之分，所以它的应用程序之间存在匹配协调的问题。冲模CAD中的图形处理部分如果采用的是AUTOCAD12.0版本，那么VB则要用4.0以下版本，相应平台要用WINDOWS；如果采用的是AUTOCAD13.0及其以上版本，那么VB要用5.0版本，相应平台要用WIN95.否则，系统将出现死机，甚至崩溃。4相关接口问题实例冲裁模CAD系统选用VB语言来编写程序外围的界面部分，用AUTOCAD来编制程序核心的图形部分，DDE是VB应用程序和AUTOCAD通信的唯一方法。如果要在VB编制的界面中(该界面的窗体名为AdsFuncFrm)访问AUTOCAD，那么需要在VB界面中形成一个文本框，名字为AcadText，作为特定的通道，用来完成VB和AUTOCAD之间的连接。它可以通过一个公用函数LinkApp()来实现，定义如下：Sub LinkApp(Link As Control,Appname As String, Topic As String)Link.LinkMode=0Link.LinkTopic=Appname+TopicLink.LinkMode=2End Sub该函数要放置在VB程序的公用函数区，其中的形参分别为用作通道的文本框控件、服务者的应用程序和对话主题。现在我们要通过这个公用函数来实现在AUTOCAD下的自动建层以及定义颜色，首先在上述VB界面上再建一个按钮，名字为Layer,则它的鼠标单击程序为：Private Sub LayerClick()AppActivateAutoCADSendKeysopenEnterLinkApp AdsFuncFrm.AcadText,AutoCAD.DDE,SystemAdsFuncFrm.AcadText.LinkExecuteLayer M center AdsFuncFrm.AcadText.LinkExecuteLayer C red L centerEnd Sub该段程序首先激活WINDOWS平台上的AUTOCAD应用程序，使之变为活动焦点，并打开其程序进入AUTOCAD，然后通过调用LinkApp公用函数，利用AcadText通道依次自动完成创建中心线层及其颜色和线型。其中，LinkExexute方法是VB文本框控件的重要属性，只要熟悉VB语言，则对其不难理解和应用。上述采用DDE通道来实现AUTOCAD中各绘图命令，既简单又方便。它会使CAD设计者及爱好者籍此灵活使用，完成更多的实用程序。下面介绍一个重要的应用，它可以利用VB语言形成的按钮，调用AUTOCAD中的ADS程序：我们在以上VB界面中创建一个绘制圆凸模的按钮，名字为YuanTuMu，其鼠标单击程序如下：Private Sub YuanTuMuClick()AppActivateAutoCADSendKeys(xloadc:wlbcwyuantumu.exe )ENTERSendKeysHuiTuENTEREnd Sub该段程序向已经被激活的AUTOCAD中发送一个命令，用来装载圆凸模的ADS执行程序yuantumu.exe，再发送ADS程序中内部命令HuiTu，完成圆凸模绘制工作。其中SendKeys的功能是向屏幕活动窗口发送命令，这里是向AUTOCAD命令行发送加载ADS程序命令，基本上是原样输入，但一些特殊符号，例如单括号、回车键等需用大括号括入，双引号也需再引一次，才能有效地输出单对双引号。读者可以将此方法运用到其他的命令传送上，也可以用来解决各种执行程序的装载等诸多问题。5结束语在冲载模CAD系统中，成功地实现了VB界面对AUTOCAD的控制，较好地解决了VB界面与AUTOCAD连接的问题。它适用于机械各专业的CAD设计，也可以推广到其它专业的CAD设计，既简便，又实用。作者简介：王蕾 女，1971年生，助教，硕士