VBScript：如何确定哪个版本的CAD...

Hangman · 发表于 2011-1-17 19:23:36

下午大家，
我正在编写一个脚本来激活任何给定机器上当前正在运行的AutoCAD程序，然后运行LisP。
我被困在如何确定当前正在运行哪个版本以使其处于活动状态。
如果我试图这样做：

Set WSO = WScript.CreateObject("WScript.Shell")
 ...
Function ActivateACAD()
  WSO.AppActivate "AutoCAD Map 3D 2011"   [color=green]' What if the user is running "AutoCAD Map 3D 2010"[/color]
 ...

我会只使用IF语句吗？

copy

IF NOT WSO.AppActivate "AutoCAD Map 3D 2010" Then
  WSO.AppActivate "AutoCAD Map 3D 2011"
End If

感谢您的帮助。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

fixo · 发表于 2011-1-18 07:59:48

也许你可以从注册表中找到版本号？

fixo · 发表于 2011-1-18 08:00:16

或者执行查找文件并读取返回的路径

fixo · 发表于 2011-1-24 03:21:51

试试类似的方式

copy

'demo.vbs
Dim WSHShell
Dim AcApp
Set WSHShell   = WScript.CreateObject("WScript.Shell")
Dim appname 
appname="AutoCAD.Application"
Set AcApp = WScript.CreateObject(appname)
AcApp.Visible=True
WSHShell.AppActiVate AcApp.Caption

~'J'~

VBScript：如何确定哪个版本的CAD...

发表回复

精选推荐