Excel调用CAD时无法完成

beijiao

Excel调用CAD时无法完成，总是没有反应。

Dim acadApp As AutoCAD.AcadApplication
Dim acadDocs As AcadDocuments
Dim acadDoc As AcadDocument
Private Sub CommandButton1_Click()
On Error Resume Next    
    Set acadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
acadApp.Visible = True   
acadApp.WindowState = acMax
Set acadDocs = acadApp.Documents
    acadDocs.Add
Set acadDoc = acadApp.ActiveDocument
acadDoc.WindowState = acMax

End Sub

黄玉宏

'先引用AutoCAD类型库

Sub bb()
Dim acadApp As AcadApplication
Dim acadDocs As AcadDocuments
Dim acadDoc As AcadDocument
On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
acadApp.Visible = True
acadApp.WindowState = acMax
Set acadDocs = acadApp.Documents
    acadDocs.Add
Set acadDoc = acadApp.ActiveDocument
acadDoc.WindowState = acMax

End Sub

beijiao

调用了，还是不行，将CreateObject 改为New后可以起动CAD，但如有CAD程序运行时GetObject无法捕捉到

xinghesnak

修复CAD试试吧

beijiao

用VB调用CAD没有问题，可用excel里的VBA调用时就不行。我用的是AutoCAD2006

各位大师快来帮帮忙

beijiao

很着急，请大家帮帮忙，

beijiao

哪位大哥能帮帮呀，今天又试了，用CAD去调用Excel也不行，这是为什么呀，

兰州人

一般是AutoCAD调用Excel，而Excel调用AutoCAD有什么实际意义？