[编程交流] 批绘图Lisp？

<p> tags when posting code, instead of </p> tags - then the code will be indented 

; Blitz Batch Program
; Written by Mark Mercier, with a little help from my friends
; Version history:
;    08/06/08 v3 Alpha - printlayout, makeitso and dostuff functions operating
;    08/07/08 v3.1 Alpha - printsettings function operating
;    08/07/08 v3.14 Beta - makeitso function operating, first Beta version.
;    09/10/08 v3.141 - Most non-setting-related bugs removed and help option added. Improved layout list functionality.
;    01/23/09 v3.1415 - Added function for selection of multiple settings
;    01/30/09 v3.14159 - Added function for complex tab selection
;    04/03/09 v3.141592 - Added function for plotting all files in a directory
;    04/10/09 v3.1415926 - Added subdirectory capability
(defun c:bz() (blitz))
(defun blitz()
 (princ "\n** Blitz - v3.1415926 **\n")
 (printsettings)                    ; Determine print settings
 (printlayout)                        ; Determine layouts to plot
 (if warpFactor (engage) (makeitso))            ; Use collected variables to plot
 (princ)
 )
; - Begin function set for collecting print settings - ;
(defun printsettings()
 (setq multSettings nil)
 (setq printSetting nil)
 (setq printSettingList nil)
 (setq dirget "none")
 (setq dirPat "*")
 (setq dirSub "0")
 (setq warpFactor nil)
 (setq blitzPrintInputList nil)
 (setq copies 1)
 (setq printsetWhile 1)
 (GetPlotDevices)
 (while (= printsetWhile 1)
 (setq printsettingCheck nil)
 (princ "\n[0 - Setting1]")
 (setq printsettingGet (getstring "\nSelect number or [mUltiple/Directory/Files/?]: "))
   (cond
     
     ; Create a condition to test for user input. In the (dostuff) function, create a correlating condition which supplies said function.
     ; If plotting, create a function to check whether plot device exists, thereby allowing the user to remain in program loop upon device failure.
     ; Similarly, functions can be present within the condition to test any other user input aside from selected setting, as to prevent errors later.
     ((= printsettingGet "0") (printcheck))
     
     ((or (= (strcase printsettingGet) "D") (= (strcase printsettingGet) "DIRECTORY")) (directoryGet))
     ((= (strcase printsettingGet) "U") (setq multSettings 1))
     (t
      (princ "\nOption not available, please select another.")
      )
     )
   )
 (princ printSettingList)
 (setq blitzPrintInputList (append blitzPrintInputList (list (list (itoa copies)))))
 (setq blitzPrintInputList (append blitzPrintInputList (list printSettingList)))
 )
(defun printcheck()
 ; Check to see if the current selection is kosher. If plot device or other settings are unavailable, inform the user and return to main loop.
 (if (or (= printsettingCheck nil) (membercase printsettingCheck DEVICELIST))
   (progn
     (if multSettings
   (progn
     (setq printSettingList (append printSettingList (list printSettingGet)))
     (princ "\nPrint setting appended")
     (setq acceptWhile nil)
     (while (not acceptWhile)
       (princ "\nCurrent settings: ")(princ printSettingList)(princ)
       (setq acceptSettings (getstring "\nContinue with selected plot settings? [Yes/No/Remove] <No> "))
       (cond
         ((or (= acceptSettings "Y") (= acceptSettings "y"))
          (setq printsetWhile 2)
          (setq acceptWhile 1)
          )
         ((or (= acceptSettings "") (= acceptSettings "N") (= acceptSettings "n"))
          (setq acceptWhile 1)
          )
         ((or (= acceptSettings "R") (= acceptSettings "r"))
          (removeSetting)
          )
         (t
          (princ "\nOption not available, please try again")
          )
         )
       (if (not printSettingList)
         (progn
       (setq acceptWhile 1)
       (princ "\nAll selections removed.")
       )
         )
       )
     )
   (progn
     (setq printSettingList (list printsettingGet))
     (setq printsetWhile 2)
     (princ "\nPrint setting accepted")
     )
   )
     )
   (progn
     (princ "\nPrint setting not available.")
     )
   )
 )
(defun removeSetting()
 (setq removeWhile nil)
 (while (not removeWhile)
   (setq removeOption (getstring "\nEnter desired setting to remove: "))
   (if (member removeOption printSettingList)
     (progn
   (setq printSettingList (remFromList removeOption printSettingList))
   (setq removeWhile 1)
   (princ "\nSetting removed.")
   )
     (princ "\nSetting not available.")
     )
   )
 )
(defun directoryGet()
 (setq dirOpsWhile nil)
 (while (not dirOpsWhile)
   (princ (strcat "\nCurrent directory: " dirGet " - Current pattern: " dirPat ".dwg - Subdirectory level: " dirSub))
   (setq dirOp (getstring "\nEnter option [Directory/Subdirectories/Pattern/Clear/Files/Exit]: "))
   (cond
     ((= (strcase dirOp) "D")
      (setq pathGetWhile 1)
      (while pathGetWhile
    (setq dirGetGet (getstring "\nEnter directory search path in the form "C:\\Folder 1\\Folder 2" or [back]: "))
    (if (or (vl-directory-files dirGetGet nil 1) (= (strcase dirGetGet) "B"))
      (progn
        (if (not (= (strcase dirGetGet) "B")) (setq dirGet dirGetGet))
        (setq pathGetWhile nil)
        )
      (progn
        (princ "\nDirectory does not exist. Please try again.")
        )
      )
    )
      (if (= dirGet "") (setq dirGet "none"))
      )
     ((= (strcase dirOp) "S")
      (setq dirSubWhile 1)
      (while dirSubWhile
    (setq dirSubGet (getstring "\nEnter level of subdirectories [0-9]: "))
    (setq badSubList (list "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
        (if (not (strmemlst badSubList (list dirSubGet)))
      (progn
        (princ "\nSelected characters not allowed. Please try again.")
        )
      (progn
        (setq dirSub dirSubGet)
        (setq dirSubWhile nil)
        )
      )
    )
      (if (= dirSub "") (setq dirSub "0"))
      )
     ((= (strcase dirOp) "P")
      (setq patternGetWhile 1)
      (while patternGetWhile
    (setq patternGet (getstring "\nEnter file search pattern using asterisk (*) as wildcard (do not include .dwg extention) <*>: "))
        (setq badList (list "\" "/" ":" "." "?" """ "<" ">" "|"))
        (if (strmemlst badList (list patternGet))
      (progn
        (princ "\nSelected characters not allowed. Please try again.")
        (setq dirPat "*")
        )
      (progn
        (setq dirPat patternGet)
        (setq patternGetWhile nil)
        )
      )
        (if (= dirPat "") (setq dirPat "*"))
    )
      )
     ((= (strcase dirOp) "C")
      (setq dirPat "*")
      (setq dirget "none")
      (setq dirSub "0")
      (setq warpFactor nil)
      (princ "\nDirectory settings removed. Only the current drawing will be affected.")
      )
     ((= (strcase dirOp) "F")
      (filesShow)
      )
     ((= (strcase dirOp) "E")
      (setq allDirsList (subdir dirGet dirSub))
      (setq allFilesList (getfiles allDirsList dirPat))
      
      (if allFilesList
    (progn
      (princ "\nSettings accepted!")
      (setq warpFactor 1)
      (setq dirOpsWhile 1)
      )
    (progn
      (initget 1 "Y N")
      (setq lastchoice (getkword "\nSelected settings return a nil file list. Try again? [Y/N] <Y>: "))
      (if (= (strcase lastchoice) "N")
        (progn
          (setq dirGet "none")
          (setq dirPat "*")
          (setq dirSub "0")
          (setq warpFactor nil)
          (setq dirOpsWhile 1)
          (princ "\nDirectory settings removed. Only the current drawing will be affected.")
          )
        )
      )
    )
      )
     (t
      )
     )
   );/while
 (princ)
 )
(defun filesShow()
 (setq allDirsListShow (subdir dirGet dirSub))
 (setq allFilesListShow (getfiles allDirsListShow dirPat))
 (if allFilesListShow (princ allFilesListShow) (princ "\nNo files available with given settings."))
 (getstring "\nPress 'Enter' key to continue. ")
 )