警告你現在所觀看的,將是一個沉悶無比的網頁,裡面沒有甚麼精美漂亮的圖片,有的絕大部份都是文字;但如果你是一個想學習使用AutoLISP 程式設計的人,則本網頁將是你不容錯過的.如果你是個初學者,則強烈建議你到課程教室去;在這裡你將可以由淺至深, 學習如何使用AuotLISP作程式設計,並附有練習.若你需要一些實用的程式作為參考,則可到程式下載去, 這裡有多個實用性甚高的程式可供下載;只要略作修改,即可附合不同情況的需要.如果你巳對AutoLISP相當熟識,又想學習如何建立及使用對話框,則可到對話方框去, 在這裡你可以學習使用DCL語言,並配合AutoLISP程式來開發對話框.第一课基本知識AutoLISP是一種針對擴充及自訂AutoCAD函數機能而產生,以LISP為基礎的程式設計語言.LISP本身於50年代末期出現,是一種擅於處理串列文字(List of Processing),屬第四代「人工智能(Artificial Intelligence)」的電腦語言.目的是令使用者充份利用AutoCAD進行開發,直接增加及修改AutoCAD指令. AutoLisp語言建基於普通的LISP語言上,並擴充了許多適用於CAD的特殊功能而形成. 是一種能以直譯方式(不須先行編譯)亦可於AutoCAD內部執行的直譯性程序語言.程式容易學習及撰寫,程式即使出錯亦不會對作業系統(如DOS,WINDOWS)有不良影響. 數據及程式均統一以串列(List)結構表示.可直接調用幾乎全部的AutoCAD命令.既具備一般高級語言的基本結構和功能,亦有一般高級語言沒有的強大圖形處理能力.內建於AutoCAD應用程式,不須另行購買;亦不須使用特定的編輯器或開發環境.可配合AutoCAD提供的PDB,建立DCL(Dialog Control Language)文件創建對話方塊.缺點: 執行速度較ObjectArx(舊稱ARX,以C或C++程式開發,取代以前的ADS)程式慢;原程式不易保護;對低階的硬體資料不易存取.第二课資料型態(Data Type)整數(INT)沒有小數位的數值,32位元有號數,範圍從+2,147,483,647到-2,147,483,648實數(REAL)帶小數位的數值,以倍精度浮點格式儲存(最少14位小數) e.g. 12.5當數值在1與-1之間時,必須加上前導零 e.g. 0.05可以科學記號表示: 在E或e後加上次方值 e.g. 4.1e-6字串(STR)一般文字,其前後必須加上雙引號" e.g. "AutoCAD"控制字元或脫逸碼必須為小寫,且須在字元前加上反斜線\ e.g. "\AutoCAD"圖元名稱(ENAME)是指定給圖檔內物件的指標(Pointer,為16進位的數字標籤)e.g. <Entity name:14e5180>圖元名稱在圖檔內是唯一的,不會重複物件的圖元名稱只在目前作業中有效,再開啟圖檔時,會指定新的圖元名稱予該物件檔案(FILE)以OPEN函數所開啟檔案的指標,作為其它函數(讀寫該檔案)的引數續下一課....第三课續上一課....資料型態(Data Type)選集(PICKSET)用SSGET等函數建立的一個或多個物件的集合或群組轉化(V ARIANT)可將圖元名稱轉換為可與ActiveX配搭使用的VLA-Object物件符號(SYM)用以儲存靜態資料的名稱;例如內建或使用者定義的函數符號名稱不分大小寫,可由任意長度的可列印字元組成;但下列的字元除外:左括號( 右括號) 句點. 單引號' 雙引號" 分號;表(LIST)亦稱為串列,是放在一對小括號( ) 內,一個或多個元素的有序集合e.g. (1.0 "Lisp" ( ) (5.6 7))元素可以是字串,符號,整數或實數;也可以是另一個表元素與元素之間要用空格隔開,但元素與小括號之間則可以不隔空格為便於存取表內各元素,每個元素均有其序號;從表的左邊開始,第一個元素序號為0,依此類推表的大小即為其頂層元素的數量(內層嵌套式的表,視為單一元素)點對(Dotted Pair)亦是表的一種;表內有2個元素,中間以一圓點分隔,且元素與圓點之間亦須以空格分開若表內沒有任何元素,稱為空串列或空表;以( ) 或(NIL) 表示第四课變數(Variable)為程式執行中動態儲存資料的符號名稱;主要分為2類:區域(Local)變數又稱為局部變數;該變數只在該程式段落中有效,不能為其它程式使用全域(Global)變數又稱為整體變數;變數在所有程式段落中均可使用變數名稱與符號的限制相同,使用時宜採用有意義及易於辨別的名稱變數在賦值或使用前無須先行設定相同的變數可以儲存不同型態的資料(但同一時間內只可儲存一種型態)在指定新的資料之前,變數儲存的內容會保持不變賦值將資料給予指定的變數儲存以內建函數SETQ進行(可用於繪圖模式的指令行或AutoLISP程式),其語法如下:(SETQ 變數名稱1 資料1 [變數名稱2 資料2 ....] )e.g. (SETQ NAME "David" AGE 37 WEIGHT 72.5 POINT (LIST 10 20))在函數名稱之後,各參數以兩個一組,每組左邊為變數名稱,右邊為存入變數的資料亦可將變數名稱賦以空值(NIL) :e.g. (SETQ OCCUPATION NIL)要顯示變數所儲存的資料,可以使用內建函數PRINC(可用於繪圖模式的指令行或AutoLISP程式),其語法如下:(PRINC 變數名稱)e.g. COMMAND : (PRINC NAME) Result : David"David"在繪圖模式中,亦可於指令行中使用感嘆號! 來顯示變數內容,或作為指令選項的輸入值;語法如下:!變數名稱e.g. COMMAND : !NAME Result : "David"在Visual LISP的主控台視窗中,於提示符號_$ 後鍵入要顯示的變數名稱_$變數名稱e.g. _$NAME要檢查變數所儲存的資料型態,可使用內建函數TYPE;語法如下:(TYPE 變數名稱)e.g. COMMAND : (TYPE NAME) Result : STR若檢查的變數沒有儲存資料,則會傳回NIL第五课練習(Exercises)將四個座標分別存入四個變數中,並以LINE或PLINE指令,配合四個座標變數,畫出正四邊形.COMMAND : (SETQ POINT1 (LIST 0 0) POINT2 (LIST 0 10) POINT3 (LIST 10 10) POINT4 (LIST 10 0)) COMMAND : LINE ;直線段指令COMMAND : !POINT1 ;第一點(左下角起點)COMMAND : !POINT2 ;第二點(左上角)COMMAND : !POINT3 ;第三點(右上角)COMMAND : !POINT4 ;第四點(右下角)COMMAND : C ;自動連線至起點以關閉四邊形畫圓: 將圓心座標及半徑長度分別存入兩個變數中(變數名稱及資料型態自訂)COMMAND : (SETQ CEN (LIST 0 0) RAD 20) ;將圓心點設為座標0,0;半徑為20 COMMAND : CIRCLE ;執行劃圓指令Specify center.... : !CEN ;在提示後以變數CEN回應輸入Specify radius.... : !RAD ;在提示後以變數RAD回應輸入將不同型態的資料,分多次存入相同的變數內;每次均以PRINC及TYPE函數顯示變數內容及其資料型態COMMAND : (SETQ TEMP 1.2) ;將實數1.2存入變數TEMPCOMMAND : !TEMP Result : 1.2COMMAND : (TYPE TEMP) Result : REALCOMMAND : (SETQ TEMP "AutoLISP") ;將字串存入變數TEMPCOMMAND : !TEMP Result : "AutoLISP"COMMAND : (TYPE TEMP) Result : STR第六课基本運算加函數(+ [數值參數1 數值參數2 ....] )e.g. (+ 2.5 4 6) Result : 12.5函數的結果為各參數之總和若僅提供一個參數,則以0加上此參數的結果為返回值若沒有提供任何參數則傳回0;各參數須為整數或實數型態若所有參數均為整數,結果亦為整數;若其中一個參數為實數型態,結果會轉換為實數減函數(- [數值參數1 數值參數2 ....] )e.g. (- 10 2 3) Result : 5結果為第一個(最左邊)參數減去其右邊各參數的總和若只提供一個參數,返回值為0減去該參數的結果若沒有提供任何參數則傳回0;各參數須為整數或實數型態若所有參數均為整數,結果亦為整數;若其中一個參數為實數型態,結果會轉換為實數乘函數(* [數值參數1 數值參數2 ....] )e.g. (* 2 3 4) Result : 24結果為所有參數的乘積若只提供一個參數,則返回值為該參數乘以1的結果若沒有提供任何參數則傳回0;各參數須為整數或實數型態若所有參數均為整數,結果亦為整數;若其中一個參數為實數型態,結果會轉換為實數除函數(/ [數值參數1 數值參數2 ....] )e.g. (/ 24 2 3) Result : 4結果為第一個(最左邊)參數除以其右邊各參數的乘積若僅提供一個參數,則返回值為該參數除以1的結果若沒有提供任何參數則傳回0;各參數須為整數或實數型態若所有參數均為整數,結果亦為整數;若其中一個參數為實數型態,結果會轉換為實數注意: 在本篇教程中,各函數的數值參數,均可以變數(儲存值只可以是整數或實數,且不可以是空值nil)取代.第七课練習(Exercises)計算式(2+4)*3COMMAND : (* 3 (+ 2 4)) Result : 18計算式(50-8*5)/4COMMAND : (/ (- 50 (* 8 5)) 4) Result : 2注意: 上式的正確答案應是2.5,因為函數中的各參數均為整數,所以傳回的結果亦為整數遞增及遞減遞增(1+ 數值參數)e.g. (1+ 2) Result : 3遞減(1- 數值參數)e.g. (1- 4) Result : 3三角函數(Trinagular Function)正弦值(SIN 弧度參數)e.g. (SIN 1) Result : 0.841471餘弦值(COS 弧度參數)e.g. (COS 1) Result : 0.540302反正切值(ATAN 弧度參數)e.g. (A TAN 1) Result : 0.785398第八课其它數值處理次方值(EXPT 數值參數次方值)e.g. (EXPT 2 4) Result : 16若參數及次方值兩個均為整數,返回值亦是整數;若其中一個為實數,結果為實數開方根(SQRT 數值參數)e.g. (SQRT 30) Result : 5.47723絕對值(ABS 數值參數)e.g. (ABS -123) Result : 123餘數(REM [數值參數1 數值參數2 ....] )e.g. (REM 50 26 5) = (REM (REM 50 26) 5) Result : 4將參數1整除參數2的餘數若參數多於2個時,則會將餘數再整除下一個參數,再得出餘數;依此類推若其中一個參數為實數時,則結果為實數;否則為整數最大公約數(GCD 數值參數1 數值參數2 )e.g. (GCD 81 57) Result : 3兩個參數均必須為整數值型態自然對數(LOG 數值參數)e.g. (LOG 3.5) Result : 1.25276是EXP函數的反函數;傳回值為實數型態自然反對數(EXP 數值參數)e.g. (EXP 1.25276) Result : 3.49999是LOG函數的反函數;傳回值為實數型態第九课數值資料轉型實數轉整數(FIX 數值參數)e.g. (FIX 12.56) Result : 12只會截去小數部份(小數位不會4捨5入)整數轉實數(FLOAT 數值參數)e.g. (FLOAT 12) Result : 12.0整數轉字串(ITOA 數值參數)e.g. (ITOA -17) Result : "-17"數值轉字串(RTOS 數值參數[模式[小數位] ] )e.g. (RTOS 17.23333 2 3) Result : 12.266若不設定模式,則依係統變數LUNITS 的設定值轉換數值為字串若不設定小數位,則依係統變數LUPREC 的設定值轉換模式設定值可以是下列數值之一:1 = 科學記號2 = 十進位3 = 英呎及十進位英吋4 = 英呎及分數位英吋5 = 分數當選用的模式為3,4或5,則傳回的字串受係統變數UNITMODE影響弳度轉字串(ANGTOS 角度參數[模式[小數位] ] )e.g. (ANGTOS 0.785398 0) Result : "45"e.g. (ANGTOS 0.785398 4) Result : "N 45d E"若不設定模式,則依係統變數AUNITS的設定值轉換數值為字串若不設定小數位,則依係統變數AUPREC的設定值轉換模式設定值可以是下列數值之一:0 = 度1 = 度/分/秒2 = 分度量3 = 弳度4 = 土地測量單位當選用的模式為4,則傳回的字串受係統變數UNITMODE影響反函數為ANGTOF;參閱第5篇教程第十课數值資料檢查數值(NUMBERP 數值參數)e.g. (NUMBERP -3.45) Result : Te.g. (NUMBERP "AutoLISP") Result : nil注意: 在範例的傳回值中,T表示函數的結果為真(成立),nil表示結果為假(不成立) 負數值(MINUSP 數值參數)e.g. (MINUSP -3.45) Result : Te.g. (MINUSP 0) Result : nile.g. (MINUSP 3.45) Result : nil零值(ZEROP 數值參數)e.g. (ZEROP 0) Result : Te.g. (ZEROP 3.45) Result : nil其它應用最大值(MAX [數值參數1 數值參數2 ....] )e.g. (MAX -88 5 2) Result : 5若沒有提供任何參數,則傳回值為0最小值(MIN [數值參數1 數值參數2 ....] )e.g. (MIN -88 5 2) Result : -88若沒有提供任何參數,則傳回值為0第十一课練習(Exercises)計算下列算式:(+ 1234567890 1234567890) Result : -1825831516上式中兩個數值參數均為整數,而結果值大於整數型態所能容許之範圍;固導致發生溢位問題,產生無效的結果.修正算式如下: 只要將其中一個參數改為實數型態即可.(+ 1234567890.0 1234567890) Result : 2.46914e+009計算下列算式:(+ 9876543210 1234567890) Result : 1.11111e+010上式中兩個數值參數均為整數,但其中一個(第一個)參數巳大於整數型態所能容許之範圍;系統會自動將此參數先行轉為實數型態才計算.計算下列算式:(FIX (SQRT (+ 1 (MAX 20 10 40 30)))) Result : 6---- 最先執行的是最內層的算式(MAX 20 10 40 30) ,求出最大值為40---- 其次執行加函數,將MAX函數所得的最大值加1,結果為41---- 再利函數SQRT,將41開方根,結果為6.4031---- 最後使用FIX函數,截去其小數位,得到最後的結果為6第十二课使用者定義函數是將一群表示式組合成一個函數或指令可應用於繪圖模式的指令行提示,Visual LISP主控台,或供其它自定義函數內的表示式呼叫使用AutoLISP原始程式碼均以純文字格式存檔,副檔名為LSP(2000版可編譯成副檔名為FAS 的檔案可以一般文字編輯器進行開發,如DOS的EDIT,WINDOWS的WORD或WORDPAD等一個自定函數內最少要有一個表達式在原程式檔(LSP)裡,自定義函數以DEFUN函數開始;其語法如下:(DEFUN [C:] 函數名稱( [引數串列...] [/ 局部變數串列...] ) 表達式...)在呼叫帶有引數的自定函數時,必須同時提供與定義函數時,同等數量的參數,使各參數傳入自定函數的各引數中引數被視為一種特殊類型的局部變數,無法用於該自定函數以外的其它函數若自定函數中無須設定任何引數,亦必須以空串列( )加在函數名稱之後若有提供局部變數,必須以斜線/ 加在局部變數的開頭(即使前面沒有引數串列)各引數,斜線,局部變數之間要以空格分隔;但與左右小括號之間則不須以空格分開若引數串列中有相同名稱的引數出現,則會忽略第一個以後的相同引數;變數亦是一樣若在函數名稱前加上C:,表示該函數可以在繪圖模式的指令行提示下,其執行方式與內建函數相同;亦可以在任何內建命令(執行中)的提示後,以通透方式執行(但須將函數名稱包在一對小括號中)若在函數名稱前沒有加上C:,在指令行提示下,必須將函數名稱包在一對小括號中才可執行不可以在執行一自定函數時,以通透方式執行另一自定函數第十三课載入程式自定函數在使用前,都要將其所在的程式檔(副檔名為LSP)載入才可執行ACAD.LSP程式檔(預設在SUPPORT子目錄內)會在啟動AutoCAD時自動載入(LOAD "程式檔名稱" [載入失敗] )e.g. (LOAD "TEST")若程式檔之檔名為LSP,則在程式檔名稱之後,可以不加上副檔名若有需要,系統會順序嚐試其它的副檔名: VLX FAS LSP若程式檔不在系統的支援目錄下,則需在檔名前加上目錄路徑注意: 必須以正斜線/ 或兩個反斜線\\ 作為目錄的分隔符號可以在載入失敗的參數中提供字串,以供載入失敗時顯示;亦可提供有效的自定函數,該函數在載入程式檔失敗時會被執行e.g. (LOAD "TEST" "Load Fail") 或(LOAD "TEST" (DOERROR))注意:在程式檔載入後,在提示行顯示的返回值,一般是該程式檔中,最後被定義的函數名稱或是在程式檔內沒有包含在自定函數中,最後一個表達式的執行結果第十四课練習(Exercises)啟動文字編輯器,編寫一AutoLISP程式作兩個同心圓(第1個圓半徑為50,第2個圓半徑為80),程式碼如下所示:(DEFUN C: 2CIRCLE () (SETQ CEN (LIST 0 0) RAD 50)(COMMAND CIRCLE CEN RAD)(COMMAND CIRCLE CEN (+ RAD 30)))---- 輸入後以純文字格式存檔(C:\TEST.LSP)---- 在AutoCAD繪圖模式的指令行提示後,用LOAD函數將程式檔載入COMMAND : (LOAD "C:/TEST")---- 在指令行提示後,輸入程式(函數)名稱執行COMMAND : 2CIRCLE程式說明1 使用DEFUN建立自定函數的名稱,並用SETQ函數將中心點(LIST 0 0)存入變數CEN,半徑(50)存入變數RAD中2 使用COMMAND函數執行AutoCAD內建指令CIRCLE,並以變數CEN(圓的中心點)及變數RAD(圓的半徑)回應3 與第2行大致相同,但在指定其半徑時,先將儲存半徑的變數加30,使劃出半徑為80的圓;注意最右邊的關括號,與第1行DEFUN左邊的開括號是一對的啟動文字編輯器,開啟TEST.LSP程式檔,複製2CIRCLE至新程式2C,並改為傳入引數方式執行;程式碼如下:(DEFUN 2C (CEN RAD) (COMMAND CIRCLE CEN RAD)(COMMAND CIRCLE CEN (+ RAD 30)))---- 輸入後以純文字格式存檔---- 在AutoCAD繪圖模式的指令行提示後,用LOAD函數將程式檔重新載入---- 在指令行提示後,輸入程式(函數)名稱執行COMMAND : (2C (LIST 0 0) 50)第十五课註解單行註解分號;表示在分號右邊(同一行)的字元均為註解,程式執行時會將其忽略多行註解;| |;表示在兩個註解符號中間所有字元皆為註解,即使字元跨越多行關係運算在各個關係運算中,都會傳回一邏輯值;若關係成立,傳回T,否則會傳回nil各參數可以是字串,整數或實數型態;若以字串進行比較,則會以字串的ASCII碼為準若函數中只有一個參數,傳回值恆為T等於函數(= 參數1 [參數2 ....] )會將參數1與其後各個參數比較,若全部相等則傳回T,否則傳回nil e.g. (= 22.0) Result : Te.g. (= "A" CHR(65)) Result : T不等於函數(/= 參數1 [參數2 ....] )若參數1不等於其後任何一個參數,即傳回T e.g. (/= 1 2.0) Result : Te.g. (/= "a" CHR(65)) Result : Te.g. (/= 10 30 40 10 20) Result : T小於函數(< 參數1 [參數2 ....] )各參數順序以2個為一組比較,若各組左邊的參數均小於右邊的參數,即傳回Te.g. (< 1 2) Result : Te.g. (< "a" CHR(65)) Result : T大於函數(> 參數1 [參數2 ....] )各參數順序以2個為一組比較,若各組左邊的參數均大於右邊的參數,即傳回Te.g. (> 1 2) Result : nile.g. (> "a" CHR(65)) Result : nil小於或等於函數(<= 參數1 [參數2 ....] )各參數順序以2個為一組比較,若各組左邊的參數均小於或等於右邊的參數,即傳回Te.g. (<= 1 2) Result : Te.g. (<= 2 2) Result : Te.g. (<= "a" CHR(65)) Result : T大於或等於函數(>= 參數1 [參數2 ....] )各參數順序以2個為一組比較,若各組左邊的參數均大於或等於右邊的參數,即傳回Te.g. (>= 1 2) Result : nile.g. (>= 2 2) Result : Te.g. (>= "a" CHR(65)) Result : nil邏輯運算且運算(AND [表達式....] )若各表達式的傳回值均為T,函數即返回T 值;若其中一個傳回值為nil,函數傳回nile.g. (AND (< 1 2) (> 8 5)) Result : T或運算(OR [表達式....] )若各表達式的傳回值均為nil,函數即返回nil 值;若其中一個傳回值為T,函數傳回Te.g. (OR (> 1 2) (> 8 5)) Result : T否定運算(NOT 表達式)若表達式的傳回值為T,函數即返回nil 值;相反若表達式傳回值為nil,函數傳回T可用於檢查傳回值是否為nil另有一NULL函數與NOT函數功能相似e.g. (NOT (< 1 2)) Result : nil練習(Exercises)試求出50減25,與625的開方根值是否相等COMMAND : (= (- 50 25) (SQRT 625)) Result : T設計一簡單程式(名稱為AIR),在呼叫程式時,檢查傳入的數值引數(為空氣污染指數)是否大於200(即嚴重空氣污染)---- 啟動文字編輯器,開啟TEST.LSP程式檔,輸入下列程式碼:(DEFUN AIR (NUM) (> NUM 200))---- 輸入後存檔(純文字格式)---- 在AutoCAD繪圖模式的指令行提示符號後,使用LOAD函數重新載入程式檔COMMAND : (LOAD "C:/TEST")---- 在AutoCAD繪圖模式的指令行提示符號後,輸入自定函數名稱及參數執行COMMAND : (AIR 175) Result : nilCOMMAND : (AIR 215) Result : T第十七课且運算(AND [表達式....] )若各表達式的傳回值均為T,函數即返回T 值;若其中一個傳回值為nil,函數傳回nile.g. (AND (< 1 2) (> 8 5)) Result : T或運算(OR [表達式....] )若各表達式的傳回值均為nil,函數即返回nil 值;若其中一個傳回值為T,函數傳回Te.g. (OR (> 1 2) (> 8 5)) Result : T否定運算(NOT 表達式)若表達式的傳回值為T,函數即返回nil 值;相反若表達式傳回值為nil,函數傳回T可用於檢查傳回值是否為nil另有一NULL函數與NOT函數功能相似e.g. (NOT (< 1 2)) Result : nil練習(Exercises)試求出50減25,與625的開方根值是否相等COMMAND : (= (- 50 25) (SQRT 625)) Result : T設計一簡單程式(名稱為AIR),在呼叫程式時,檢查傳入的數值引數(為空氣污染指數)是否大於200(即嚴重空氣污染)---- 啟動文字編輯器,開啟TEST.LSP程式檔,輸入下列程式碼:(DEFUN AIR (NUM) (> NUM 200))---- 輸入後存檔(純文字格式)---- 在AutoCAD繪圖模式的指令行提示符號後,使用LOAD函數重新載入程式檔COMMAND : (LOAD "C:/TEST")---- 在AutoCAD繪圖模式的指令行提示符號後,輸入自定函數名稱及參數執行COMMAND : (AIR 175) Result : nilCOMMAND : (AIR 215) Result : T第十八课續上一課....IF函數的巢狀練習: 修改上一課的程式練習,將多個IF函數合併成巢狀嵌套---- 啟動文字編輯器,開啟C:/TEST.LSP程式檔---- 新增程式AIR-2,其程式碼如下:(DEFUN AIR-2 (NUM) (IF (> NUM 50) (PRINC (IF (> NUM 100) "Very high" "High")) (PRINC (IF (> NUM 25) "Medium" "Low")))(PRINC))程式說明1 設定函數名稱,並將資料存入引數NUM內;用IF函數判斷變數NUM是否大於50;若條件成立(變數NUM大於50)時,再用另一個IF函數判斷變數是否大於100;若條件成立(變數NUM大於100)時,使用PRINC函數顯示字串Very High,否則顯示High2 若在第1個IF函數判斷中,條件不成立(變數NUM不大於50)時;再用另一個IF函數判斷變數是否大於25;若條件成立(NUM大於25)時,顯示字串Medium,否則顯示字串Low3 是一個沒有提供任何引數的PRINC函數;用以抑制顯示答案時尾部符加的nil 或重複的傳回值;而最右一個關括號,是用以對應第1行最左邊的開括號注意:第1行最後一個關括號是對應前面的PRINC函數,尾2的關括號則是對應IF函數(判斷NUM是否大於100)第2行最後一個關括號是對應第1行的IF函數(判斷NUM是否大於50),尾2的關括號則是對應PRINC函數,尾3的關括號則是對應IF函數(判斷NUM是否大於25)最右邊的關括號是對應第1行最左邊的開括號PROGN 函數在以上各範例中,執行的表達式均為單一的函數運算;若要在表達式中順序執行一連串的函數,便要將各函數包含在一個PROGN函數內;函數的傳回值會是該PROGN函數中,最後一個表達式的運算結果---- 修改TEST.LSP程式檔的AIR-1程式,第1個IF函數如下,其餘的IF函數請自行修改e.g. (IF (> NUM 100) (PROGN (SETQ DISP "Very High") (PRINC DISP)))注意: 最後一個關括號是對應前面的IF函數(判斷變數NUM是否大於100)尾2的關括號是對應PROGN函數(用以包含SETQ及PRINC函數)尾3的關括號是對應PRINC函數的第十九课條件判斷多重條件(COND [ (條件表達式是表達式) ....] )函數會順序檢查各條件表達式;直到其中一個條件成立(傳回T),即執行該條件式所對應的是表達式每個條件表達式只對應一個是表達式,而沒有否表達式若條件式成立且執行對應的是表達式後,則不會再對餘下的其它條件表達式進行檢查若只有條件表達式而沒有對應之是表達式,則只會傳回條件表達式的邏輯值若沒有提供任何條件表達式及是表達式,函數傳回值恆為nil練習(Exercises)新增程式AIR-3,以改善上一課AIR-1程式;用一個COND函數判斷多個條件表達式DEFUN AIR-3 (NUM) (COND((> NUM 200) (PRINC "Severe"))((> NUM 100) (PRINC "Very High"))((> NUM 50) (PRINC "High"))((> NUM 25) (PRINC "Medium"))((> NUM 0) (PRINC "Low"))(T (PRINC "Cannot Check")))(PRINC))程式說明1 設定函數名稱,並將資料存入引數NUM內;用COND函數進行多重判斷2 判斷變數NUM是否大於200,若條件成立,則顯示Severe 訊息;第3至6行依此類推7 注意條件式為一個T 字母,表示條件式恆為真(成立),顯示訊息Cannot Check作用是當以上各條件式均不成立時(變數小於或等於0),即執行此一表達式第二十课迴圈(Loop)配合條件判斷,關係及邏輯運算,令程式不斷重複一些動作,以提高效率及減少重複動作時的人為錯誤可以多個迴圈形成巢狀(嵌套式)迴圈,即在一個迴圈內嵌套另一個(或多個)迴圈指定的重複次數必須為正整數,亦可以是儲存正整數的變數名稱重複指定次數(REPEAT 重複次數[表達式....] )e.g. (REPEAT 10 (PRINC "David")) ;重複顯示David字串10次重複(WHILE 條件表達式[是表達式....] )若條件表達式的傳回值為T,即會順序執行函數內各表達式各表達式順序執行完後,程式會返回函數的開頭,重新檢查條件表達式的傳回值若條件表達式的傳回值為nil,函數內各表達式將不會被執行e.g. (SETQ COUNT 1) ;將1存入變數COUNT(WHILE (<= COUNT 10) ;WHILE函數並檢查變數COUNT是否<=10(PRINC "David") ;若條件成立則以PRINC函數顯示David字串(SETQ COUNT (1+ COUNT))) ;變數COUNT遞增1,並將新值重新存入變數COUNT 中取代原值注意: 第4行最右邊的關括號,是對應第2行WHILE函數的開括號無限迴圈又稱為死迴圈,即迴圈的條件判斷式傳回值恆為T,令迴圈不斷重複而無法結束;在上例中:---- 若WHILE函數的條件表達式設定為(T) ;即條件永遠成立---- 不作SETQ函數,或不將變數COUNT遞增;變數COUNT儲存值恆久不變,導致條件式永遠成立第二十一课練習(Exercises)編寫一程式SUM並將引數存在NUM變數內,計算1+2+3+4 ....至變數NUM的總和(DEFUN SUM (NUM) (SETQ COUNT 1 TOTAL 0)(WHILE (<= COUNT NUM)(SETQ TOTAL (+ TOTAL COUNT)COUNT (1+ COUNT)))(PRINC TOTAL) (PRINC))程式說明1 設定函數SUM並將引數存入變數NUM,設定變數COUNT以將數目由1開始遞增,變數TOTAL(儲存總和)初始值為02 WHILE迴圈函數,並設定進入迴圈的條件式(變數COUNT小於或等於變數NUM)3 若條件成立即進入迴圈內部,先將變數TOTAL加上變數COUNT,再用SETQ函數存回變數TOTAL中,覆蓋原值4 將變數COUNT遞增1,存回變數COUNT並覆蓋原值5 關括號與第2行的WHILE函數左邊的開括號對應6 迴圈結束後,用PRINC函數顯示變數TOTAL(總和)的內容程式流程假設執行程式時傳入變數NUM的數值為10---- 變數初始值COUNT = 1 TOTAL = 0---- 判斷變數COUNT是否<=變數NUM COUNT = 1 TOTAL = 0---- 變數COUNT(現值1)小於NUM,進入迴圈;將TOTAL(現值0)加上COUNT,存回變數TOTAL COUNT = 1 TOTAL = 1---- 變數COUNT(現值1)遞增1變為2,存回變數COUNT COUNT = 2 TOTAL = 1---- 返回WHILE函數的開頭,重新判斷條件式---- 變數COUNT(現值2)小於NUM,進入迴圈;將TOTAL(現值1)加上COUNT,存回變數TOTAL COUNT = 2 TOTAL = 3---- 變數COUNT(現值2)遞增1變為3,存回變數COUNT COUNT = 3 TOTAL = 3---- 返回WHILE函數的開頭,重新判斷條件式---- 變數COUNT(現值3)小於NUM,進入迴圈;將TOTAL(現值3)加上COUNT,存回變數TOTAL COUNT = 3 TOTAL = 6部份過程省略---- 返回WHILE函數的開頭,重新判斷條件式---- 變數COUNT(現值10)仍等於NUM,進入迴圈;將TOTAL(現值45)加上COUNT,存回變數TOTAL COUNT = 10 TOTAL = 55---- 變數COUNT(現值10)遞增1變為11,存回變數COUNT COUNT = 11 TOTAL = 55 ---- 返回WHILE函數的開頭,重新判斷條件式---- 變數COUNT(現值11)巳大於NUM(本範例假設為10),條件判斷不成立,迴圈結束COUNT = 11 TOTAL = 55---- 顯示變數TOTAL的現存值,程式結束嚐試用IF函數檢查輸入的引數是否小於或等於0;若條件成立則不執行餘下的程式(DEFUN SUM (NUM) (IF (<= NIM 0) (PRINC "Input Error")(PROGN略過WHILE 及PRINC 函數))。
