用lisp如何删除当前目录文件？

清山小石

用lisp如何删除当前打开的文档目录产生的一些脚本文件？如acad.fas。

Andyhon

Command: (vl-file-delete (strcat (getvar "dwgprefix") "acad.fas"))

Andyhon

若是中了CAD病毒,单删acad.fas恐是无效

清山小石

Andyhon 发表于 2017-9-7 15:52
若是中了CAD病毒,单删acad.fas恐是无效

论坛找了个改进了下、主要用于删除后缀bak的文件。指点一下
(defun test (dir extn / finis)
        (setq cur_dir (getvar "dwgprefix"))
  (progn
      (mapcar '(lambda (x / f)
                 (if (findfile (setq f (strcat cur_dir x)))
                   (vl-file-delete f)
                 )
               )
              (vl-directory-files cur_dir extn 1)
      )
    )
  
)
(test cur_dir "*.bak*")
(test (getenv "tmp") "*.bak")