Question

cad lsp编写一句话，求助给位高手

逻辑是这样：a是一个文件 当a= 1或者 a =2 ，但是a不等于3 的时候，删除a
(while (or (setq a (findfile "acaddoc.lsp"))(setq a (findfile "acaddoc.fas")) and not (setq a (findfile"C:\\Tangent\\TWT9\sys\\acaddoc.lsp") (vl-file-delete a))
补充一下：这句是有语法错误错误，无法在cad中执行：

(while (or (setq a (findfile "acaddoc.lsp"))(setq a (findfile "acaddoc.fas")) and not (setq a (findfile"C:\\Tangent\\TWT9\sys\\acaddoc.lsp") (vl-file-delete a))
请各位高手改为正确的。
例如这样写就可以在cad中正确执行也可以免疫cad病毒，但是我加上免疫条件就就错了
(while (or (setq a (findfile "acaddoc.lsp"))(setq a (findfile "acaddoc.fas"))) (vl-file-delete a))
请问各位高手，怎么写lisp才能做到既能免疫病毒，又能把这个路径下的
正常acaddoc.lsp设置为白名单不删除呢？

Answer 1

1. 第一个程序，程序找到了天正文件，程序会中断，或者无限循环。
   

2. 第二个程序，会把天正文件也删除。

3. "C:\\Tangent\\TWT9\\sys\\acaddoc.lsp";少了一个【\】。

4. 最好的方法就是找到文件，然后修改文件名。然后检查是否有天正文件，如果有，排除。其它的文件全部删除。

5. 可以搜索下载【筑原CAD病毒专杀  V3.1】，用这个查杀CAD病毒。
   

追问

第一句lisp语言是无法执行的，我的提问就是怎么改成可以执行。
第二个lisp语言是对的，用于cad病毒免疫，在cad下可以正确执行。
能否第一句改成语法正确的？
另外"C:\\Tangent\\TWT9\\sys\\acaddoc.lsp";少了一个【\】,我怎么看也没看来哪里少了
,筑源cad杀毒有5年没更新过了，免疫功能也不好使。

追答

(setq f1 "C:\\Tangent\\TWT9\\sys\\temp.txt");建立一个新文件
(setq ss1 '());建立空表
(while (or (setq a (findfile "acaddoc.lsp"))(setq a (findfile "acaddoc.fas")))
 (if (= a "C:\\Tangent\\TWT9\\sys\\acaddoc.lsp");如果是天正文件
  (progn
   (vl-file-copy a f1);复制文件
   (setq ss1 (cons f1 ss1));加入表里面
  )
 )
 (vl-file-delete a)
)
(if (setq f1 (car ss1));如果有删除了天正文件就恢复
 (progn
  (setq a "C:\\Tangent\\TWT9\\sys\\acaddoc.lsp")
  (vl-file-copy f1 a);复制文件
  (vl-file-delete f1);删除临时文件
 )
);程序没有测试