 ; Ploto - plot from AutoCAD 2000i
 ; Copyright 2001 by Rocket Software
 ; 
 (DEFUN C:PLOTO ()
  (c:datt)
  (command "plot")
  (command "y")                                 ; detailed plot configuration?
  (command "Model")                             ; layout name <Model>:
  (command "\\\\psvr\\HP LaserJet 5000 Series PS") ; output device name
  (command "11x17")                             ; 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))