Topic: Executing bat files in current drawing location

[dubb]

I noticed when I ran a bat file from autolisp they failed to run when my current drawing is from our server. When I ran a bat file with my current drawing located on my local hard drive it worked. Could this be a trustedlocations issue or a networking issue?

[ChrisCarlson]

Does the batch file run independently from AutoCAD?

[JohnK]

It's a windows and path issue. Follow the following template for your bat file.

Code - Text: [Select]

1. cls
2. @pushd %~dp0
3.  
4. ::: SCRIPT HERE :::
5.  
6. @popd

[dubb]

Thanks! sorry for the late reply. But it seems to work with your code.

@master_shake. I'm not sure what you mean. The bat file is called with (startapp "c:/tools/sync.bat?")

[ronjonp]

You could also use something like this to suppress the box from popping up:

Refer to code HERE.

[dubb]

Oh Yes! I have been looking all over the web on how to achieve this. On stackexchange I keep reading on who to make a .vbs script but I don't want to create another external file. Thanks Ron!

You could also use something like this to suppress the box from popping up:

Code - Auto/Visual Lisp: [Select]

1. (defun _run (file / ws)
2.   (if (and (findfile file) (setq ws (vlax-get-or-create-object "wscript.shell")))
3.     (progn (vlax-invoke ws 'run file 0 -1) (vlax-release-object ws) file)
4.   )
5. )
6. ;; (_run (strcat (getenv "userprofile")"\\Desktop\\Test.bat"))

[dubb]

For some reason I can't execute the function like this

Code: [Select]

(_run "c:/tools/sync.bat")

[ronjonp]

I'll have to take a look in the morning.

[ronjonp]

For some reason I can't execute the function like this

Code: [Select]

(_run "c:/tools/sync.bat")

You're right. I can't get it to work either    .. perhaps you could use THIS if you're just updating files. I know this one works as I've been using it for years.

It's working here, both types of paths:

Code - Auto/Visual Lisp: [Select]

1. (defun _run (file / ws)
2.   (if (and (findfile file) (setq ws (vlax-get-or-create-object "wscript.shell")))
3.     (progn (vlax-invoke-method ws 'run (strcat "\"" file "\"") 0) (vlax-release-object ws) file)
4.   )
5. )
6. (_run (setq path (strcat (getenv "userprofile") "\\Desktop\\test with spaces\\Test.bat"))) ;;<-Works here
7. (_run (vl-string-translate "\\" "/" path)) ;;<-Works here

*Added quotes like Roy & vlax-release-object <- got lost from first post

[dubb]

Good morning/afternoon! I got really busy, started working on a reply. I need to correct my initial response.

Code: [Select]

(_run "C:\\tools\\sync.bat") It worked! Yay!

But in my real code I have spaces in the naming of directories so tested to find the culprit.

Code: [Select]

(_run "C:\\Test Test\\sync.bat") Doesn't work

So I tried chr(34) to add double quotes.

Code: [Select]

(_run "chr(34) & c:\\Test Test\\sync.bat & chr(34)") Returns nil, doesn't work

Tried using ascii code for space

Code: [Select]

(_run (strcat "c:\\test" "& chr(32) &""test\\sync.bat")) Returns nil.

Any ideas?

For some reason I can't execute the function like this

Code: [Select]

(_run "c:/tools/sync.bat")

You're right. I can't get it to work either    .. perhaps you could use THIS if you're just updating files. I know this one works as I've been using it for years.


It's working here, both types of paths:

Code - Auto/Visual Lisp: [Select]

1. (defun _run (file / ws)
2.   (if (and (findfile file) (setq ws (vlax-get-or-create-object "wscript.shell")))
3.     (progn (vlax-invoke-method ws 'run file 0) file)
4.   )
5. )
6. ;; (_run (setq path (strcat (getenv "userprofile") "\\Desktop\\Test.bat"))) ;;<-Works here
7. ;; (_run (vl-string-translate "\\" "/" path)) ;;<-Works here

[Lee Mac]

Try:

Code: [Select]

(_run "\"C:\\Test Test\\sync.bat\"")

[dubb]

Hmm..didn't think of using slash quotes. However, it didn't work.

Try:

Code: [Select]

(_run "\"C:\\Test Test\\sync.bat\"")

[Lee Mac]

Ok, one more:

Code: [Select]

(_run "\"C:/Test Test/sync.bat\"")

[dubb]

I see what you did there..LoL, nope didn't work.

Ok, one more:

Code: [Select]

(_run "\"C:/Test Test/sync.bat\"")

here is my sync.bat file
This works well together

Code: [Select]

(_run "c:\\Test\\mirsup.bat")

Code: [Select]

@pushd %~dp0
cls
robocopy "C:\Test" "C:\Test Test" /MIR /XF *.dwl /XF UpdateLog.txt /XF toolsversion.txt /R:10 /W:5 /ETA /TEE /LOG+:ToolsUpdateLog.txt
@popd
However if I change the sync.bat file to this.

Code: [Select]

robocopy "C:\Test" "C:\Test Test" /MIR /XF *.dwl /XF UpdateLog.txt /XF toolsversion.txt /R:10 /W:5 /ETA /TEE /LOG+:ToolsUpdateLog.txt
It won't work

[roy_043]

Note: If you want to enclose the file name in double quotes you should modify ronjonp's code.

Code - Auto/Visual Lisp: [Select]

1. ; (_run "C:\\Test Test\\sync.bat") => OK
2. ; (_run "C:/Test Test/sync.bat") => OK
3. (defun _run (file / ws)
4.   (if (and (findfile file) (setq ws (vlax-get-or-create-object "wscript.shell")))
5.     (progn (vlax-invoke-method ws 'run (strcat "\"" file "\"") 0) file)
6.   )
7. )