VB 连接AutoCad 模块代码

来源：互联网发布：怎么复制淘宝宝贝标题编辑：程序博客网时间：2024/04/27 19:45

<span style="font-family: Arial, Helvetica, sans-serif;"></span>

<span style="font-family: Arial, Helvetica, sans-serif;">Option Explicit</span>

Public acadapp As AcadApplicationPublic Sub 连接autocad()On Error Resume NextSet acadapp = GetObject(, "autocad.applicatior")If Err Then    Err.Clear    Set acadapp = creatobject("autocad.application")    If Err Then        MsgBox ("不能运行AutoCad,请检查是否装了AutoCad")        Exit Sub    End IfEnd Ifacadapp.Visible = TrueEnd Sub

方法2：

Dim acadapp As AcadApplication   '在窗体代码声明段定义acadappPrivate Sub Form_Load()On Error Resume NextSet acadapp = GetObject(, "autocad.application")If Err Then    Err.Clear    Set acadapp = CreateObject("autocad.application")    If Err Then        MsgBox ("不能运行AutoCad,请检查是否安装了CAD")        Exit Sub    End IfEnd Ifacadapp.Visible = TrueEnd Sub

0 0