解决acaddoc.lsp病毒及CAD粘贴慢的办法

;;;
;;; Globalization Note:
;;; We do not support autoloading applications by the native
;;; language command call (e.g. with the leading underscore
;;;
;;; Copyright (C) 1994-2007 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software
;;; for any purpose and without fee is hereby granted, provided
这种方法很多人试了都能解决，当然，有时候反应慢还跟自己的电脑有关系，不能完全把责任推到软件上面！
;;; documentation.
;;;
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
Байду номын сангаас
CAD复制粘贴反应慢甚至死机的解决办法
在使用CAD2008的时候，如果要把某一张图复制到另外一张图，尤其是当图片很大的时候，会出席粘贴很慢，有时候还可能造成死机的情况，通常只能强行结束，那么这个时候怎么办？实际上造成这种现象的原因是在CAD2008里面新增加了注释行这一功能，出现上述问题的图形文件内部存在大量的注释性比例，当粘贴新的对象到文件时CAD会自检一遍这些比例设置，当比例有成百上千条时，这个过程就需要很长时间，CAD程序也就会出现反应中止的现象了。
;;; that the above copyright notice appears in all copies and
;;; that both that copyright notice and the limited warranty and
;;; restricted rights notice below appear in all supporting
acaddoc.lsp病毒有效的方法。
1.查找acaddoc.lsp，把高级选项打开，把隐藏的也搜索出来删除。
2.查找acadapq.lsp删除。
3.查找c:\boot.dat删除
4.打开acad.mnl，将加载acadapq.lsp的句子删除。
5.为防止再被感染，建议将acad.mnl设成只读，建个空的acaddoc.lsp设为只读，应该就可以防止感染了。
;;; mechanism.)
(if (not (= (substr (ver) 1 11) "Visual LISP")) (load "acad2008doc.lsp"))
;; Silent load.
(princ)
acad2008.lsp文件在你安装AutoCAD中support目录下！
;;;
;;;.
;;;
;;; Note:
;;; This file is normally loaded only once per AutoCAD session.
;;; If you wish to have LISP code loaded into every document,
;;; you should add your code to acaddoc.lsp.
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;; UNINTERRUPTED OR ERROR FREE.
;;;
;;; Use, duplication, or disclosure by the U.S. Government is subject to
6.注意局域网要统一时间杀毒，否则杀不干净。
如果还不行的话，看下面:
那个方法并不能解决acad.lsp病毒问题！以下是解决acad.lsp病毒的办法：
解决办法：
方法一：输入命令mbuttonpan把它的值改为1就OK了~
方法二：加载正常的没有被病毒感染的acad2008.lsp（这个文件正常的只有1.62k大小）
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;; (Rights in Technical Data and Computer Software), as applicable.
那么有没有什么解决的办法呢？大家可以试试下面的方法，本人亲测，绝对有效：CAD2008 安装目录的support目录下用打开CAD2008.lsp，并在文件的最末端粘贴上如下代码：
(command "-scalelistedit" "reset" "y" "e") 注意带括号一起复制
保存后重启软件就行了。
加载方法：输入命令ap，选择acad2008.lsp文件，并加载就ok！
注：我用的也是AutoCAD2008
这是正常acad2008.lsp文件，双击打开它
用下面的内容替换掉原来的内容，并保存为只读
; MODULE_ID ACAD2007_LSP_
;;; ACAD2008.LSP Version 1.0 for AutoCAD 2008
保存完acad2008.lsp后，
再复制两个并分别命名为acad.lsp, acadapp.lsp
然后在C盘中寻找CAD（型号）中的support文件夹，将修改好的acadapp.lsp文件替换此文件夹中的同名文件（你会发现该文件会比原文件大很多）。
然后再启动CAD，输入mbuttonpan把它的值再修改为1，再保存就解决了！~~