PRINTER SETUP

Is there a LISP program to set the printer configuration into a series of drawings? I receive >500 drawings from a customer and I want them to all be set to plot to a specific printer using a known size, orientation, etc.

 

Check out creating a script file using the command line prompts to print...

drawings? I receive >500 drawings from a customer and I want them to all be
set to plot to a specific printer using a known size, orientation, etc.

 

In addition to scripts you could try writing a lisp that uses -psetupin to
bring in a predefined pagesetup from another drawing on a per drawing basis:
(command "-psetupin" "<yourpath>\\pagesetup.dwg" "<pagesetupname>")
(command "-PLOT" "No" "" "<pagesetupname>" "" "n" "y" "y")

One caveat is that the predefined pagesetup will have the plot area already
defined ie. Window, Display, Extents, etc. So, if all the customer drawings
are in the same place in each drawing then -psetupin and pagesetups might be
an option for you.

drawings? I receive >500 drawings from a customer and I want them to all be
set to plot to a specific printer using a known size, orientation, etc.

 

If you do this, it will crap out on you if the page setup is already defined
in the drawing unless you change the 'EXPERT' variable (If I remember
correctly)

 

Good point....You can also check for and delete the pagesetup with the
following (from J. Piercey I think...if the pagesetup doesn't exist no error
will occur):

(defun delpagesetup (name / cfgs)
(setq cfgs (vla-get-plotconfigurations
(vla-get-activedocument (vlax-get-acad-object))
)
)
(cond
((vl-string-search "*" name)
(vlax-for x cfgs
(if (wcmatch (vla-get-name x) name)
(vla-delete x)
)
)
)
(t
(vl-catch-all-apply '(lambda () (vla-delete (vla-item cfgs name))))
)
)
(princ)
)