清山小石 发表于 2017-9-7 15:26:42

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

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

Andyhon 发表于 2017-9-7 20:09:24

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

Andyhon 发表于 2017-9-7 15:52:59

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

清山小石 发表于 2017-9-7 16:20:40

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")

页: [1]
查看完整版本: 用lisp如何删除当前目录文件？