topic Re: Closing a program that is open in VBA Forum

Closing a program that is open

Anonymous — Fri, 22 Apr 2005 19:01:49 GMT

If you havent read my last post I'm working on a program and part of what it
does is opens and closes ACAD for the user. I'm having trouble getting this
VBS to close ALL instancess of CAD. Would anyone have an ideas on how to do
this?

I thought it might be as simple as

>CODE
Dim WshShell
' Create a WSH Shell object.
Set WshShell = _
CreateObject("WScript.Shell")
' Close AutoCAD application.
WshShell.close _
"""C:\Program Files\Autodesk Architectural Desktop 3\acad.exe""", _
1, _
True
>CODE

But i'm obviously wrong

Re: Closing a program that is open

GTVic — Fri, 22 Apr 2005 22:08:38 GMT

Are you sure this is a good idea. What if the dwg is not saved or a command is active? In those cases the application won't close.

I couldn't find a Close method for the WsShell object:

Microsoft link -> http://tinyurl.com/5e7gh

Here is some code I found using Google: (link -> http://tinyurl.com/7dmnv)

[code]
Set colProcessList = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = 'acad.exe'")
For Each objProcess In colProcessList
objProcess.Terminate()
Next
[/code]

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 11:04:43 GMT

I was thinking about the ALT+F4 close command because that will prompt for
save|yes/no.

>CODE
AppActivate("ACAD.exe")
SendKeys "%{ }{ALT}{F4}", 0 'ALT, F4
>CODE

But this code I made is wrong and I think its in the send keys line. My
Keys names are messed up.

The command that is listed in the post, the "objProcess.Terminate" command..
I think that will just end CAD with out prompting for save if I understand
it correctly.

And I am getting a runtime error on it too, when I tried it out.

Any ideas on the send keys command OR the Terminate command?

wrote in message news:4823878@discussion.autodesk.com...
> Are you sure this is a good idea. What if the dwg is not saved or a
> command is active? In those cases the application won't close.
>
> I couldn't find a Close method for the WsShell object:
>
> Microsoft link -> http://tinyurl.com/5e7gh
>
> Here is some code I found using Google: (link -> http://tinyurl.com/7dmnv)
>
> [code]
> Set colProcessList = objWMIService.ExecQuery ("SELECT * FROM Win32_Process
> WHERE Name = 'acad.exe'")
> For Each objProcess In colProcessList
> objProcess.Terminate()
> Next
> [/code]

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 12:59:07 GMT

ok.. so now I'm down to this...

>CODE
AppActivate "acad"
SendKeys "%{F4}"
>CODE
I've tried Autodesk Architectural Desktop 3.3 and acad.exe and on both I
get a "type mismatch" on the AppActive line.

Anyone help please

"AlmightySR" wrote in message
news:4824526@discussion.autodesk.com...
>I was thinking about the ALT+F4 close command because that will prompt for
>save|yes/no.
>
>>CODE
> AppActivate("ACAD.exe")
> SendKeys "%{ }{ALT}{F4}", 0 'ALT, F4
>>CODE
>
> But this code I made is wrong and I think its in the send keys line. My
> Keys names are messed up.
>
>
> The command that is listed in the post, the "objProcess.Terminate"
> command.. I think that will just end CAD with out prompting for save if I
> understand it correctly.
>
> And I am getting a runtime error on it too, when I tried it out.
>
> Any ideas on the send keys command OR the Terminate command?
>
>
> wrote in message news:4823878@discussion.autodesk.com...
>> Are you sure this is a good idea. What if the dwg is not saved or a
>> command is active? In those cases the application won't close.
>>
>> I couldn't find a Close method for the WsShell object:
>>
>> Microsoft link -> http://tinyurl.com/5e7gh
>>
>> Here is some code I found using Google: (link ->
>> http://tinyurl.com/7dmnv)
>>
>> [code]
>> Set colProcessList = objWMIService.ExecQuery ("SELECT * FROM
>> Win32_Process WHERE Name = 'acad.exe'")
>> For Each objProcess In colProcessList
>> objProcess.Terminate()
>> Next
>> [/code]

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 13:07:40 GMT

Much the same advice as before - you probably don't really want to do this but here's a nice length of rope:

Dim Acad

On Error Resume Next
Do
Set Acad = Nothing
Set Acad = GetObject(, "AutoCad.Application")
Acad.Quit
Loop Until Acad Is Nothing

And now for a question: Do you have access to any documentation?

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 14:20:24 GMT

documentation for?

wrote in message news:4824590@discussion.autodesk.com...
> Much the same advice as before - you probably don't really want to do this
> but here's a nice length of rope:
>
> Dim Acad
>
> On Error Resume Next
> Do
> Set Acad = Nothing
> Set Acad = GetObject(, "AutoCad.Application")
> Acad.Quit
> Loop Until Acad Is Nothing
>
>
> And now for a question: Do you have access to any documentation?

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 14:39:44 GMT

WSH?

Acad VBA?

VBS?

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 15:29:09 GMT

I donthave thoughs... I'm learning thru the internet and helpful groups like
this. This is actually the first program I have ever made... Dis-counting
batch files.

wrote in message news:4824712@discussion.autodesk.com...
> WSH?
>
> Acad VBA?
>
> VBS?

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 16:46:38 GMT

WSH:
<>

Acad VBA:
acad_aag.chm in the Help directory of a machine with Acad.

VBS:
<>

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 18:00:13 GMT

That command you sent me is working great! thank you

wrote in message news:4824933@discussion.autodesk.com...
> WSH:
> <>
>
> Acad VBA:
> acad_aag.chm in the Help directory of a machine with Acad.
>
> VBS:
> <>

Re: Closing a program that is open

Anonymous — Mon, 25 Apr 2005 18:00:48 GMT

I mean "code"
"AlmightySR" wrote in message
news:4825049@discussion.autodesk.com...
> That command you sent me is working great! thank you
>
> wrote in message news:4824933@discussion.autodesk.com...
>> WSH:
>> <>
>>
>> Acad VBA:
>> acad_aag.chm in the Help directory of a machine with Acad.
>>
>> VBS:
>> <>