Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^2: (Not Quite Perl) Running Scripts from Right-Click Context Menu in Windows

by five-ohm (Sexton)
on Jul 15, 2005 at 20:46 UTC ( #475357=note: print w/ replies, xml ) Need Help??


in reply to Re: (Not Quite Perl) Running Scripts from Right-Click Context Menu in Windows
in thread (Not Quite Perl) Running Scripts from Right-Click Context Menu in Windows

This is an old thread, but it came up when I searched for a possible solution for an issue I am having.

What I do for AutoCAD dwg files (under windows xp) is go to Folder Options->File Types->DWG->Advanced->New

Then in Action I put a description, like Print 11x17 and under Application used to perform action it would be:

"c:\program files\autocad 2004\acad.exe" "%1" /nologo /b plot11x17.scr

So then for running a script on a txt file on right-click, you would put "perl -w" code.pl "%1" or whatever.

What it does may be irrelevant but it runs a script then closes. This means you can highlight many dwgs, right click and have 12 copies of autocad open, run a script, then close.

This brings me to a question I have.

If I run more than 3 autocads at a time it will take much longer than if I did each file individually which has prompted me to attempt to put together this dal right here (note, I am very new at this so the code might look retarded):
#!perl -W use strict; die "Need Arguments." unless @ARGV; my $CADPath = join "", "\"", "c:/program files/autocad 2004/acad.exe", + "\" "; my $ScriptType = "hp5000"; foreach my $file (@ARGV) { if (-e $file) { my $RunIT = join "", $CADPath, $file, " /nologo /b ", $ScriptType; my $status = system($RunIT); die "$RunIT exited funny: $?" unless $status == 0; } }
This does exactly what I need to do, which is make a kind of queue. But how an I arrange it so I can highlight 20 file of only the dwgs I want and have it achieve the same thing without having to type in all the file names on the command line or make a batch file.

I thought about doing the folder thing, where it would process all the dwgs in a folder, but this is not what I want. There will be drawings in the folder I do not want to run.

Thanks


Comment on Re^2: (Not Quite Perl) Running Scripts from Right-Click Context Menu in Windows
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://475357]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2014-07-14 02:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (254 votes), past polls