print all layouts

Sir,

I have a lisp to printout layout drawing;it works :geek:greate to print single layout;

but I need to printout all layouts in my drawing.Please revised the attached lisp to print all layouts.Currently we are using server based printer A3 (FX ApeosPort-IV C5575 L13) and need to print all layouts as per my pagesetup A3 or A1 or....

Advance thanks

venki

layout plot.lsp

Why not just use the PUBLISH command, or select all the layouts and right click and choose Publish?

Why not just use the PUBLISH command, or select all the layouts and right click and choose Publish?

Hi

I know the PUBLISH command;but it need this more faster.

Thanks

We use it.

Try, can to you will approach.

Have a look at this post http://www.cadtutor.net/forum/showthread.php?69132-Printing-LISP-Help...&highlight=Printing-LISP there are others poted here as well for this method just change the PDF to your printer name

i use this script:

(foreach lay (layoutlist) (setvar "CTAB" lay) (command "_PLOT" "N" "" "" "" "" "Y" ""))

make sure all the page setups are set.

PmxCAD

pmxcad,

Please use CODE TAGS for code snippets.

Heres is what we use where i work, it works great. the good thing is that the pages don't have to be sets. it also doesn't print the model tab.

(defun c:Tab ( / )
 (foreach layoutname (vl-remove "Model" (layoutlist))
   (command "._layout" "set" layoutname)
   (command "-plot" 
"yes" 
layoutname
"TFC-ENGXER6204.pc3" 
"Arch C (18x24 in.)" 
"Inches"
"LANDSCAPE" 
"NO" ;PLOT UPSIDE DOWN
"LAYOUT" 
"1:1" 
"0.00,0.00" 
"YES" ;PLOT WITH PLOTSYTLES
"MONOCHROME.CTB" 
"NO" ;PLOT WITH LINEWEIGHTS
"NO" ;SCALE LINEWEIGHTS WITH PLOT SCALE
"YES" ;PLOT PAPER SPACE LAST
"NO" ;REMOVE HIDDEN LINES
"NO" ;WRITE THE PLOT TO A FILE
"NO" ;SAVE CHANGES TO LAYOUT
"YES");PROCEED WITH PLOT
 )
 (princ)
)