社区 › VB › Excel调用CAD时无法完成

beijiao 发表于 2007-10-15 19:10:00

Excel调用CAD时无法完成

Excel调用CAD时无法完成，总是没有反应。
Dim acadApp As .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

黄玉宏 发表于 2007-10-15 20:29:00

'先引用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 发表于 2007-10-15 21:29:00

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

xinghesnak 发表于 2007-10-16 10:04:00

修复CAD试试吧

beijiao 发表于 2007-10-16 10:27:00

用VB调用CAD没有问题，可用excel里的VBA调用时就不行。我用的是AutoCAD2006
各位大师快来帮帮忙

beijiao 发表于 2007-10-19 21:56:00

很着急，请大家帮帮忙，

beijiao 发表于 2007-11-13 20:55:00

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

兰州人 发表于 2007-11-15 21:16:00

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

查看完整版本: Excel调用CAD时无法完成