vb和vba开发cad的知识

《vb和vba开发cad的知识》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB和VBA开发CAD的知识1、如何在VB中连接AutoCAD。启动VB，引用AutoCAD类型库。操作步骤：从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择AutoCAD类型库，然后单击“确定”。定义模块级变量AutoCAD应用程序(acadApp)和当前的文档(acadDoc)。如果AutoCAD正在运行，使用GetObject函数将检索AutoCADApplication对象。如果AutoCAD没有运行，使用CreateObject函数试图创建一个AutoCADApplication对象。如果创建成功，会启动AutoCAD；如果失败，则会发生错误。同

2、时运行多个AutoCAD任务时，GetObject函数会返回Windows运行对象表中的第一个AutoCAD实例。要显示AutoCAD图形窗口，需要将AutoCAD应用程序的Visible特性设置为TRUE。使用acadDoc变量引用当前的AutoCAD图形。示例：DimacadAppAsAcadApplicationDimacadDocasAcadDocumentSubConnectToAcad()OnErrorResumeNextSetacadApp=GetObject(,"AutoCAD.Application")IfErrThenErr.ClearSetacadApp=Crea

3、teObject("AutoCAD.Application")IfErrThenEndEndIfacadApp.Visible=TrueSetacadDoc=acadApp.ActiveDocumentEndSub2、如何使VB开发的程序不依赖于AutoCAD的版本。启动VB，定义模块级变量AutoCAD应用程序(acadApp)和当前的文档(acadDoc)。如果AutoCAD正在运行，使用GetObject函数将检索AutoCADApplication对象。如果AutoCAD没有运行，使用CreateObject函数试图创建一个AutoCADApplication对象。如果创建成功

4、，会启动AutoCAD；如果失败，则会发生错误。同时运行多个AutoCAD任务时，GetObject函数会返回Windows运行对象表中的第一个AutoCAD实例。要显示AutoCAD图形窗口，需要将AutoCAD应用程序的Visible特性设置为TRUE。使用acadDoc变量引用当前的AutoCAD图形。示例：DimacadAppAsObjectDimacadDocasObjectSubConnectToAcad()OnErrorResumeNextSetacadApp=GetObject(,"AutoCAD.Application")IfErrThenErr.ClearSetac

5、adApp=CreateObject("AutoCAD.Application")IfErrThenEndEndIfacadApp.Visible=TrueSetacadDoc=acadApp.ActiveDocumentEndSub与第一个问题相比较，可以看出，不引用具体的类型库以及使用通用的对象类型就可以达到通用性。3、前期绑定和后期绑定要创建一个使用前期绑定方式的对象变量，也就是说，在程序编译时就完成绑定，则对象变量在声明时应指定类ID，如：DimacadAppAsAcadApplication。使用AsObject子句声明对象变量，可以创建一个能包含任何类型对象引用的变量。不过

6、，该变量访问对象是后期绑定的，也就是说，绑定在程序运行时才进行，如：DimacadAppAsObject。前期绑定的变量引用可以提供更好的性能，但该变量只能存放声明中所指定的类的引用。而后期绑定的变量引用可以提供更好的通用性。4、依赖于版本和独立于版本如果CreateObject或GetObject函数使用的ProgID没有附加版本号，那么是独立于版本的，否则是依赖于版本的。例如，如果使用的是CreateObject，则CreateObject("AutoCAD.Application")是独立于版本的，而CreateObject("AutoCAD.Application.15")是依

7、赖于版本的。5、VB代码到VBA代码的转换在VBA的IDE环境中，使用“导入文件”将要转换的VB工程的模块、类模块以及窗体文件一一导入。接着将VB代码中所有的当前的文档(acadDoc)变量替换为ThisDrawing，而AutoCAD应用程序(acadApp)变量替换为Application。同时删除定义的AutoCAD应用程序(acadApp)和当前的文档(acadDoc)变量，删除与AutoCAD应用程序连接的代码。注意：要转换VB代码的