[编程交流] 在几个屏幕上重复lisp例程

(defun c:rscr (/ wfile rfile ofile)
 (if (and (setq wfile (getfiled "\nSelect File to Write to: " "" "scr" 1))
          (setq rfile (getfiled "\nSelect File from Directory to Read: " "" "dwg" ))
   (progn
     (setq ofile (open wfile "w"))
     (foreach x (vl-directory-files (vl-filename-directory rfile) "*.dwg" 1)
       (write-line (strcat "open " x " (load "mylisp") close "Y"") ofile))
     (close ofile))
   (princ "\n<!> File Selection Error <!>"))
 (princ))

<br>I. Create a routine to run from drawing1.<br>   a. Create a list of routines to run. <br>   b. Create a list of work drawings for processing.<br>   c. Place the routines list in the vlisp blackboard.<br>   d. Open the first work drawing in list.<br>      1. Drawing1 lisp processing is suspended.<br>      2. Startup routine in acad20xxdoc.lsp begins.<br>      3. See Section II<br>   e. Save and Close current work drawing.<br>   f. Back to step d and open next work drawing in list.<br>II. Create startup routine for acad20xxdoc.lsp<br>   a. Check vlisp blackboard for routines list.<br>      1. If there load the first routine.<br>      2. Otherwise normal startup<br>   b. Execute the routine. <br>      1. This is the actual work you want done to the drawings.<br>      2. See section III<br>   c. Repeat from step a for all routines in list.<br>   d. Do not set the work drawing as active.<br>      1. Opening a drawing is different from making it active.<br>      2. When made active, control will not return to drawing1.<br>      3. Inactive drawings will execute all startup routines then hand control back to the last active drawing.<br>III. Create the routines to make your drawing changes.<br>   a. Can be any routine that does not require user input.<br>

3