vb对cad二次开发在软横跨编程及出图的应用

《vb对cad二次开发在软横跨编程及出图的应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB对CAD二次开发在软横跨编程及出图的应用罗林生（中铁建电气化局南方公司接触网分公司湖北武汉４３００００）摘要：接触网作为电气化铁路的重要组成部分，接触网为电力机车提供电能保障，对于弓网的正常受流起到决定性的作用。软件开发以ＶＢ６．０开发工具为基础，同时连接Ａｃｃｅｓｓ数据库、ＡｕｔｏＣＡＤ各种版本以及Ｅｘｃｅｌ来共同完成软横跨的编程、计算、出图、报表导出以及后期对数据库中软横跨零件的维护，使该软件能够满足不同设计单位设计的软横跨结构形式及不同生产厂家生产的软横跨零部件，保证计算软件的通用性。.jyqkand1_Click()’首先引用aca

2、d2009ObjectLibrary类型库(或者其他版本的类型库)DimmyAcadAppAsAutoCAD.AcadApplication,activeDocAsAutoCAD.AcadDocument,acMSAsAutoCAD.AcadModelSpaceOnErrorResumeNextSetmyAcadApp=GetObject(,"Autocad.Application")’检查AutoCAD是否已经打开IfErr<>0Then’没有打开Err.ClearSetmyAcadApp=CreateObject("Autoca

3、d.Application")’打开CADIfErrThenMsgBoxErr.Number":"Err.Description’打开失败ExitSubEndIfEndIf相信对CAD二次开发的程序员来说很不陌生，在初学时，就会发现一个很大的问题，当把程序开发好了，打包到其他电脑上运行，就会发现如若其他电脑里的CAD的版本与所开发电脑的版本不同，那么编写的软件就无法调用其它的CAD也不可能别人用你的软件就要别人去安装那个版本的CAD，而本身CAD就安装很费时，因此要对程序改进，如下:PrivateSubmand1_Click()’不引用CAD的

4、类型库DimmyAcadAppAsObject,activeDocAsObject,acMSAsObject‘注意这里修改的地方，网上几乎很难找得到。OnErrorResumeNextSetmyAcadApp=GetObject(,"Autocad.Application")’检查AutoCAD是否已经打开。IfErr<>0Then’没有打开Err.ClearSetmyAcadApp=CreateObject("Autocad.Application")’打开CADIfErrThenMsgBoxErr.Number":"Err.De

5、scription’打开失败。ExitSubEndIfEndIf这样稍微改编后，就能调用各种版本的AutoCAD，不至于在直接引用特定AutoCAD版本库而引起其他版本的AutoCAD无法调用。下面来介绍下画图情况:在VB编译器里form1里添加输入框控件以及按钮。1.5调用数据库在很多软横跨预制或者计算出图软件上，很多都没有引用数据库，只是单纯的使用静态文本来做软件。在软件开发过程中，确实很省事，但是在维护上是非常困难的。举个例子:假如现在开发一个静态的软横跨计算软件，也许现在对这个项目的软横跨很实用，但是到了下一个项目，如果软横跨用的零件变

6、了，岂不是又得重里面修改程序，这就弄得很不和谐，那下下一个项目呢？难道总是要修改程序？因此，学会使用数据库是有效解决这个弊端，目前主流的大型数据库有Oracle、Sybase、DB2、SQLserver，小型数据库有：Access、MySQL、BD2等。开发程序时可以根据程序将要面对数据的大小还确定使用什么样的数据库，当然，开发软横跨计算软件不需要那么大的数据库，采用微软办公软件自带的Access和MySQL就足够了，本文就以微软办公软件自带的Access举例。在编程上，很多使用者喜欢引用ADOAC控件来调用数据，这样似乎很方便，但是有一点在打

7、包软件后，很容易因为没有对那控件进行注册，而导致软件出错。这里建议大家不要引用。在VB6.0里编程，加入MSHFlexGrid控件，增加“增、删、改、查”四个按钮，写入代码如下:DimstrSql2$Dimrs2AsNe支柱类型"Setrs2=Nexc_zh.MSHFlexGrid2.ColSHFlexGrid2.ColSHFlexGrid2.ColSHFlexGrid2.ColSHFlexGrid2.ColSHFlexGrid2.ColWidth(3)=1000当然，如果数据库仅限这样，就没有体现它的优势。因此还要对其进行增删改查，这样就显得

8、软件非常灵活。１．６软横跨编程软件生成模型效果举例软横跨编程软件是专门预制软横跨的比较专业的软件，不仅能计算，出图，导出报表，关键还采用了很多新的技术