VB 连接AutoCad 模块代码

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

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

Public acadapp As AcadApplication

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

方法2：

Dim acadapp As AcadApplication   '在窗体代码声明段定义acadapp

Private Sub Form_Load()

On Error Resume Next
Set acadapp = GetObject(,"autocad.application")
If Err Then
    Err.Clear
    Set acadapp = CreateObject("autocad.application")
    If Err Then
        MsgBox ("不能运行AutoCad,请检查是否安装了CAD")
        Exit Sub
    End If
End If
acadapp.Visible = True

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!