;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1996-2000
;;;>		   EDITED: 12-27-2005
;;;
(defun c:cplots ()
  (PRINC "\n")
  (foreach n '("pwm-1" "pwm-2" "pwm-3" "pwm-4" "pwm-5" "pwm-6" "pwm-7" "pwm-8" "pwm-9" "pwm-10" "pwm-11" "pwm-12" "pwm-13" "pwm-14" "pwm-15" "pwm-16" "pwm-17" "pwm-18" "pwm-19" "pwm-20" "pwm-21" "pwm-22" "pwm-23" "pwm-24" "pwm-25" "pwm-26" "pwm-27" "pwm-28" "Details" "01 General")
    (setq tif_lst (dos_dir (strcat (getvar "dwgprefix") n "\\Plots\\34x22\\*.tif")))
    (PRINC "\010\010\010\010\010\010\010")
    (PRINC (STRCASE n))
    (PRINC)
    (foreach o tif_lst
      (IF
        (dos_copy (strcat (getvar "dwgprefix") n "\\Plots\\34x22\\" o) (strcat (getvar "dwgprefix") "\\Plots\\" (IF (WCMATCH (STRCASE n) "PWM-#")(STRCAT "PWM-0" (SUBSTR n 5)) n) "-" o))
        (PROGN
          (PRINC (strcat "\n" (getvar "dwgprefix") "\\Plots\\" (IF (WCMATCH (STRCASE n) "PWM-#")(STRCAT "PWM-0" (SUBSTR n 5)) n) "-" o))
          (PRINC)
        )
      )
    )
  )
  (princ)
)