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

内容较多，请阅读原文

写在最后

我用持续不断的坚持

希望换来你

持续不断的成长

、关注、在看与分享

就是对我的肯定与支持

十分感谢

----往日经典重现------

CATIA系列中文课程之基础架构 第一节：http://www.smart3de.com/plugin.php?id=doc:view&d=518

CATIA系列中文课程之草图设计 第二节：http://www.smart3de.com/plugin.php?id=doc:view&d=519

CATIA系列中文课程-第三节：零件设计：http://www.smart3de.com/plugin.php?id=doc:view&d=520

CATIA系列中文课程-第四节：零件设计(2)：http://www.smart3de.com/plugin.php?id=doc:view&d=523

CATIA系列中文课程-第五节：零件设计(3)：http://www.smart3de.com/plugin.php?id=doc:view&d=525

CATIA系列中文课程-第六节：零件设计重用复制、超级复制(6):

http://www.smart3de.com/plugin.php?id=doc:view&d=526

CATIA系列中文课程-第七节：零件设计之参数化运用(7):http://www.smart3de.com/plugin.php?id=doc:view&d=527

CATIA系列中文课程-第八节：装配设计(8):http://www.smart3de.com/plugin.php?id=doc:view&d=529

CATIA系列中文课程-第九节：装配设计之上下文关联设计方法(9)

http://www.smart3de.com/plugin.php?id=doc:view&d=530

CATIA系列中文课程-第十节：工程图设计(10):http://www.smart3de.com/plugin.php?id=doc:view&d=528