如何判断cad是否运行？

yjrun

我用setup factory7.0做了一个AutoCAD二次开放的安装程序，现在需要在安装程序运行前判断autocad是否在运行，不知道如何判断。有没有人知道如何做的，请介绍一下。


希望大家能给个思路。

f5612140

判断cad已安装再执行二次开发的安装程序较方便吧,非得搞cad已运行再执行二次开发的安装程序?即使安装了,有时还要先退出cad再进入才能正常操作

meflying

只能让作者在安装程序里面改一下了，

秋枫

这个需要编程实现判断。这就需要你的这个安装程序制作工具支持脚本编程。 可以提供一个思路：通过ActiveX接口判断AutoCAD是否正在运行。只要你的这个安装程序脚本支持这个接口就可以。以Pascal语言为例：

1. function AutoCADRunning: boolean;
2. var AcadApp:Variant;
3. begin
4.    try
5.        AcadApp := GetActiveOleObject('AutoCAD.Application');
6.    except
7.    end;
8.    Result := not VarIsEmpty(AcadApp);
9. end;

复制代码

上述代码来自我提供的那个AutoCAD二次开发通用安装程序中的一部分。 我也可以提供一个使用VB/VBS写的一个例子：

2. '==========================================================================
3. '
4. ' NAME: test AutoCAD running
5. '
6. ' AUTHOR: Qiu Feng
7. ' DATE   : 2004-12-12
8. '
9. ' COMMENT:
10. '
11. '========================================================================== Function AutoCADRunning()
12.    Dim acad
13.    AutoCADRunning = True
14.    On Error Resume Next
15.    Set acad = GetObject(,"AutoCAD.Application")
16.    If Err Then
17.        AutoCADRunning = False
18.    End If
19.    On Error Goto 0   
20. End Function' Main
21. If AutoCADRunning() Then
22.    MsgBox "AutoCAD is Running ..."
23. Else
24.    MsgBox "AutoCAD is not running..."
25. end If

'========================================================================== ' ' NAME: test AutoCAD running ' ' AUTHOR: Qiu Feng ' DATE   : 2004-12-12 ' ' COMMENT: ' '========================================================================== Function AutoCADRunning()    Dim acad    AutoCADRunning = True    On Error Resume Next    Set acad = GetObject(,"AutoCAD.Application")    If Err Then        AutoCADRunning = False    End If    On Error Goto 0    End Function' Main If AutoCADRunning() Then    MsgBox "AutoCAD is Running ..." Else    MsgBox "AutoCAD is not running..." end If

见附件。双击附件中的VBS文件可以直接运行这个VBScript程序，将会跳出一个对话框，告诉你AutoCAD是不是正在运行中。