将以下代码添加到 acad????.lsp文件中即可实现自动删除acad.vlx
=================================
(defun cleanvirus(/ FLST NUM I) (setq FLST '("acad.vlx" "acad.fas" "logo.gif"));此处可以添加你要删除病毒文件的名称列表 (SETQ NUM (LENGTH FLST) I 0) (REPEAT NUM (vl-file-delete (NTH I FLST)) (SETQ I (1+ I)) ) ) (cleanvirus)
============================== |