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

Excel调用CAD时无法完成

<p>Excel调用CAD时无法完成，总是没有反应。</p><p>Dim acadApp As AutoCAD.AcadApplication<br/>Dim acadDocs As AcadDocuments<br/>Dim acadDoc As AcadDocument<br/>Private Sub CommandButton1_Click()<br/>On Error Resume Next&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; Set acadApp = GetObject(, "AutoCAD.Application")<br/>&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set acadApp = CreateObject("AutoCAD.Application")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox Err.Description<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If<br/>acadApp.Visible = True&nbsp;&nbsp;&nbsp; <br/>acadApp.WindowState = acMax<br/>Set acadDocs = acadApp.Documents<br/>&nbsp;&nbsp;&nbsp; acadDocs.Add<br/>Set acadDoc = acadApp.ActiveDocument<br/>acadDoc.WindowState = acMax</p><p>End Sub</p>

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

<p>'先引用AutoCAD类型库</p><p>Sub bb()<br/>Dim acadApp As AcadApplication<br/>Dim acadDocs As AcadDocuments<br/>Dim acadDoc As AcadDocument<br/>On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Set acadApp = GetObject(, "AutoCAD.Application")<br/>&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set acadApp = CreateObject("AutoCAD.Application")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox Err.Description<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If<br/>acadApp.Visible = True<br/>acadApp.WindowState = acMax<br/>Set acadDocs = acadApp.Documents<br/>&nbsp;&nbsp;&nbsp; acadDocs.Add<br/>Set acadDoc = acadApp.ActiveDocument<br/>acadDoc.WindowState = acMax</p><p>End Sub</p><p></p>

beijiao 发表于 2007-10-15 21:29:00

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

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

<p>修复CAD试试吧</p>

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

[求助]

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

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

<p>很着急，请大家帮帮忙，</p>

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

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

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

一般是AutoCAD调用Excel，而Excel调用AutoCAD有什么实际意义？
页: [1]
查看完整版本: Excel调用CAD时无法完成