如何在ExcelVBA调用CAD2007画图并显示？

我这里提供一个函数，是连接获取cad（2004版，其他差不多）PrivateFunctionConnectToCAD2004()AsBoolean'连接AUTOCAD2004OnErrorResumeNextSetacadApp=GetObject(,"autocad.application.16")IfErrThenErr.ClearSetacadApp=CreateObject("autocad.application.16")IfErrThenConnectToCAD2004=FalseMsgBox"连接AutoCAD2004没有成功!"&vbNewLine&"请确认安装的版本。或手动打开AutoCAD2004，然后点击连接按钮。"_&vbNewLine&vbNewLine&Err.Description,vbInformation,AppNameExitFunctionEndIfEndIfOnErrorGoTo0'获取AutoCAD2004当前文档OnErrorResumeNextSetacadDoc=acadApp.ActiveDocumentIfErr.number<;0ThenConnectToCAD2004=FalseMsgBox"AutoCAD2004中没有活动的文档。"_&"请激活一个文档或新建一个文档。",vbInformation,AppNameErr.ClearExitFunctionEndIfConnectToCAD2004=TrueacadApp.Visible=TrueEndFunction需要全局变量或者模块及变量：PublicConstAppName="----------------"PublicacadAppAsAcadApplicationPublicacadDocAsAcadDocument每次执行画图之前：调用函数即可：'连接CAD2004IfConnectToCAD2004=FalseThenExitSubEndIf