cad“病毒”acad.lsp淺析_secret

1、CAD“病毒”ACAD.LSP淺析摘 要：ACAD有個很大的優(yōu)點,就是開放性,它有很多開放的接口,這給用戶自定義以及第三方二次開發(fā)提供了極大的方便。ACAD用戶化門檻不算高,只要有興趣、有些耐心,你總可以親自動手不同程度地進行自定義。AUTOLISP接口,這個接口現(xiàn)在被人用來搞了點惡作劇。關(guān)鍵字：CAD“病毒” ACAD.LSPACAD有個很大的優(yōu)點,就是開放性,它有很多開放的接口,這給用戶自定義以及第三方二次開發(fā)提供了極大的方便。ACAD用戶化門檻不算高,只要有興趣、有些耐心,你總可以親自動手不同程度地進行自定義。馬上要討論的是關(guān)于啟動自動化的AUTOLISP接口,這個接口現(xiàn)在被人用來搞了點

2、惡作劇。在ACAD啟動或開圖時會被自動加載的LSP文件淺見,這種LSP包括:ACAD.LSP,新裝的純ACAD里面沒有這個文件。一般由用戶自己編寫或者第三方軟件提供,放在ACAD目錄或SUPPORT子夾都可以。ACADR$.LSP,$是系統(tǒng)版本號,比如ACADR14.LSP,在SUPPORT子夾。還有一種先不說了.加載時自動運行的由defun函數(shù)定義的函數(shù)名就一種,S:STARTUP,它和ACAD.LSP配套,同時不支持其他擴展名為LSP的文件可能是因為這個原因,目標(biāo)被定位于ACAD.LSP? 不知道了,其實不一定非用S:STARTUP,用了那就說明這位大蝦是個追求完美的人鋪墊好了,來看看這個

3、病毒acad.lsp的作用00.定義自動函數(shù)S:STARTUP01.獲取CMDECHO變量,改設(shè)為0,一般程序最后會再改回去,目的是悄悄地進村打槍地不要.大家都喜歡這么干 02.通過搜索base.dcl文件,獲取ACAD安裝路徑(support子夾) 03.獲取菜單文件完整路徑和名稱,后來又沒用04.獲取當(dāng)前圖形文件完整路徑和名稱,截取當(dāng)前工作路徑05.獲取當(dāng)前首選ACAD.LSP文件完整路徑和名稱,截取其路徑06.預(yù)設(shè)程序標(biāo)記變量LSPBJ為0,意思是假設(shè)還沒得手07.用只讀方式打開support中的ACAD.LSP,如文件不存在則建立同名文件逐行檢查此ACAD.LSP文件內(nèi)容,一旦發(fā)現(xiàn)某行

4、開頭為(load acadapp)則設(shè)程序標(biāo)記變量LSPBJ為1,表示已經(jīng)得手過只讀任務(wù)結(jié)束，關(guān)閉文件08.如果找到的ACAD.LSP路徑和當(dāng)前工作路徑不同，并且不在ACADsupport里面，則如果LSPBJ為0，也即尚未得手，那么就在ACADsupportacad.lsp文件末尾添加(load acadapp)(princ),即ACAD啟動或開圖時自動加載acadapp.lsp并隱蔽命令行反應(yīng)。然后同路徑創(chuàng)建acadapp.lsp文件，作為剛改過的acad.lsp的備份. 如果LSPBJ為1,即已得手,且當(dāng)前繪圖不是未命名的新繪圖任務(wù),則用復(fù)寫ACADsupportacadapp.lsp的

5、方式在當(dāng)前工作路徑創(chuàng)建acad.lsp. ;注:到此為止,ACAD啟動時必搜的程序文件路徑里面都放好了此acad.lsp!09.程序開始做真正讓大家不愉快的事情,它取消了3個系統(tǒng)預(yù)設(shè)的命令名: 不止explode, 還有xref和xbind可能因為Xref和xbind不是每個人都常用,所以好象報案的不多,而explode幾乎是所有用ACAD畫圖的人都難以避免使用的,就顯得很典型S:STARTUP函數(shù)定義結(jié)束還沒完,前面取消了那3個命令的定義,現(xiàn)在要重新定義它們,幸好這位大蝦良心不算壞,只是讓命令不起作用或者改成其他加法命令,并沒寫成破壞性函數(shù)或OS命令EXPLODE的新功能和交互情況是:command: EXPLODESeltct objects: 200 foundSelect objects:200 was not able to be explodecommand:隨你怎么選,它就是說炸不了然后XREF和XBIND這對難兄難弟雙雙被改成了insert,交互響應(yīng)制作很不精良,根本就是空白,可能大蝦忽然覺得倦了吧.最后,它還重新定義了BONUS和EXPRESS TOOLS工具集里面提供的BURST命令,其實是個外部函數(shù)(c:burst)BURST原來的用途是Explode Attributes to Text,把屬性文本炸成text類