第7章 建立應(yīng)用程序清華CAD二次開(kāi)發(fā) LISP

1、第第 7 章章 建立應(yīng)用程序建立應(yīng)用程序 AotuCAD AotuCAD既可以將直接加載的既可以將直接加載的AutoLISPAutoLISP源代碼解釋執(zhí)行，源代碼解釋執(zhí)行，也可以通過(guò)編譯器先將也可以通過(guò)編譯器先將AutoLISPAutoLISP源代碼編譯為可執(zhí)行程序，然源代碼編譯為可執(zhí)行程序，然后加載執(zhí)行。前者的優(yōu)點(diǎn)是可隨時(shí)測(cè)試或修改源代碼，可以利后加載執(zhí)行。前者的優(yōu)點(diǎn)是可隨時(shí)測(cè)試或修改源代碼，可以利用所有的調(diào)試程序的工具。后者的優(yōu)點(diǎn)是提高了執(zhí)行速度、對(duì)用所有的調(diào)試程序的工具。后者的優(yōu)點(diǎn)是提高了執(zhí)行速度、對(duì)源代碼保密。源代碼保密。 如果確認(rèn)已加載過(guò)的如果確認(rèn)已加載過(guò)的AutoLISPAutoL

2、ISP源代碼運(yùn)行正常，則應(yīng)將該源代碼運(yùn)行正常，則應(yīng)將該源代碼編譯為可執(zhí)行的機(jī)器代碼文件。該文件的擴(kuò)展名為源代碼編譯為可執(zhí)行的機(jī)器代碼文件。該文件的擴(kuò)展名為.fas.fas，是只有機(jī)器才能認(rèn)識(shí)的目標(biāo)文件。這樣，不僅提高了，是只有機(jī)器才能認(rèn)識(shí)的目標(biāo)文件。這樣，不僅提高了程序的加載和運(yùn)行速度，也起到了保護(hù)源代碼的作用。程序的加載和運(yùn)行速度，也起到了保護(hù)源代碼的作用。Visual Visual LISPLISP還可生成更復(fù)雜的擴(kuò)展名為還可生成更復(fù)雜的擴(kuò)展名為.vlx.vlx的可執(zhí)行文件。該文件的可執(zhí)行文件。該文件是包括已編譯的是包括已編譯的AutoLISPAutoLISP代碼和代碼和dcldcl、vb

3、avba等資源文件，是一個(gè)等資源文件，是一個(gè)打包的應(yīng)用程序。打包的應(yīng)用程序。 Visual LISPVisual LISP可以用可以用vlisp-compilevlisp-compile函數(shù)編譯單個(gè)的函數(shù)編譯單個(gè)的AutoLISPAutoLISP文件，也可以用文件，也可以用 生成應(yīng)用程序向?qū)蓱?yīng)用程序向?qū)?，將多個(gè)，將多個(gè)AutoLISPAutoLISP文件編譯成單個(gè)的文件編譯成單個(gè)的.fas .fas 和和.vlx.vlx文件。文件。 7.1 通過(guò)通過(guò)Visual LISP_compile 函數(shù)編譯單個(gè)文件函數(shù)編譯單個(gè)文件 該函數(shù)的調(diào)用格式為：該函數(shù)的調(diào)用格式為： (vlisp-compi

4、le mode filename out-filename) 其中：其中：mode為編譯的模式、為編譯的模式、filename為源文件的名字、為源文件的名字、out-filename為編為編譯后輸出的譯后輸出的.fas類型的執(zhí)行文件的名字。類型的執(zhí)行文件的名字。1.選擇編譯模式選擇編譯模式 mode 參數(shù)指定編譯模式，它可以是以下三種編譯模式之一：參數(shù)指定編譯模式，它可以是以下三種編譯模式之一：（1）st 標(biāo)準(zhǔn)編譯模式標(biāo)準(zhǔn)編譯模式標(biāo)準(zhǔn)編譯模式可以生成最小的執(zhí)行文件，它適合于只包括單個(gè)文件的程序。標(biāo)準(zhǔn)編譯模式可以生成最小的執(zhí)行文件，它適合于只包括單個(gè)文件的程序。（2）lsm 優(yōu)化并間接鏈接優(yōu)化并

5、間接鏈接（3）lsa 優(yōu)化并直接鏈接優(yōu)化并直接鏈接 優(yōu)化選項(xiàng)可使生成的的編譯文件效率更高，它適合于較大而且復(fù)雜的程序。優(yōu)化選項(xiàng)可使生成的的編譯文件效率更高，它適合于較大而且復(fù)雜的程序。優(yōu)化的基本功能如下：優(yōu)化的基本功能如下： 對(duì)已編譯函數(shù)直接引用，而不是引用函數(shù)名。該功能可提高代碼的運(yùn)行速對(duì)已編譯函數(shù)直接引用，而不是引用函數(shù)名。該功能可提高代碼的運(yùn)行速度并防止在運(yùn)行時(shí)對(duì)函數(shù)的重定義。度并防止在運(yùn)行時(shí)對(duì)函數(shù)的重定義。 去掉函數(shù)名使得已編譯代碼更安全、減少程序的長(zhǎng)度和縮短程序的加載時(shí)去掉函數(shù)名使得已編譯代碼更安全、減少程序的長(zhǎng)度和縮短程序的加載時(shí)間。間。 去掉所有局部變量名并對(duì)其直接鏈接引用，同樣

6、使得已編譯代碼更安全、去掉所有局部變量名并對(duì)其直接鏈接引用，同樣使得已編譯代碼更安全、并減小程序的大小和加載程序所用的時(shí)間。并減小程序的大小和加載程序所用的時(shí)間。2. 確定要編譯的確定要編譯的LSP源文件源文件 如果源文件在如果源文件在AutoCAD支持的搜索路徑下，可以不包括路徑名。選擇支持的搜索路徑下，可以不包括路徑名。選擇AutoCAD菜單菜單ToolsOptions，然后打開(kāi)，然后打開(kāi)Files選項(xiàng)卡并選取選項(xiàng)卡并選取Support File Search Path，可設(shè)置文件搜索路徑。，可設(shè)置文件搜索路徑。 例如，已設(shè)置文件搜索路徑為例如，已設(shè)置文件搜索路徑為d:user，就可以用表

7、達(dá)式（，就可以用表達(dá)式（vlisp-compile st sample.lsp)編譯驅(qū)動(dòng)器編譯驅(qū)動(dòng)器D的的user1目錄下的文件目錄下的文件sample.lsp。 如果如果d:user不是文件搜索路徑，那么，在指定源文件時(shí)必須包括完整的不是文件搜索路徑，那么，在指定源文件時(shí)必須包括完整的路徑名，如：路徑名，如： (vlisp-compile st d:userexample.lsp)或或(vlisp-compile st d:/user/ example.lsp) Visual LISP默認(rèn)源文件的擴(kuò)展名為默認(rèn)源文件的擴(kuò)展名為.lsp。3. 確定編譯器生成的輸出文件名確定編譯器生成的輸出文件名

8、 如果未指定輸出文件名，編譯器生成的文件和源文件同名同路徑，擴(kuò)展名如果未指定輸出文件名，編譯器生成的文件和源文件同名同路徑，擴(kuò)展名為為.fas。 例如，例如，(vlisp-compile st d:/user/example.lsp)編譯生成的文件在編譯生成的文件在d:/user/路徑下，文件名為路徑下，文件名為example.fas。 如果指定了輸出文件名但沒(méi)有指定輸出文件的路徑，如果指定了輸出文件名但沒(méi)有指定輸出文件的路徑，Visual LISP將把輸出將把輸出文件放在文件放在AutoCAD的安裝目錄下。例如，假定安裝目錄為的安裝目錄下。例如，假定安裝目錄為d:autocad2006，用表

9、達(dá)式用表達(dá)式(vlisp-compile st sample.lsp sample.fas)編譯生成的編譯生成的sample.fas，在在d:autocad2006 路徑下。路徑下。 通常，應(yīng)該指定輸出文件的完整路徑，可以省略輸出文件的擴(kuò)展名。例如：通常，應(yīng)該指定輸出文件的完整路徑，可以省略輸出文件的擴(kuò)展名。例如： (vlisp-compile st d:/user1/example1 d:/user2/example2)這樣可以保證這樣可以保證將輸出文件放到指定的目錄下。將輸出文件放到指定的目錄下。4.舉例舉例 假定假定AutoLISP源文件的名字是源文件的名字是example1.lsp，存

10、放在驅(qū)動(dòng)器，存放在驅(qū)動(dòng)器d的的user1目錄目錄下，文件的內(nèi)容是定義繪制螺釘?shù)拿?，命令的名字是下，文件的?nèi)容是定義繪制螺釘?shù)拿?，命令的名字是screw。編譯后的執(zhí)。編譯后的執(zhí)行文件名字是行文件名字是example2存放在驅(qū)動(dòng)器存放在驅(qū)動(dòng)器d的的user2目錄下。目錄下。（1）在）在AutoCAD的的Command：或控制臺(tái)：或控制臺(tái)_$ 提示下，調(diào)用提示下，調(diào)用vlisp-compile函數(shù)函數(shù)(vlisp-compile st d:/user1/example1 d:/user2/example2) 以標(biāo)準(zhǔn)模式編譯驅(qū)動(dòng)器以標(biāo)準(zhǔn)模式編譯驅(qū)動(dòng)器d的的user1目錄下的目錄下的LSP文件文件e

11、xample1.lsp，在驅(qū)動(dòng)，在驅(qū)動(dòng)器器d的的user2目錄下得到可執(zhí)行文件目錄下得到可執(zhí)行文件example2.fas。（2）了解編譯輸出（）了解編譯輸出（ Build Output ）窗口）窗口 如果源程序沒(méi)有錯(cuò)誤，將在圖如果源程序沒(méi)有錯(cuò)誤，將在圖7-1所示為所示為編譯輸出編譯輸出窗口顯示編譯過(guò)程各階窗口顯示編譯過(guò)程各階段的有關(guān)信息。首先是源代碼的語(yǔ)法和詞匯檢查，然后進(jìn)行編譯，并顯示源段的有關(guān)信息。首先是源代碼的語(yǔ)法和詞匯檢查，然后進(jìn)行編譯，并顯示源文件中所定義的函數(shù)名或文件中所定義的函數(shù)名或AutoCAD命令名，最后報(bào)告所生成的執(zhí)行文件的名命令名，最后報(bào)告所生成的執(zhí)行文件的名字和路徑。

12、字和路徑。 如果編譯器檢查到錯(cuò)誤，將在如果編譯器檢查到錯(cuò)誤，將在編譯輸出編譯輸出窗口顯示出錯(cuò)信息并停止編譯。窗口顯示出錯(cuò)信息并停止編譯。如果編譯器遇到重定義現(xiàn)有的如果編譯器遇到重定義現(xiàn)有的AutoLISP函數(shù)或?yàn)槭鼙Ｗo(hù)的符號(hào)賦值，將會(huì)發(fā)函數(shù)或?yàn)槭鼙Ｗo(hù)的符號(hào)賦值，將會(huì)發(fā)出警告消息。當(dāng)編譯器顯示警告和出錯(cuò)信息時(shí)，雙擊該類信息，將自動(dòng)切換出警告消息。當(dāng)編譯器顯示警告和出錯(cuò)信息時(shí)，雙擊該類信息，將自動(dòng)切換到文本編輯窗口，并亮顯含有該類出錯(cuò)信息的源程序代碼。到文本編輯窗口，并亮顯含有該類出錯(cuò)信息的源程序代碼。圖圖7-1編譯輸出窗口編譯輸出窗口 5.加載和運(yùn)行已編譯程序加載和運(yùn)行已編譯程序 無(wú)論是無(wú)論是.

13、fas文件，還是可以包含多個(gè)已編譯程序的文件，還是可以包含多個(gè)已編譯程序的.vlx打包文件，都打包文件，都可以在可以在Visual LISP控制臺(tái)窗口、控制臺(tái)窗口、AutoCAD命令提示處加載這些已編譯的命令提示處加載這些已編譯的 AutoLISP 程序，也可以在程序，也可以在AutoCAD菜單上選取菜單上選取ToolsLoad Application、ToolsAutoLISPLoad或或Visual LISP菜單上選取菜單上選取FileLoad File加載這些加載這些已編譯的已編譯的AutoLISP程序。程序。（1）在）在Visual LISP控制臺(tái)窗口加載已編譯的控制臺(tái)窗口加載已編譯的

14、LSP程序程序 (load d:/user2/example.fas) 如果不指定文件擴(kuò)展名，如果不指定文件擴(kuò)展名，load 函數(shù)首先查找并加載擴(kuò)展名為函數(shù)首先查找并加載擴(kuò)展名為.vlx 的文的文件；如果沒(méi)有找到件；如果沒(méi)有找到.vlx文件，文件，load 函數(shù)將查找并加載函數(shù)將查找并加載.fas文件；如果沒(méi)有文件；如果沒(méi)有找到找到.fas文件，文件，load函數(shù)將查找并加載函數(shù)將查找并加載.lsp 文件文件。 也可以選擇也可以選擇Visual LISP菜單菜單FileLoad File，通過(guò)隨后彈出的，通過(guò)隨后彈出的Load lisp file對(duì)話框來(lái)選擇要加載的文件。對(duì)話框來(lái)選擇要加載的文

15、件。（2）在）在Visual LISP控制臺(tái)提示下，輸入用括號(hào)括起的函數(shù)名，即可運(yùn)行該控制臺(tái)提示下，輸入用括號(hào)括起的函數(shù)名，即可運(yùn)行該函數(shù)。運(yùn)行用函數(shù)。運(yùn)行用LISP定義的定義的AutoCAD命令，不能省略命令名前面的命令，不能省略命令名前面的C：而且而且必須用括號(hào)括起。必須用括號(hào)括起。 在在AutoCAD窗口調(diào)用函數(shù)時(shí)，輸入的函數(shù)名和參數(shù)用括號(hào)括起，調(diào)用窗口調(diào)用函數(shù)時(shí)，輸入的函數(shù)名和參數(shù)用括號(hào)括起，調(diào)用LISP定義的定義的AutoCAD命令時(shí)，直接鍵入自定義的命令時(shí)，直接鍵入自定義的AutoCAD命令名。命令名。 （3）加載）加載 AutoLISP 擴(kuò)展函數(shù)擴(kuò)展函數(shù) Visual LISP對(duì)

16、對(duì)AutoLISP語(yǔ)言進(jìn)行了擴(kuò)展，這些擴(kuò)展函數(shù)的名稱以語(yǔ)言進(jìn)行了擴(kuò)展，這些擴(kuò)展函數(shù)的名稱以 vla-、vlax-和和vlr-開(kāi)頭。啟動(dòng)開(kāi)頭。啟動(dòng)AutoCAD時(shí)它們不會(huì)被自動(dòng)加載。在使用這些函數(shù)之時(shí)它們不會(huì)被自動(dòng)加載。在使用這些函數(shù)之前，必須調(diào)用前，必須調(diào)用vl-load-com函數(shù)加載這些函數(shù)加載這些AutoLISP擴(kuò)展函數(shù)。其格式如下：擴(kuò)展函數(shù)。其格式如下： (vl-load-com) 7.27.2用應(yīng)用程序生成器創(chuàng)建應(yīng)用程序用應(yīng)用程序生成器創(chuàng)建應(yīng)用程序 應(yīng)用程序生成器以向?qū)У姆绞綄?yīng)用程序生成器以向?qū)У姆绞綄utoLISPAutoLISP源代碼、已編譯的源代碼、已編譯的AutoLISP

17、AutoLISP程程序、對(duì)話框定義文件等資源文件生成獨(dú)立的可執(zhí)行文件，該文件的擴(kuò)展名為序、對(duì)話框定義文件等資源文件生成獨(dú)立的可執(zhí)行文件，該文件的擴(kuò)展名為.vlx.vlx，稱為，稱為VLXVLX文件。文件。 應(yīng)用程序生成器在創(chuàng)建應(yīng)用程序生成器在創(chuàng)建VLXVLX文件的同時(shí)，還生成了展名為文件的同時(shí)，還生成了展名為.fas.fas的已編的已編譯的譯的AutoLISPAutoLISP文件，擴(kuò)展名為文件，擴(kuò)展名為.prv.prv的程序生成文件。后者包括的程序生成文件。后者包括Visual Visual LISPLISP創(chuàng)建應(yīng)用程序所需的所有指令。創(chuàng)建應(yīng)用程序所需的所有指令。 用應(yīng)用程序生成器創(chuàng)建應(yīng)用程序

18、之前，應(yīng)該對(duì)源程序進(jìn)行完整的調(diào)試或用應(yīng)用程序生成器創(chuàng)建應(yīng)用程序之前，應(yīng)該對(duì)源程序進(jìn)行完整的調(diào)試或試運(yùn)行，以免在生成過(guò)程中出現(xiàn)的編譯錯(cuò)誤導(dǎo)致其不能完成創(chuàng)建工作。試運(yùn)行，以免在生成過(guò)程中出現(xiàn)的編譯錯(cuò)誤導(dǎo)致其不能完成創(chuàng)建工作。 假定假定gear.lspgear.lsp是以對(duì)話框?yàn)檩斎虢缑娴睦L制齒輪的是以對(duì)話框?yàn)檩斎虢缑娴睦L制齒輪的LISPLISP源程序，源程序，gear.dclgear.dcl是定義輸入齒輪參數(shù)的對(duì)話框文件，它們存放在驅(qū)動(dòng)器是定義輸入齒輪參數(shù)的對(duì)話框文件，它們存放在驅(qū)動(dòng)器d d的的user1user1目錄下，目錄下， 創(chuàng)建的應(yīng)用程序名字為創(chuàng)建的應(yīng)用程序名字為chilun chilun

19、 ，存放在驅(qū)動(dòng)器，存放在驅(qū)動(dòng)器D D的的user2user2目錄目錄下。用應(yīng)用程序生成器創(chuàng)建可執(zhí)行的程序步驟如下：下。用應(yīng)用程序生成器創(chuàng)建可執(zhí)行的程序步驟如下：(1) (1) 調(diào)用應(yīng)用程序生成向?qū)д{(diào)用應(yīng)用程序生成向?qū)?從從Visual LISPVisual LISP菜單上選擇菜單上選擇F FileileM Make Aplicationake AplicationN New Aplication ew Aplication WizardWizard，啟動(dòng)向?qū)?。，啟?dòng)向?qū)?。Visual LISPVisual LISP將顯示圖將顯示圖7-27-2所示向?qū)Ｊ綄?duì)話框。所示向?qū)Ｊ綄?duì)話框。圖圖7-2向

20、導(dǎo)模式對(duì)話框向?qū)Ｊ綄?duì)話框 (2) (2) 確定向?qū)Ｊ酱_定向?qū)Ｊ?應(yīng)用程序生成向?qū)в袘?yīng)用程序生成向?qū)в蠸impleSimple（簡(jiǎn)單）和（簡(jiǎn)單）和ExpertExpert（專家）兩種模式。在（專家）兩種模式。在簡(jiǎn)單模式下，只需指出簡(jiǎn)單模式下，只需指出LISPLISP源文件、源文件、LISPLISP編譯文件或編譯文件或Visual LISPVisual LISP工程文件工程文件和要?jiǎng)?chuàng)建的文件名；在專家模式下，可以設(shè)置許多其他的選項(xiàng)。如果是單一和要?jiǎng)?chuàng)建的文件名；在專家模式下，可以設(shè)置許多其他的選項(xiàng)。如果是單一LISPLISP程序，應(yīng)該選程序，應(yīng)該選SimpleSimple模式，本例因?yàn)檫€要包含

21、有對(duì)話框文件，因此選模式，本例因?yàn)檫€要包含有對(duì)話框文件，因此選擇擇ExpertExpert模式。單擊模式。單擊NextNext按鈕。將彈出圖按鈕。將彈出圖7-37-3所示所示應(yīng)用程序路徑應(yīng)用程序路徑對(duì)話框。對(duì)話框。圖圖7-3應(yīng)用程序路徑對(duì)話框應(yīng)用程序路徑對(duì)話框 (3) (3) 確定待建程序的位置和名稱確定待建程序的位置和名稱 在圖在圖7-37-3所示應(yīng)用程序路徑對(duì)話框的所示應(yīng)用程序路徑對(duì)話框的Application LocationApplication Location編輯框填寫編輯框填寫應(yīng)用程序所處的位置（目錄）?？梢酝ㄟ^(guò)應(yīng)用程序所處的位置（目錄）?？梢酝ㄟ^(guò)BrowseBrowse（瀏覽）

22、按鈕在目錄樹(shù)上（瀏覽）按鈕在目錄樹(shù)上指定應(yīng)用程序所處的位置，也可以在文本框中輸入完整的路徑名。例如：指定應(yīng)用程序所處的位置，也可以在文本框中輸入完整的路徑名。例如：d:/user2d:/user2。 在在Application NameApplication Name編輯框填寫要?jiǎng)?chuàng)建的應(yīng)用程序名。例如：編輯框填寫要?jiǎng)?chuàng)建的應(yīng)用程序名。例如：chilun,chilun,這樣將在這樣將在d:/user2/d:/user2/目錄下創(chuàng)建應(yīng)用程序文件目錄下創(chuàng)建應(yīng)用程序文件chilun.vlxchilun.vlx和程序生和程序生成文件成文件chilun.prvchilun.prv。圖圖7-4應(yīng)用選項(xiàng)對(duì)話框應(yīng)

23、用選項(xiàng)對(duì)話框 在簡(jiǎn)單模式和專家模式在簡(jiǎn)單模式和專家模式下都會(huì)出現(xiàn)圖下都會(huì)出現(xiàn)圖7-37-3所示應(yīng)用所示應(yīng)用程序路徑對(duì)話框。程序路徑對(duì)話框。 單擊單擊Next按鈕。彈出圖按鈕。彈出圖7-4所示所示應(yīng)用選項(xiàng)應(yīng)用選項(xiàng)對(duì)話框。對(duì)話框。 本例不打開(kāi)本例不打開(kāi)Separate Separate NamespaceNamespace切換開(kāi)關(guān)，單擊切換開(kāi)關(guān)，單擊NextNext按鈕將彈出圖按鈕將彈出圖7-57-5所示所示的的包含包含LISPLISP文件文件對(duì)話框。對(duì)話框。（5 5）確定）確定LISPLISP文件的類型文件的類型 LISP文件可以是文件可以是AutoLISP源代碼文件、編譯源代碼文件、編譯Aut

24、oLISP文件文件(FAS)或或Visual LISP工程文件三種類型。通過(guò)圖工程文件三種類型。通過(guò)圖7-5所示的包含所示的包含LISP文件對(duì)話框的下拉菜單文件對(duì)話框的下拉菜單確定確定LISP文件類型。文件類型。 圖圖7-5包含包含LISP文件對(duì)話框文件對(duì)話框 例如選擇了例如選擇了Lisp source filesLisp source files類型，并且單擊類型，并且單擊AddAdd按鈕，將彈出圖按鈕，將彈出圖7-67-6所示所示添加添加lisplisp源文件源文件對(duì)話框。對(duì)話框。（6 6）添加）添加lisplisp源文件源文件 可以使用標(biāo)準(zhǔn)的可以使用標(biāo)準(zhǔn)的WindowsWindows文件

25、選取方法來(lái)選取多個(gè)文件。在圖文件選取方法來(lái)選取多個(gè)文件。在圖7-67-6所示對(duì)所示對(duì)話框上選取話框上選取gear.lspgear.lsp文件之后，單擊文件之后，單擊打開(kāi)打開(kāi)按鈕可以將該文件添加到應(yīng)用程序按鈕可以將該文件添加到應(yīng)用程序中，見(jiàn)圖中，見(jiàn)圖7-77-7所示包含所示包含LispLisp文件的對(duì)話框。如果想繼續(xù)添加其他類型的文件，文件的對(duì)話框。如果想繼續(xù)添加其他類型的文件，先從下拉列表處選擇文件類型后再單擊先從下拉列表處選擇文件類型后再單擊AddAdd按鈕。按鈕。圖圖7-67-6添加添加lisplisp源文件對(duì)話框源文件對(duì)話框 如果指定的是如果指定的是AutoLISPAutoLISP源文件

26、，源文件，Visual LISPVisual LISP在打包成在打包成VLXVLX文件前先編譯文件前先編譯成成FASFAS類型的文件；如果指定的是類型的文件；如果指定的是FASFAS類型的文件，則直接將其打包；如果類型的文件，則直接將其打包；如果指定的是指定的是PRJPRJ類型的工程文件，則工程文件中的所有文件將根據(jù)其具體類型類型的工程文件，則工程文件中的所有文件將根據(jù)其具體類型先編譯再打包或直接打包成先編譯再打包或直接打包成VLXVLX文件。文件。 如果要從應(yīng)用程序中刪除文件，只需選取這些文件后單擊如果要從應(yīng)用程序中刪除文件，只需選取這些文件后單擊RemoveRemove按鈕按鈕即可，也可以

27、在選取一個(gè)或多個(gè)文件后，單擊鼠標(biāo)右鍵并從快捷菜單中選即可，也可以在選取一個(gè)或多個(gè)文件后，單擊鼠標(biāo)右鍵并從快捷菜單中選擇擇RemoveRemove項(xiàng)。項(xiàng)。圖圖7-77-7包含包含LispLisp文件的對(duì)話框文件的對(duì)話框 應(yīng)用程序文件的加載順序和它們?cè)趹?yīng)用程序文件的加載順序和它們?cè)?LISP Files to Include 對(duì)話框中列對(duì)話框中列出的順序相同。如果在加載時(shí)調(diào)用某函數(shù)，則必須在調(diào)用該函數(shù)前定義它。出的順序相同。如果在加載時(shí)調(diào)用某函數(shù)，則必須在調(diào)用該函數(shù)前定義它。在這種情況下，應(yīng)該把定義該函數(shù)的文件放在調(diào)用該函數(shù)的文件之前。選在這種情況下，應(yīng)該把定義該函數(shù)的文件放在調(diào)用該函數(shù)的文件之前

28、。選取待調(diào)整的文件名，然后點(diǎn)取下列按鈕即可。取待調(diào)整的文件名，然后點(diǎn)取下列按鈕即可。 TopTop： 移到列表頂端。移到列表頂端。 UpUp：移到上一文件之前。：移到上一文件之前。 DownDown：移到下一文件之后。：移到下一文件之后。 BottomBottom：移到列表底端。：移到列表底端。 也可以先選取待調(diào)整的文件名，然后單擊鼠標(biāo)右鍵，從隨后彈出的快也可以先選取待調(diào)整的文件名，然后單擊鼠標(biāo)右鍵，從隨后彈出的快捷菜單上選取相應(yīng)選項(xiàng)。如果是工程文件，因其內(nèi)的源文件順序已在工程捷菜單上選取相應(yīng)選項(xiàng)。如果是工程文件，因其內(nèi)的源文件順序已在工程文件內(nèi)定義，只能通過(guò)修改工程文件以改變?cè)次募捻樞颉Ｎ?/p>

29、件內(nèi)定義，只能通過(guò)修改工程文件以改變?cè)次募捻樞颉?由于將應(yīng)用程序生成向?qū)Т_定為專家模式，因此，單擊由于將應(yīng)用程序生成向?qū)Т_定為專家模式，因此，單擊NextNext按鈕，將按鈕，將彈出圖彈出圖7-87-8所示的所示的包含資源文件包含資源文件對(duì)話框。對(duì)話框。圖圖7-8 包含資源文件對(duì)話框包含資源文件對(duì)話框 （7 7）添加資源文件）添加資源文件 通過(guò)添加資源文件對(duì)話框?？梢杂锰砑釉次募念愃撇僮魈砑樱ㄒ迫ィ┩ㄟ^(guò)添加資源文件對(duì)話框?？梢杂锰砑釉次募念愃撇僮魈砑樱ㄒ迫ィ?duì)話框控制對(duì)話框控制DCL文件、文件、DVB 文件、文本文件等資源文件。如果添加的是文件、文本文件等資源文件。如果添加的是LISP工

30、程文件，在該工程文件中的所有文件都將被編譯并包含到工程文件，在該工程文件中的所有文件都將被編譯并包含到VLX文件。文件。 圖圖7-9添加添加DCL文件對(duì)話框文件對(duì)話框 點(diǎn)取圖點(diǎn)取圖7-8所示對(duì)話框的下拉列表，選取所示對(duì)話框的下拉列表，選取DCL files，點(diǎn)取，點(diǎn)取Add按鈕，將彈按鈕，將彈出圖出圖7-9所示的添加所示的添加DCL文件對(duì)話框。選取文件對(duì)話框。選取gear.dcl文件，點(diǎn)取文件，點(diǎn)取打開(kāi)打開(kāi)按鈕，該按鈕，該DCL文件將被加入到應(yīng)用程序中，見(jiàn)圖文件將被加入到應(yīng)用程序中，見(jiàn)圖710。 圖圖7-107-10包含資源文件對(duì)話框包含資源文件對(duì)話框單擊單擊Next按鈕，將彈出圖按鈕，將彈出

31、圖7-11所示的所示的確定編譯選項(xiàng)確定編譯選項(xiàng)對(duì)話框。對(duì)話框。 （8 8）確定編譯選項(xiàng)）確定編譯選項(xiàng) 僅在專家模式下才出現(xiàn)圖僅在專家模式下才出現(xiàn)圖7-117-11所示確定編譯選項(xiàng)如果選擇了所示確定編譯選項(xiàng)如果選擇了StandardStandard，此為標(biāo)準(zhǔn)模式，將生成最小的輸出文件，它適合于只包括單個(gè)文件的程序；此為標(biāo)準(zhǔn)模式，將生成最小的輸出文件，它適合于只包括單個(gè)文件的程序；如果選擇了如果選擇了Optimize and LinkOptimize and Link，此為優(yōu)化和鏈接模式，可使生成的的編譯，此為優(yōu)化和鏈接模式，可使生成的的編譯文件效率更高，它適合于較大和較復(fù)雜的程序。文件效率更高，

32、它適合于較大和較復(fù)雜的程序。圖圖7-11確定編譯選項(xiàng)對(duì)話框確定編譯選項(xiàng)對(duì)話框 本例選擇兩種模式均可，確定編譯選項(xiàng)后，單擊本例選擇兩種模式均可，確定編譯選項(xiàng)后，單擊Next按鈕將彈出圖按鈕將彈出圖7-12所所示的示的查看選項(xiàng)查看選項(xiàng)/編譯編譯應(yīng)用程序應(yīng)用程序?qū)υ捒?。?duì)話框。 （9 9） 創(chuàng)建應(yīng)用程序創(chuàng)建應(yīng)用程序 這是應(yīng)用程序生成向?qū)У淖詈笠徊?，單擊這是應(yīng)用程序生成向?qū)У淖詈笠徊?，單擊BackBack按鈕，返回到上一步，查按鈕，返回到上一步，查看上一步的選擇；單擊看上一步的選擇；單擊FinishFinish按鈕，創(chuàng)建應(yīng)用程序結(jié)束。按鈕，創(chuàng)建應(yīng)用程序結(jié)束。圖圖7-12查看選項(xiàng)查看選項(xiàng)/編譯應(yīng)用程序?qū)?/p>

33、話框編譯應(yīng)用程序?qū)υ捒?運(yùn)行運(yùn)行應(yīng)用程序生成應(yīng)用程序生成向?qū)ЫY(jié)束。在向?qū)ЫY(jié)束。在d:user2d:user2路徑下，生成了路徑下，生成了chilun.prvchilun.prv、chilun.vlxchilun.vlx和和gear.fasgear.fas文件。其中文件。其中chilun.prvchilun.prv是是包括包括Visual LISPVisual LISP創(chuàng)建應(yīng)用程序所需的程序生成文件創(chuàng)建應(yīng)用程序所需的程序生成文件,gear.vlx,gear.vlx是打包的可執(zhí)行文件，是打包的可執(zhí)行文件，gear.fasgear.fas是編譯是編譯gear.lspgear.lsp時(shí)生成的目標(biāo)時(shí)生成

34、的目標(biāo)文件。加載文件。加載gear.vlxgear.vlx或或gear.fasgear.fas，在，在CommandCommand： 提示下鍵入提示下鍵入GEARGEAR即可調(diào)用該應(yīng)用程序繪制齒輪。即可調(diào)用該應(yīng)用程序繪制齒輪。 如果只有如果只有AutoLISPAutoLISP文件（源文件或目標(biāo)文件），在創(chuàng)建應(yīng)用文件（源文件或目標(biāo)文件），在創(chuàng)建應(yīng)用程序時(shí)，第程序時(shí)，第(2)(2)步應(yīng)選擇步應(yīng)選擇SimpleSimple（簡(jiǎn)單）作為向?qū)У哪Ｊ?，這樣（簡(jiǎn)單）作為向?qū)У哪Ｊ?，這樣可以省略第（可以省略第（4 4）、（）、（7 7）和（）和（8 8）步。）步。7.3 7.3 利用工程管理器管理和維護(hù)利用工

35、程管理器管理和維護(hù)LISPLISP文件文件 AutoLISPAutoLISP應(yīng)用程序通常都是由多個(gè)獨(dú)立的應(yīng)用程序通常都是由多個(gè)獨(dú)立的LISPLISP文件組成的。隨著應(yīng)用程文件組成的。隨著應(yīng)用程序中文件數(shù)量的增加，對(duì)這些文件的管理和維護(hù)就變得很困難。在這種情況序中文件數(shù)量的增加，對(duì)這些文件的管理和維護(hù)就變得很困難。在這種情況下，應(yīng)該使用下，應(yīng)該使用Visual LISPVisual LISP提供的最有效的工具提供的最有效的工具工程管理器。工程管理器。7.3.1 7.3.1 工程管理器的功能工程管理器的功能 工程管理器通過(guò)命名的工程對(duì)工程所包含的工程管理器通過(guò)命名的工程對(duì)工程所包含的LISPLIS

36、P文件進(jìn)行管理和維護(hù)。文件進(jìn)行管理和維護(hù)。一個(gè)工程在本質(zhì)上就是一個(gè)一個(gè)工程在本質(zhì)上就是一個(gè)LISPLISP源文件表和一套如何編譯這些文件的規(guī)則。源文件表和一套如何編譯這些文件的規(guī)則。 工程管理器具有以下的功能。工程管理器具有以下的功能。 檢查應(yīng)用程序中哪些檢查應(yīng)用程序中哪些LISPLISP源文件尚未被編譯或者在上一次編譯后又被修源文件尚未被編譯或者在上一次編譯后又被修改過(guò)，并自動(dòng)編譯這樣的一些文件。改過(guò)，并自動(dòng)編譯這樣的一些文件。 通過(guò)一個(gè)命名的工程的列表，可以很簡(jiǎn)單地查找并打開(kāi)相關(guān)的文件。通過(guò)一個(gè)命名的工程的列表，可以很簡(jiǎn)單地查找并打開(kāi)相關(guān)的文件。 可以在一個(gè)工程的所有的文件中查找指定的源程

37、序代碼。可以在一個(gè)工程的所有的文件中查找指定的源程序代碼。 可以通過(guò)直接鏈接多個(gè)源文件中的相同描述來(lái)優(yōu)化編譯結(jié)果?？梢酝ㄟ^(guò)直接鏈接多個(gè)源文件中的相同描述來(lái)優(yōu)化編譯結(jié)果。 下面通過(guò)一個(gè)實(shí)例介紹利用工程管理器管理和維護(hù)多個(gè)下面通過(guò)一個(gè)實(shí)例介紹利用工程管理器管理和維護(hù)多個(gè)LISPLISP文文件的有關(guān)操作。件的有關(guān)操作。【例例7-17-1】定義以遞規(guī)方式繪制旋轉(zhuǎn)正六邊形的命令。正六邊形定義以遞規(guī)方式繪制旋轉(zhuǎn)正六邊形的命令。正六邊形的旋轉(zhuǎn)中心的旋轉(zhuǎn)中心pcpc、最大邊長(zhǎng)、最大邊長(zhǎng)lmaxlmax、最小邊長(zhǎng)、最小邊長(zhǎng)lminlmin和旋轉(zhuǎn)角和旋轉(zhuǎn)角alfalf是交是交互輸入的參數(shù)。正六邊形在旋轉(zhuǎn)過(guò)程中，除

38、了最外層的正六邊形互輸入的參數(shù)。正六邊形在旋轉(zhuǎn)過(guò)程中，除了最外層的正六邊形之外，每一個(gè)正六邊形的頂點(diǎn)都在前一個(gè)正六邊形的邊上，當(dāng)正之外，每一個(gè)正六邊形的頂點(diǎn)都在前一個(gè)正六邊形的邊上，當(dāng)正六邊形的邊長(zhǎng)縮短到近似最小邊長(zhǎng)六邊形的邊長(zhǎng)縮短到近似最小邊長(zhǎng)lminlmin時(shí)，繪制結(jié)束，見(jiàn)圖時(shí)，繪制結(jié)束，見(jiàn)圖7-137-13（a a）。從圖）。從圖7-137-13（b b）可以看出每個(gè)正六邊形與旋轉(zhuǎn)后的下一個(gè)）可以看出每個(gè)正六邊形與旋轉(zhuǎn)后的下一個(gè)正六邊形的邊長(zhǎng)之間具有以下的關(guān)系：正六邊形的邊長(zhǎng)之間具有以下的關(guān)系： )60sin(2)120sin(1LalfL（a a） （b b） 圖圖7-137-13以遞

39、歸方式繪的制旋轉(zhuǎn)正六邊形以遞歸方式繪的制旋轉(zhuǎn)正六邊形 為了演示多文件的操作，將該程序分別存放于兩個(gè)文件。為了演示多文件的操作，將該程序分別存放于兩個(gè)文件。文件文件file1.lspfile1.lsp存放該程序的主函數(shù)部分。主函數(shù)定義了名字為存放該程序的主函數(shù)部分。主函數(shù)定義了名字為r-hexagonr-hexagon的的AutoCADAutoCAD命令。文件命令。文件file2.lspfile2.lsp定義了名字為定義了名字為hexagonhexagon的函數(shù)。函數(shù)的函數(shù)。函數(shù)hexagonhexagon被主函數(shù)調(diào)用。它們都存放在被主函數(shù)調(diào)用。它們都存放在d d盤盤的的user1user1目錄

40、下。目錄下。 文件文件file1.lspfile1.lsp的源代碼如下：的源代碼如下：(defun c:r-hexagon( / pc lmax lmin alf ) (defun c:r-hexagon( / pc lmax lmin alf ) (setvar cmdecho 0) (setvar cmdecho 0) ; ;關(guān)閉普通命令提示信息關(guān)閉普通命令提示信息 (setvar blipmode 0) (setvar blipmode 0) ; ;關(guān)閉光標(biāo)痕跡關(guān)閉光標(biāo)痕跡 (setvar osmode 0) (setvar osmode 0) ; ;關(guān)閉對(duì)象捕捉狀態(tài)關(guān)閉對(duì)象捕捉狀態(tài) (

41、setq pc(getpoint n(setq pc(getpoint n輸入正六邊形的旋轉(zhuǎn)中心輸入正六邊形的旋轉(zhuǎn)中心:):) (setq lmax(getdist pc n (setq lmax(getdist pc n輸入正六邊形的最大邊長(zhǎng)輸入正六邊形的最大邊長(zhǎng):):) (setq lmin(getdist pc n (setq lmin(getdist pc n輸入正六邊形的最小邊長(zhǎng)輸入正六邊形的最小邊長(zhǎng):):) (setq alf(getangle pc n (setq alf(getangle pc n輸入正六邊形的旋轉(zhuǎn)角輸入正六邊形的旋轉(zhuǎn)角:):) (hexagon pc lmax

42、 lmin 0.0)(hexagon pc lmax lmin 0.0) ; ;調(diào)用遞歸方式繪制旋轉(zhuǎn)正六邊形的函數(shù)調(diào)用遞歸方式繪制旋轉(zhuǎn)正六邊形的函數(shù) (princ) (princ) ; ;靜默退出靜默退出) )文件文件file2.lspfile2.lsp的源代碼如下：的源代碼如下：(defun (defun hexagon (pc l lmin phi )hexagon (pc l lmin phi ) ; ;變?cè)冊(cè)猵hiphi是正六邊形的初始角度是正六邊形的初始角度 (command pline (polar pc phi l)(command pline (polar pc phi l)

43、 (polar pc (+ phi (/ pi 3.0 ) l) (polar pc (+ phi (/ pi 3.0 ) l) (polar pc (+ phi (/ pi 1.5 ) l) (polar pc (+ phi (/ pi 1.5 ) l) (polar pc (+ phi pi) l) (polar pc (+ phi pi) l) (polar pc (+ phi (/ pi 0.75) l) (polar pc (+ phi (/ pi 0.75) l) (polar pc (+ phi (/ pi 0.6 ) l) (polar pc (+ phi (/ pi 0.6

44、) l) c c ) ) (if (= l lmin) (if (= l lmin) (progn (progn (setq l(/ l (+ (cos alf) ( (setq l(/ l (+ (cos alf) (* * (sin alf) 0.5773503) (sin alf) 0.5773503); ;下一個(gè)正六邊形的邊長(zhǎng)下一個(gè)正六邊形的邊長(zhǎng) (setq phi (+ phi alf) (setq phi (+ phi alf) ; ;下一個(gè)正六邊形的旋轉(zhuǎn)角度下一個(gè)正六邊形的旋轉(zhuǎn)角度 (hexagon pc l lmin phi)(hexagon pc l lmin phi) ;

45、;繪制下一個(gè)正六邊形繪制下一個(gè)正六邊形 ) )7.3.2 7.3.2 創(chuàng)建一個(gè)工程創(chuàng)建一個(gè)工程1. 1. 創(chuàng)建一個(gè)工程文件創(chuàng)建一個(gè)工程文件 選擇菜單選擇菜單ProjectProjectNew projectNew project，將彈出圖，將彈出圖7-147-14所示的新所示的新工程對(duì)話框，此對(duì)話框用于確定新工程的路徑和文件名。例如工程對(duì)話框，此對(duì)話框用于確定新工程的路徑和文件名。例如輸入工程的名字為輸入工程的名字為rhrh，存放在，存放在d d盤的盤的user2user2目錄下。目錄下。 圖圖7-147-14新工程對(duì)話框新工程對(duì)話框 2. 2. 向工程添加向工程添加LISPLISP源文件源文

46、件 單擊圖單擊圖7-147-14新工程對(duì)話框的保存按鈕，將彈出圖新工程對(duì)話框的保存按鈕，將彈出圖7-157-15所示所示的工程特性對(duì)話框。該對(duì)的工程特性對(duì)話框。該對(duì)話框有話框有工程文件工程文件和和編譯選編譯選項(xiàng)項(xiàng)兩個(gè)選項(xiàng)卡。工程文件兩個(gè)選項(xiàng)卡。工程文件選項(xiàng)卡用于向工程添加選項(xiàng)卡用于向工程添加LISPLISP源文件。源文件。 圖圖7-157-15工程特性對(duì)話框工程特性對(duì)話框 圖圖7-157-15所示為工程文件選項(xiàng)卡。通過(guò)按鈕所示為工程文件選項(xiàng)卡。通過(guò)按鈕 指定指定LISPLISP源文件源文件的路徑，路徑下方的列表顯示了該路徑下所有的的路徑，路徑下方的列表顯示了該路徑下所有的LISPLISP文件名

47、。文件名。選取該列表的一個(gè)或多個(gè)文件，單擊按鈕選取該列表的一個(gè)或多個(gè)文件，單擊按鈕 ，被選的文件就會(huì)，被選的文件就會(huì)轉(zhuǎn)移到右邊的列表內(nèi)。右邊的列表顯示了該工程當(dāng)前包含的所轉(zhuǎn)移到右邊的列表內(nèi)。右邊的列表顯示了該工程當(dāng)前包含的所有有LISPLISP文件名。文件名。 如果選取右邊列表的一個(gè)文件，單擊按鈕如果選取右邊列表的一個(gè)文件，單擊按鈕 ，被選的文件，被選的文件就會(huì)從當(dāng)前的工程中移回原處。按鈕就會(huì)從當(dāng)前的工程中移回原處。按鈕TopTop、UpUp、DownDown和和BottomBottom用用于排列于排列LISPLISP文件在列表框中的順序，該順序即為加載這些文件文件在列表框中的順序，該順序即為

48、加載這些文件的順序。的順序。 例如，在圖例如，在圖7-157-15所示為工程文件選項(xiàng)卡上單擊按鈕所示為工程文件選項(xiàng)卡上單擊按鈕 ，指，指定定LISPLISP源文件的路徑為源文件的路徑為d d盤的盤的user1user1。路徑下方的列表內(nèi)顯示了。路徑下方的列表內(nèi)顯示了user1user1路徑下的路徑下的LISPLISP文件名。選取該列表的文件文件名。選取該列表的文件file1file1和和file2file2之之后，單擊按鈕后，單擊按鈕 ，文件，文件file1file1和和file2file2將移至右邊的列表作為將移至右邊的列表作為rhrh工程的成員。單擊確定按鈕，將彈出圖工程的成員。單擊確定按

49、鈕，將彈出圖7-167-16所示的工程窗口，所示的工程窗口，名字為名字為rhrh的工程創(chuàng)建完畢，同時(shí)在的工程創(chuàng)建完畢，同時(shí)在d d盤的盤的user2user2目錄下得到了名目錄下得到了名字為字為rh.prjrh.prj的工程文件。的工程文件。 7.3.3 7.3.3 工程窗口工程窗口 工程窗口的標(biāo)題顯示了該工程的名字，列表框內(nèi)顯示了該工工程窗口的標(biāo)題顯示了該工程的名字，列表框內(nèi)顯示了該工程包含的所有的程包含的所有的LISPLISP源文件的名字，雙擊列表框內(nèi)的任意一個(gè)源文件的名字，雙擊列表框內(nèi)的任意一個(gè)文件名（無(wú)論文件是否打開(kāi)）即可激活包含該文件的文本編輯文件名（無(wú)論文件是否打開(kāi)）即可激活包含該

50、文件的文本編輯窗口。窗口。 圖圖7-167-16工程窗口工程窗口 工程窗口的工具欄上有工程窗口的工具欄上有5 5個(gè)按鈕，它們分別具有以下的功能。個(gè)按鈕，它們分別具有以下的功能。 ：彈出圖：彈出圖7-157-15所示的工程特性對(duì)話框，通過(guò)該對(duì)話框修改該工所示的工程特性對(duì)話框，通過(guò)該對(duì)話框修改該工程的特性。程的特性。 ：加載工程中所有經(jīng)過(guò)編譯的：加載工程中所有經(jīng)過(guò)編譯的.fas.fas文件。如果某些文件。如果某些LISPLISP文件尚未被編譯，文件尚未被編譯，則顯示如圖則顯示如圖7-177-17所示的是否編譯這些文件的詢問(wèn)信息。單擊按鈕所示的是否編譯這些文件的詢問(wèn)信息。單擊按鈕 是是 ，則首，則首

51、先編譯這些文件，然后將其加載，單擊按鈕先編譯這些文件，然后將其加載，單擊按鈕 否否 ，則直接加載這些，則直接加載這些LISPLISP源文源文件和已經(jīng)存在的件和已經(jīng)存在的.fas.fas文件。文件。 假定文件假定文件file1.lspfile1.lsp和和file2.lspfile2.lsp尚未被編譯，單擊此按鈕，在圖尚未被編譯，單擊此按鈕，在圖7-177-17所所示的詢問(wèn)框中單擊按鈕示的詢問(wèn)框中單擊按鈕 是是 ，則首先編譯這兩個(gè)文件，然后加載剛生成的，則首先編譯這兩個(gè)文件，然后加載剛生成的file1.fasfile1.fas和和file2. fasfile2. fas。這時(shí)在。這時(shí)在AutoC

52、ADAutoCAD的的CommandCommand： 提示下，鍵入提示下，鍵入r-r-hexagonhexagon命令即可繪制旋轉(zhuǎn)正六邊形。命令即可繪制旋轉(zhuǎn)正六邊形。 ：加載工程中所有的：加載工程中所有的LISPLISP源文件。源文件。 ：編譯工程中所有的在上一次編譯后被修改過(guò)的文件，生成新的：編譯工程中所有的在上一次編譯后被修改過(guò)的文件，生成新的.fas.fas文文件。件。 ：重新編譯工程中所有的：重新編譯工程中所有的LISPLISP，無(wú)論這些文件是否已經(jīng)被編譯過(guò)。，無(wú)論這些文件是否已經(jīng)被編譯過(guò)。以上操作也可以通過(guò)工程的快捷菜單的相應(yīng)選項(xiàng)完成。將鼠標(biāo)移至工程窗以上操作也可以通過(guò)工程的快捷菜單

53、的相應(yīng)選項(xiàng)完成。將鼠標(biāo)移至工程窗口的列表框內(nèi)，單擊鼠標(biāo)右鍵，將彈出圖口的列表框內(nèi)，單擊鼠標(biāo)右鍵，將彈出圖7-187-18所示的快捷菜單，其中各菜所示的快捷菜單，其中各菜單項(xiàng)的功能見(jiàn)下一頁(yè)。單項(xiàng)的功能見(jiàn)下一頁(yè)。圖圖7-187-18工程窗口的快捷菜單工程窗口的快捷菜單 EditEdit：編輯選中的文件：編輯選中的文件Add FileAdd File：打開(kāi)工程特性對(duì)話框，向工程中添加文件：打開(kāi)工程特性對(duì)話框，向工程中添加文件Remove fileRemove file：從工程中刪除選中的文件：從工程中刪除選中的文件LoadLoad：加載所選文件的：加載所選文件的.fas.fas文件，如果所選文件尚未

54、被編譯，則加載其文件，如果所選文件尚未被編譯，則加載其LISPLISP源文件源文件Load sourceLoad source：加載所選文件的：加載所選文件的LISPLISP源文件源文件Check syntaxCheck syntax：對(duì)所選的文件進(jìn)行語(yǔ)法檢查：對(duì)所選的文件進(jìn)行語(yǔ)法檢查TouchTouch： 處理處理 所選的文件。經(jīng)過(guò)所選的文件。經(jīng)過(guò) 處理處理 的文件即使是新編譯過(guò)的，單擊圖標(biāo)的文件即使是新編譯過(guò)的，單擊圖標(biāo) 時(shí)時(shí) 也要再次重新編譯。也要再次重新編譯。Arrange filesArrange files：根據(jù)該菜單項(xiàng)的下一級(jí)菜單提供的規(guī)則對(duì)工程中的成員排序：根據(jù)該菜單項(xiàng)的下一級(jí)

55、菜單提供的規(guī)則對(duì)工程中的成員排序Multiple SelectionMultiple Selection：?jiǎn)螕粼摬藛雾?xiàng)可以切換否具有多選功能的狀態(tài)。若設(shè)置為多：?jiǎn)螕粼摬藛雾?xiàng)可以切換否具有多選功能的狀態(tài)。若設(shè)置為多 選，菜單項(xiàng)前加標(biāo)記選，菜單項(xiàng)前加標(biāo)記 UnSelect allUnSelect all：沒(méi)有一個(gè)文件被選取時(shí)，選取所有文件。已經(jīng)選取了一些文件時(shí)：沒(méi)有一個(gè)文件被選取時(shí)，選取所有文件。已經(jīng)選取了一些文件時(shí) ，放棄選取的那些文件，放棄選取的那些文件Close projectClose project：關(guān)閉當(dāng)前的工程：關(guān)閉當(dāng)前的工程Save proct asSave proct as：將當(dāng)

56、前的工程另存為其他名字將當(dāng)前的工程另存為其他名字 7.3.4 7.3.4 在工程中查找源程序代碼在工程中查找源程序代碼 單擊查找按鈕單擊查找按鈕 ，彈出圖，彈出圖7-197-19所示的查找對(duì)話框。打開(kāi)所示的查找對(duì)話框。打開(kāi)ProjectProject互鎖按鈕，通過(guò)互鎖按鈕，通過(guò)ProjectProject下拉列表選取一個(gè)工程，在下拉列表選取一個(gè)工程，在Find WhatFind What列表輸入或選擇要查找的源程序代碼，單擊列表輸入或選擇要查找的源程序代碼，單擊FindFind按鈕按鈕，在圖，在圖7-207-20所示的查找輸出窗口報(bào)告了在指定工程的所有文件所示的查找輸出窗口報(bào)告了在指定工程的所

57、有文件中查找的結(jié)果。中查找的結(jié)果。 圖圖7-197-19查找對(duì)話框查找對(duì)話框 例如，通過(guò)例如，通過(guò)ProjectProject下拉列表選取工程下拉列表選取工程rhrh，在，在Find WhatFind What列表列表輸入輸入hexagonhexagon，單擊，單擊FindFind按鈕，在圖按鈕，在圖7-207-20所示的查找輸出窗口中所示的查找輸出窗口中顯示了在文件顯示了在文件file2.lspfile2.lsp和和file1.lspfile1.lsp中含有源代碼中含有源代碼hexagonhexagon的的4 4個(gè)表達(dá)式。雙擊其中任意一個(gè)表達(dá)式，就會(huì)激活該表達(dá)式所在個(gè)表達(dá)式。雙擊其中任意一個(gè)

58、表達(dá)式，就會(huì)激活該表達(dá)式所在的文件，并且亮顯所查找的源代碼，例如的文件，并且亮顯所查找的源代碼，例如hexagonhexagon處于被選狀態(tài)處于被選狀態(tài)。 圖圖7-207-20查找輸出窗口查找輸出窗口 7.3.5 7.3.5 通過(guò)工程創(chuàng)建應(yīng)用程序通過(guò)工程創(chuàng)建應(yīng)用程序 上一節(jié)介紹了用應(yīng)用程序生成器創(chuàng)建應(yīng)用程序的全過(guò)程。在上一節(jié)介紹了用應(yīng)用程序生成器創(chuàng)建應(yīng)用程序的全過(guò)程。在第第5 5步確定步確定LISPLISP文件的類型時(shí)，除了選擇文件的類型時(shí)，除了選擇LISPLISP源文件和編譯過(guò)的源文件和編譯過(guò)的LISPLISP文件之外，還可以選擇文件之外，還可以選擇Visual LISPVisual LIS

59、P工程文件。通過(guò)指定的工程文件。通過(guò)指定的工程文件名，該工程所包含的所有文件都被添加到應(yīng)用程序中工程文件名，該工程所包含的所有文件都被添加到應(yīng)用程序中。 例如，通過(guò)圖例如，通過(guò)圖7-217-21所示的包含所示的包含LISPLISP文件對(duì)話框的下拉列表選文件對(duì)話框的下拉列表選擇擇VisualLISP projectVisualLISP project，單擊，單擊AddAdd按鈕，通過(guò)隨后彈出的按鈕，通過(guò)隨后彈出的Add Add VisualLISP project filesVisualLISP project files對(duì)話框選擇對(duì)話框選擇d d盤的盤的user2user2目錄下的目錄下的rh

60、.prjrh.prj工程文件，見(jiàn)圖工程文件，見(jiàn)圖7-217-21。最后單擊。最后單擊NextNext按鈕，進(jìn)行下一步按鈕，進(jìn)行下一步操作。此時(shí)操作。此時(shí)d d盤的盤的user1user1目錄下的文件目錄下的文件file1.lspfile1.lsp和和file2.lspfile2.lsp被被添加到當(dāng)前的應(yīng)用程序。添加到當(dāng)前的應(yīng)用程序。圖圖7-217-21選擇了選擇了VisualLISP projectVisualLISP project選項(xiàng)的包含選項(xiàng)的包含LISPLISP文件的對(duì)話框文件的對(duì)話框 7.3.6 7.3.6 優(yōu)化應(yīng)用程序優(yōu)化應(yīng)用程序 通過(guò)通過(guò)Visual LISPVisual LIS