关VB与CAD的问题呀

gszly6009

如何用VB程序结束CAD的进程呢？

topirol

Set acadapp=nothing

efan2000

Set acadapp=nothing，并不能结束进程，它只是释放了引用的对象。
如果引用了ACAD的Application对象，那么可以使用Quit来退出ACAD。
而如果没有引用，则必须使用API函数TerminateProcess来中断运行的程序。

gszly6009

当我用以下程序时出现类型不匹配错误
Set acadApp = GetObject(, "AutoCAD.Application")
当我用On Error Resume Next 跳过错误时用Set acadApp = Nothing后，CAD进程仍然没有结束.
以上目的是我想得到AtuoCAD的路径！请各位朋友帮忙，谢谢啦！！！
本人用的是AutoCAD14版本

efan2000

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
既然跳过错误，那么acadApp就为空，也就是没有引用AtuoCAD，那么Set acadApp = Nothing还有什么意义。
如果出现类型不匹配，应该是你安装了多个版本的AtuoCAD造成的冲突。
Set acadApp = GetObject(, "AutoCAD.Application.14")，用它试试。

gszly6009

还是不行呀，请帮帮忙呀，我只是想用VB程序得到ACAD应用程序的路径就可以了呀！
另外：如何用VB程序写一个PLT文件呢？请帮帮忙，谢谢啦！