vb外部调用autocad_VB调用AutoCAD.ppt

VB调用AutoCAD.ppt

VB调用AutoCAD并画图,计算机辅助设计 (此部分内容可参考AutoCAD中的帮助),VB调用AutoCAD,在 VB调用AutoCAD ，必须先引用 AutoCAD 类型库。要在 VB 中完成此操作，请从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择 AutoCAD 类型库，然后单击“确定”。允许您选择另外的应用程序的对象，通过设置对那个应用程序对象库的引用您可以在您的代码中使用它。编写代码调用AutoCAD,Sub Ch2_ConnectToAcad Dim acadApp As AcadApplication On Error Resume Next Set acadApp GetObject, AutoCAD.Application.16 如果 AutoCAD 正在运行，指定 AutoCAD 版本号时，VB GetObject 函数将检索 AutoCAD Application 对象。 If Err Then Err.Clear 如果 AutoCAD 没有运行，发生的错误(本例中)会被捕获然后清除。 Set acadApp CreateObjectAutoCAD.Application.16 If Err Then MsgBox Err.Description CreateObject 函数接着会试图创建一个 AutoCAD Application 对象。如果创建成功，会启动 AutoCAD；如果失败，则会显示一个消息框，说明发生的错误。 Exit Sub End If End If MsgBox Now running acadApp.N