創(chuàng)建Lisp程序步驟

1、使用Visual LISP創(chuàng)建簡單的LISP應(yīng)用程序作者：佚名 點(diǎn)擊數(shù)：1523 更新：2007-2-2 7:08:10   熱      【字體：小 大】a>     本節(jié)通過一個(gè)簡單的實(shí)例來講述LISP程序的創(chuàng)建過程，介紹編制LISP程序的一些基本步驟，以及LISP程序在AutoCAD中的加載和運(yùn)行的方法。首先來創(chuàng)建一個(gè)最簡單的LISP程序-“Hello.lsp”，在AutoCAD 2002中加載并運(yùn)行該程序，將會在命令行出現(xiàn)“Hello, Visual LISP!

2、”。36.2.1 Visual LISP與AutoCAD的通信    用戶可以直接在AutoCAD命令行中鍵入AutoLISP表達(dá)式。AutoCAD通過括號來確認(rèn)AutoLISP表達(dá)式。AutoCAD每當(dāng)發(fā)現(xiàn)一個(gè)左括號，就確認(rèn)為AutoLISP表達(dá)式，并由AutoLISP求表達(dá)式的值后返回AutoCAD，AutoCAD使用返回結(jié)果并繼續(xù)進(jìn)行其他工作。     注意 在AutoLISP表達(dá)式中，左、右括號必須配對，否則AutoCAD將給出提示符n>，n表示右括號丟失數(shù)目。   &#

3、160;此外，在AutoCAD中調(diào)用并執(zhí)行AutoLISP程序。在AutoLISP程序中采用COMMAND函數(shù)來與AutoCAD命令程序處理器通信，COMMAND從AutoLISP獲得命令并將其傳給AutoCAD。36.2.2 實(shí)例1 最簡單的LISP程序“Hello.lsp”    Step 1 創(chuàng)建新文件    (1) 運(yùn)行AutoCAD 2002系統(tǒng)，以“acadiso.dwt”為樣板創(chuàng)建圖形文件，并調(diào)用“vlisp”命令進(jìn)入Visual LISP環(huán)境。     (2)

4、 單擊“Standard（標(biāo)準(zhǔn)）”工具欄中的 按鈕，新建一個(gè)LISP文件。    Step 2 輸入代碼并保存文件    (1) 在編輯窗口中輸入源文件“Hello.lsp”的代碼，如圖36-3所示。程序清單如下：    * Hello.lsp Visual LISP文件實(shí)例    (prompt "Pick point:") ;指定運(yùn)行時(shí)的提示信息    (setq ipt

5、(getpoint) ;在屏幕上指定一點(diǎn)并將其坐標(biāo)值賦予變量“ipt”    (setq hgt 15) ;給變量“hgt”賦值    (Command "_.TEXT" "_S" "STANDARD" ipt hgt 0 "Hello, Visual LISP!")    調(diào)用“Commnad”函數(shù)與AutoCAD進(jìn)行通信    (2) 單擊“Standa

6、rd（標(biāo)準(zhǔn)）”工具欄中的 按鈕，以“Hello.lsp”為名保存該文件。    Step 3 運(yùn)行LISP程序    (1) 確認(rèn)編輯窗口處于前臺狀態(tài)，選擇菜單【Tools（工具）】【Load Text in Editor（加載編輯器中的文字）】，則該程序被加載并運(yùn)行。系統(tǒng)將返回AutoCAD窗口，并提示用戶選擇一點(diǎn)，并以指定點(diǎn)為基點(diǎn)來繪制文字。結(jié)果如圖36-4所示。     (2) 如果用戶退出Visual LISP環(huán)境并返回AutoCAD系統(tǒng)窗口，則需要對該程序進(jìn)行加載后

7、，才能運(yùn)行。選擇菜單【Tools（工具）】【Load Appcation（加載應(yīng)用程序）】，彈出“Load/Unload Applications（加載/卸載應(yīng)用程序）”對話框，如圖36-5所示。查找并選擇上一步中所創(chuàng)建的“Hello.lsp”文件，并單擊Load按鈕進(jìn)行加載。加載后的文件名稱將顯示在“Loaded Applications（已加載的應(yīng)用程序）”列表中，并在對話框的左下部顯示加載信息。    (3) 完成加載后，單擊Load按鈕關(guān)閉對話框，系統(tǒng)將運(yùn)行“Hello.lsp”程序。    實(shí)例說明

8、60;   1. LISP源文件為ACSII格式，并忽略空格鍵、Tab鍵和回車鍵產(chǎn)生的空白。文件中的注釋部分可放在文件中任何一處，但必須以分號“;”開始。    2. 在編輯窗口中對文件進(jìn)行編輯時(shí)，如果對文件進(jìn)行了修改或添加了文本，則編輯窗口標(biāo)題欄上的控制圖標(biāo)將變?yōu)?，同時(shí)Visual LISP在狀態(tài)欄上的文件名后面顯示星號“*”。用戶保存該文件后，控制圖標(biāo)變?yōu)?，同時(shí)狀態(tài)欄上的星號消失。     3. Visual LISP中為程序編寫提供了專門的文本編輯器。該編輯器不僅僅是一個(gè)書寫

9、工具，不但具有常規(guī)的編輯功能，同時(shí)還具有許多專為支持AutoLISP編程而設(shè)計(jì)的功能，主要包括：    (1) 文件語法著色：用于識別AutoLISP程序的不同部分并給它們指定各自的顏色。這使得用戶可以更容易地找到程序的各個(gè)組成部分和拼寫錯(cuò)誤。    (2) 設(shè)置文本格式：可以設(shè)置AutoLISP代碼的格式，使代碼更易于閱讀。用戶可以從許多種不同的格式樣式中挑選自己喜歡的格式。    (3) 括號匹配：可以通過查找與任意開括號匹配的閉括號來幫助用戶檢測括號匹配錯(cuò)誤。 

10、;   (4) 執(zhí)行AutoLISP表達(dá)式：不必離開文本編輯器就可以測試表達(dá)式和代碼行。    (5) 多文件查找：文本編輯器用單個(gè)命令就可以在多個(gè)文件中查找某個(gè)詞或表達(dá)式。    (6) AutoLISP代碼的語法檢查：文本編輯器可以對AutoLISP代碼進(jìn)行求值并亮顯語法錯(cuò)誤。    4. 在AutoCAD中還可以自動加載LISP程序。每次啟動AutoCAD時(shí)，AutoCAD都從庫路徑中搜索acad.lsp文件。如果找到該文件，則將它加載到內(nèi)

11、存中。如果用戶在每次運(yùn)行AutoCAD時(shí)都需要加載某個(gè)AutoLISP程序，則可將該程序復(fù)制到acad.lsp文件中即可實(shí)現(xiàn)自動加載。用戶還可指定在每次創(chuàng)建新文件時(shí)加載acad.lsp文件，請參見第29章。     另一種由AutoCAD自動加載的AutoLISP程序文件用于定義當(dāng)前菜單的支持函數(shù)，其文件擴(kuò)展名為.mnl。當(dāng)AutoCAD加載菜單文件時(shí)，它用匹配的文件名來搜索.mnl文件。如果AutoCAD找到了該文件，則將它加載到內(nèi)存中。此功能確保AutoCAD加載適當(dāng)?shù)牟藛尾僮魉璧腁utoLISP函數(shù)。因此，也可以把LISP程序復(fù)制在當(dāng)前菜單相應(yīng)的.mnl文件中以實(shí)現(xiàn)自動加載。.mnl文件在acad.lsp之后加載。小 結(jié)    本章簡要介紹了Visual LISP的基本概念和作用，并通過一個(gè)簡單的實(shí)例講述了在AutoCAD中開發(fā)Visual LISP程序的過程。教程錄入：秘密花園    責(zé)任編輯：秘密花