用EXCEL控制cad的问题

shirazbj

谢谢5楼xinghesnak的程序。

我的问题是在excel下如何判断acad已经运行？

xinghesnak

哦,就用这个吧

dim acad as object

on error resume next

set acad=getobject(,"acad.application")

if err then set acad=createobject("acad.application")

on error goto 0

如果err有错误值就证明没运行acad,如果没有err,证明acad已经运行了..