[编程申请]：求lisp程序

gyd

请搞手帮忙,我win2000中没查找这项,有时文件不知存哪去了,删文件很麻烦,请帮忙做个lisp程序,能查出所有dwg文件并删出,谢谢

hust_laohu

lisp程序好像不可能有这样的功能吧
其他程序还可能！

gyd

以前有高手给我一个,可运行到Type in Prefix时,我不知输啥了,请高手帮我看看,谢谢


(defun c:test ()
  (setq dir (getstring "Input Directory: "))
  (setq pre (getstring "Type in Prefix: "))
  (setq ff (vl-directory-files dir "*.dwg" 1))
  (foreach i ff
    (if (wcmatch i (strcat pre "*"))
      (vl-file-delete i)
    )
  )
)