;|
 *********************************************
 *                                           *
 *       Plot Files 2 PDF                    *
 *   www.MadSteelSoftware.com  Ver 4-2007    *
 *                                           *
 *  Changes all colors to white or black     *
 *  and than plots the drawing file to the   *
 *  windows default printer than retruns     *
 *  all the colors back to ByLayer           *
 *                                           *
 * *******************************************
|;

; For This Program To Work Rename This File From *.TXT To *.LSP

(defun C:plot2pdf  ();
   (prompt "\n Saving Drawing ") (command "qsave"             )
   (prompt "\n Zooming Out    ") (command "zoom"   "E"        )
   (prompt "\n Purging Layers ") (command "purge" "LA" "" "N" )
   (prompt "\n Purging Blocks ") (command "purge" "BL" "" "N" )
   (prompt "\n Make All Colors White/Black"                   )
   (command "-layer" "U"         "*" ""                       )
   (command "change" "All" "" "P" "C" "white"     ""          )
   (prompt "\n Load Plot Box ") (command "Plot" "" "0"        )
   (prompt "\n Return Colors To ByLayer"                      )
   (command "change" "All" "" "P" "C" "BYLAYER"   ""          )
) ;end