Once (upon the time) I had a drawing with ~100 titleblocks in one drawing, and I
made a routine that plotted that dwg through a night. I made a block called
a3plot (because they were all A3 papers) that had two points in lower left and
upper right corner of plotting area (this points should be at places you pick to
get border of paper plotted on your printer - 25, 5, 5, 5mm) and inserted that
block on every view I wanted to plot. Then I called plot command, did the
settings (scale factor, pen assignments, rotation angle, printer etc) and (with
window option) selected first view. After finnishing firs plot (and assuring
everything is OK) I started command plotviews (lisp below) and went to bed...
If you need further explanation, drop me a note. a3plot dwg is on
customer.files, "a3plot" subject. Points in that dwg are on Defpoints layer
(they do not plot), and are made for Epson Stylus photo EX printer (they
probably would not be OK for your printer...).
Hope this helps...
Darko Bogdan
(defun c:plotview ()
(setq osmode (getvar "osmode"))
(setvar "osmode" 0)
(princ "\nSelect viewports to plot: ")
(setq views (sstol (ssget '((2 . "a3plot")))))
(if views
(progn
(foreach view views
(command "explode" view)
(setq points (sstol (ssget "p")))
(command "plot" "w" (cdr (assoc 10 (entget (car points))))
(cdr (assoc 10 (entget (cadr points))))
""
)
(command "undo" 2)
)
(princ (strcat "\n" (itoa (length views)) " drawings plotted."))
)
(princ "\nNo views to plot.")
)
(setvar "osmode" osmode)
(princ)
)
BTW, if you need to plot more than one set, append you batch list with the
same list as many times as you want copies.
HTH
Keith