 ; Plot650 - AutoCAD 2000i - plot to the Hp650.
 ; Copyright 2001 by Rocket Software Ltd.
 ; Saved only as a cautionary note - Plot is strange and unstable.
 (DEFUN C:PLOT650 ()
  (c:datt)
  (command "plot")
  (command "y")                                 ; detailed plot configuration?
  (command "Model")                             ; layout name <Model>:
  (command "\\\\psvr\\HP DesignJet 650C (C2858B)") ; output device name
 ; Note the space at the end of the paper size description: the text must
 ; be exactly what the driver is looking for - use ? at this point after
 ; the -plot command to get a list of options, copy one exactly.
  (command "Oversize: ANSI D ")                 ; paper size
  (command "Inches")                            ; paper units
  (command "Landscape")                         ; dwg orientation
  (command "N")                                 ; plot upside down?
  (command "Extents")                           ; plot area
  (command "Fit")                               ; plot scale
  (command "Center")                            ; plot offset
  (command "Yes")                               ; plot with plot styles?
  (command "Default R14 pen assignments.ctb")   ; plot style table (. for none)
  (command "Y")                                 ; plot with lineweights?
  (command "N")                                 ; remove hidden lines?
  (command "N")                                 ; plot to a file?
  (command "N")                                 ; Save changes to model tab?
  (command "Y")                                 ; Proceed with plot?
 (princ))