Excel调用CAD时无法完成

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

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