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.Name “ version acadApp.Version End Sub,编写代码调用AutoCADVB调用AutoCAD,同时运行多个 AutoCAD 任务时，GetObject 函数会返回 Windows 运行对象表中的第一个 AutoCAD 实例。关于验证 GetObject 返回任务的详细信息，请参见 Microsoft Visual Basic 文档中关于对象运行表 ROT 和 GetObject 函数的部分。 要显示 AutoCAD 图形窗口，需要将 AutoCAD 应用程序的 Visible 特性设置为 TRUE,将 VBA 代码转换为 VB,将文档变量设置为 AutoCAD 应用程序中的 Document 对象。Document 对象由 Application 对象的 ActiveDocument 特性返回。 例如 Dim acadDoc as AcadDocument Set acadDoc acadApp.ActiveDocument 从现在开始，使用 acadDoc 变量引用当前的 AutoCAD 图形。,将 VBA 代码转换为 VB,如果 GetObject 创建了一个新的 AutoCAD 实例(即调用 GetObject 时 AutoCAD没有运行),没有将 Visible 设置为 TRUE 会导致 AutoCAD 应用程序不可见,甚至AutoCAD 不显示在 Windows 任务栏上。 注意 使用依赖于版本的 ProgID。如果 CreateObject 或 GetObject 函数使用的是独立于版本的 ProgID，则将函数更改为使用依赖于版本的 ProgID。例如，如果使用的是 CreateObject，请将 CreateObject AutoCAD.Application 替换为 CreateObject AutoCAD.Application.16。,注意 AutoCAD 2004 的 COM (components object model)应用程序访问的注册表项为 AutoCAD.Application.16,注意事项,例题1,Private Sub Command2_Click This example creates a circle in model space. Dim circleObj As AcadCircle Dim centerPoint0 To 2 As Double Dim radius As Double Define the circle centerPoint0 100 centerPoint1 100 centerPoint2 0 radius 100 Create the Circle object in model space Set circleObj acadDoc.ModelSpace.AddCirclecenterPoint, radius acadApp.Visible True ZoomExtents End Sub,在AutoCAD上画圆将 VBA 代码转换为 VB,将代码样例中所有的 ThisDrawing 引用替换为引用活动文档的用户指定的变量。要完成这项操作，请为 AutoCAD 应用程序 acadApp 和当前的文档 acadDoc 定义变量。然后，将应用程序变量设置为当前的 AutoCAD 应用程序。,VBA 与 VB 比较代码样例,使用 VBA 创建直线 Sub Ch2_AddLineVBA 本例在模型空间中添加一条直线 定义直线的起点和端点 Dim lineObj As AcadLine Dim startPoint0 To 2 As Double Dim endPoint0 To 2 As Double startPoint0 1 startPoint1 1 startPoint2 0 endPoint0 5 endPoint1 5 endPoint2 0 在模型空间中创建直线 Set lineObj ThisDrawing. ModelSpace.AddLine startPoint, endPoint 放大新创建的直线 ZoomAll End Sub,VBA 与 VB 比较代码样例VBA 与 VB 比较代码样例VBA 与 VB 比较代码样例,使用 VB 创建直线 Sub Ch2_AddLineVB 连接至 AutoCAD 应用程序 略 Dim acadDoc As AcadDocument Set acadDoc acadApp.ActiveDocument 创建直线的端点 Dim lineObj As AcadLine Dim startPoint0 To 2 As Double Dim endPoint0 To 2 As Double startPoint0 1 startPoint1 1 startPoint2 0 endPoint0 5 endPoint1 5 endPoint2 0 在模型空间中创建 Line 对象 Set lineObj acadDoc.ModelSpace.AddLine startPoint, endPoint ZoomAll acadApp.visible True End Sub,VBA 与 VB 比较代码样例VBA 与 VB 比较代码样例