删除临时目录里面的UNDO,REDO临时文件

marting

1. (defun c:CleanTemp nil
   
2.   ;; delete all UND* and RED* temp files
   
3.   (foreach x (vl-directory-files (getvar 'tempprefix))
   
4.     (and (wcmatch (strcase x) "UND*,RED*")
   
5.          (vl-catch-all-apply
   
6.            (function vl-file-delete)
   
7.            (list (strcat (getvar 'tempprefix) x))
   
8.          )
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    

(defun c:CleanTemp nil<br />   ;; delete all UND* and RED* temp files<br />   (foreach x (vl-directory-files (getvar 'tempprefix))<br />     (and (wcmatch (strcase x) "UND*,RED*")<br />          (vl-catch-all-apply<br />            (function vl-file-delete)<br />            (list (strcat (getvar 'tempprefix) x))<br />          )<br />     )<br />   )<br />   (princ)<br /> )<br />

fengyun7000

不错，学习了一下