Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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 contemplating the Monastery: (12)
As of 2015-07-30 19:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (273 votes), past polls