设置焦点

A_LOTA_NOTA · 发表于 2007-8-17 19:56:21

这能做到吗
http://www.theswamp.org/index.php?topic=18241.msg222653#msg222653

Keith · 发表于 2007-8-17 20:44:44

你可以，但这并不像听起来那么简单。要检查AutoCAD实例的数量，需要使用API调用，然后需要能够引用应用程序以执行建议的操作。这并非不可能，但有点复杂。

A_LOTA_NOTA · 发表于 2007-8-17 23:27:16

谢谢Keith

Bryco · 发表于 2007-8-20 13:08:45

这里是#039；这是一个开始&nbsp；这将在即时窗口上打印正在运行的实例数

copy

Public Sub HowManyAcads()
    Debug.Print TallyPrograms("acad.exe")
End Sub
Private Function TallyPrograms(ByRef EXEName As String)
    Dim cmd As String
    cmd = "SELECT * FROM Win32_Process WHERE Name='" & EXEName & "'"
    TallyPrograms = GetObject("winmgmts:").ExecQuery(cmd).Count
End Function

Keith · 发表于 2007-8-20 20:51:20

It#039；他是守门员马特。干杯

设置焦点

发表回复

精选推荐