1、如何在 VB 中连接 AutoCAD。 启动 VB ，引用 AutoCAD 类型库。操作步骤：从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择 AutoCAD 类型库，然后单击“确定”。 定义模块级变量 AutoCAD 应用程序 (acadApp) 和当前的文档 (acadDoc)。 如 果 AutoCAD 正 在 运 行 ， 使 用 GetObject 函 数 将 检索 AutoCAD Application 对象。如果 AutoCAD 没有运行，使用 CreateObject 函数试图创建一个 AutoCAD Application 对象。如果创建成功，会启动 AutoCAD；如果失败，则会发生错误。 同 时 运 行 多 个 AutoCAD 任 务 时 ， GetObject 函 数 会 返回 Windows 运行对象表中的第一个 AutoCAD 实例。 要 显 示 AutoCAD 图形 窗口 ，需 要将 AutoCAD 应 用程 序的 Visible 特性设置为 TRUE。 使用 acadDoc 变量引用当前的 AutoCAD 图形。 示例： Dim acadApp As AcadApplication Dim acadDoc as AcadDocument Sub ConnectToAcad() On Error Resume Next Set acadApp = GetObject(, "AutoCAD.Application") If Err Then Err.Clear Set acadApp = CreateObject("AutoCAD.Application") If Err Then End End If acadApp.Visible = True Set acadDoc = acadApp.ActiveDocument End Sub 2、如何使 VB 开发的程序不依赖于 AutoCAD 的版本。 启动 VB ，定义模块级变量 AutoCAD 应用程序 (acadApp) 和当前的文档 (acadDoc)。 如 果 AutoCAD 正 在 运 行 ， 使 用 GetObject 函 数 将 检索 AutoCAD Application 对象。如果 AutoCAD 没有运行，使用 CreateObject 函数试图创建一个 AutoCAD Application 对象。如果创建成功，会启动 AutoCAD；如果失败，则会发生错误。 同 时 运 行 多 个 AutoCAD 任 务 时 ， GetObject 函 数 会 返回 Windows 运行对象表中的第一个 AutoCAD 实例。 要 显 示 AutoCAD 图形 窗口 ，需 要将 AutoCAD 应 用程 序的 Visible 特性设置为 TRUE。 使用 acadDoc 变量引用当前的 AutoCAD 图形。 示例： Dim acadApp As Object Dim acadDoc as Object Sub ConnectToAcad() On Error Resume Next Set acadApp = GetObject(, "AutoCAD.Application") If Err Then Err.C...
