【文章內容簡介】 1 編寫下列分段函數的LISP程序。解1：可以利用COND函數處理該分段函數，編寫程序如下A)編寫程序(DEFUN L311 (x)(COND ((AND ( x –10) (= x –6)) –2) ((AND ( x 6) (= x –2)) –1) ((AND ( x –2) (= x 2)) 0) ((AND ( x 2) (= x 6)) 1) (T 2)))B)調用程序（SETQ n (L311 1)）后函數L311返回0，并將該值賦予變量n。解2：利用COND函數順序測試的特點，可以編寫更簡化的程序如下A)編寫程序（DEFUN L312 (x)(COND ((= x –10) 2) (= x –6) –2) ((= x –2) –1) ((= x 2) 0) ((= x 6) 1) (T 2))）B)調用程序（SETQ n (L312 1)）后函數L312返回0，并將該值賦予變量n。4. 交互式輸入函數交互式輸入函數提供控制臺輸入，包括鍵盤輸入和光標設備輸入。交互式輸入函數又稱為GET族輸入函數，該族函數均以字符GET開頭。交互式輸入函數包括整型數輸入函數（GETINT）、實型數輸入函數（GETREAL）、字符串輸入函數（GETSTRING）、點輸入函數（GETPOINT）、角度輸入函數（GETANGLE）、距離輸入函數（GETDIST）、關鍵字輸入函數（GETKWORD）和初始化輸入函數（INITGET）。交互式輸入函數為專業(yè)軟件的二次開發(fā)提供了與AutoCAD相同的交互界面，簡化了軟件的開發(fā)過程和推廣工作。1) GETINT函數的格式為（GETINT [提示信息]）。其功能是輸入整型數，函數返回值為從鍵盤輸入的整型數。提示信息為字符串，用于輸入時給出提示。2) GETREAL函數的格式為（GETREAL [提示信息]）。其功能是輸入實型數，函數返回值為從鍵盤輸入的實型數。3) GETSTRING函數的格式為（GETSTRING [開關變量] [提示信息]）。其功能是輸入字符串，函數返回值為從鍵盤輸入的字符串。當不選用開關變量或開關變量無值時，輸入字符串可以用空格或RETURN結束，輸入字符串中無法包括空格。開關變量存在且有值時，則輸入字符串中可以包含空格，但必須用RETURN結束字符串。AuotLISP通過這種方式，使字符串輸入和AutoCAD在方式上保持一致。4) GETPOINT函數的格式為（GETPOINT [pt] [提示信息]）。其功能是通過鍵盤或光標設備輸入點?？蛇x項pt是一個表示點的表，當pt存在時，移動光標會出現從pt到光標的連線（皮筋線），此時pt也作為相對坐標系的原點對采用相對坐標輸入點產生作用。當pt不存在時，相對坐標系的原點由AutoCAD系統變量LASTPOINT決定。5) GETANGLE函數的格式為（GETANGLE [pt] [提示信息]）。其功能是通過鍵盤或光標設備輸入角度。函數返回值為表示角度的實型數，單位為弧度。Pt的作用同前。AuotLISP通過這種方式，使角度輸入和AutoCAD在方式上保持一致。6) GETDIST函數的格式為（GETDIST [pt] [提示信息]）。其功能是通過鍵盤或光標設備輸入長度。函數返回值為表示距離的實型數。Pt的作用同前。AuotLISP通過這種方式，使長度輸入和AutoCAD在方式上保持一致。7) GETKWORD函數的格式為（GETKWORD [提示信息]）。其功能是通過鍵盤輸入關鍵字。函數返回值定義為關鍵字的字符串。關鍵字由下面的INITGET函數定義。8) INITGET函數的格式為（INITGET [bits] [關鍵字]）。其功能是控制GET函數的輸入。bits為二進制概念的控制位，能夠最大限度的減少輸入錯誤。表34中，十進制數1(bit 0)防止空輸入（ENTER）；2(bit 1)防止0輸入；4(bit 2)防止負數輸入；8(bit 3)允許用戶輸入LIMITS規(guī)定界限以外的點；16(bit 4)(尚未使用)；32(bit 5)使用虛線作皮筋線；64(bit 6)阻止Z坐標輸入；128(bit 7)允許任意輸入。關鍵字除了用于GETKWORD函數，還能夠用于其他GET函數，擴大它們的使用范圍。如關鍵字用于GETINT函數，能夠使該函數根據輸入內容返回整型數或關鍵字。而沒有關鍵字時，GETINT函數只能夠返回整型數。關鍵字是包含在雙引號內的字符和數字，關鍵字之間用空格分隔，例如“Abc Def”定義了Abc和Def兩個關鍵字。關鍵字中的大寫字母在輸入時可以作為關鍵字的縮寫。表34 控制位和輸入函數的關系函數關鍵字控制位非空（1）（bit 0）非0(2)（bit 1）非負(4)（bit 2）非限制（8）（bit 3）用虛線（32）（bit 5）二維距離（64）（bit 6）任意輸入（128）（bit 7）GETINT√√√√√GETREAL√√√√√GETDIST√√√√√√√GETANGLE√√√√√GETPOINT√√√√√GETKWORD√√√INITGET函數只對其后的GET函數起一次作用。對于程序段（INITGET 7 “Abc Def”）（SETQ A（GETINT “A＝”））運行時，輸入空回車、0或負數，系統都會要求重新輸入，只有在輸入正數時程序才會將整型數賦予變量A。當輸入a或abc時，程序會將關鍵字“Abc”作為字符串賦予變量A。而輸入d或def時，程序則將“Def”賦予變量A。輸入其他字母，程序也會要求重新輸入，直至符合輸入要求。例如，在AutoCAD繪圓命令CIRCLE執(zhí)行時，有如下提示Command: circleSpecify center point for circle or [3P/2P/Ttr (tan tan radius)]:Specify radius of circle or [Diameter]:首先可以輸入點或關鍵字，然后可以輸入點、數值或關鍵字。同樣的輸入效果可以用以下LISP程序達到：（INITGET 1 “3P 2P Ttr”）（SETQ p（GETPOINT “Specify center point for circle or [3P/2P/Ttr (tan tan radius)]:”）） （INITGET 7 “Diameter”）（SETQ r （GETDIST p “Specify radius of circle or [Diameter]:”））5. 字符串函數字符串函數專門用于處理字符串，包括字符串長度函數（STRLEN）、字符串鏈接函數（STRCAT）和子字符串函數（SUBSTR）。1) STRLEN函數的格式是（STRLEN s）。函數變量是字符串，STRLEN函數的功能是求出字符串s的長度，即組成字符串s的字符個數，函數返回整型數。如（STRLEN “abc”）返回3。2) STRCAT函數的格式是（STRCAT s1 s2 … sn）。它的功能是按變量順序合并字符串s1 、s2 、… 、sn，函數返回合并后的字符串。如（STRCAT “abc” “def”）返回字符串“abcdef”。3) SUBSTR函數的格式是（SUBSTR s m [n]），函數變量s為字符串，m和n為整型數。SUBSTR函數從字符串s中取出一部分作為函數的返回值。返回的子字符串從字符串s的第m個字符開始，其長度（字符數）為n 。若n不存在，則返回的子字符串從字符串s的第m個字符開始至字符串末尾。字符串排列順序為從左到右，起首字符序號為1。如（SUBSTR “Good Morning” 6 3）返回字符串“Mor”，（SUBSTR “Good Morning” 6）返回字符串“Morning”。6. 表處理函數表處理函數是LISP語言中最具特色的一類函數，用來生成表（LIST函數）或對表進行各種操作，如往表中添加元素（CONS函數）、從表中刪除元素（CDR函數和MEMBER函數）、提取表中元素（函數CAR、CADR函數、CADDR函數和NTH函數）、檢索表中元素（ASSOC函數）、替換表中元素（SUBST函數）、合并表（APPEND函數）、顛倒表中元素順序（REVERSE函數）等等，其他的表處理函數還有LENGTH、APPLY、MAPCAR、FOREACH等等。其中的APPLY函數和MAPCAR函數又被稱為泛函數，即在原來函數自變量位置上出現了函數，這就大大增加了程序的適用性。1) LIST函數的格式是（LIST e1 e2 … en）。它的功能是把ee…、en的計算值組成一個表。如（LIST 1 (+ 1 2) “A”）返回表（1 3 “A”）。2) CONS函數的格式是（CONS e L），它的功能是把e的計算值加入表L中。如（CONS （+ 1 2） (LIST 1 2)）返回表（3 1 2）3) CDR函數的格式是（CDR L），它的功能是去除表L中為首的元素，函數返回剩余的表。如（CDR （LIST 1 2））返回表（2）。4) MEMBER函數的格式是(MENBER e L), 它的功能是提取表L中e及其后面元素組成的表。如（MENBER 3 （LIST 1 2 3 4 5））返回表（3 4 5）。5) CAR函數的格式是（CAR L），它的功能是提取表L中第0個元素，函數返回該元素。如（CAR （LIST 1 2 3））返回1。在CAD中常被用來提取點中的X坐標值。6) CADR函數的格式是（CADR L），它的功能是提取表L中第1個元素，函數返回該元素。如（CADR （LIST 1 2 3））返回2。在CAD中常被用來提取點中的Y坐標值。7) CADDR函數的格式是（CADDR L），它的功能是提取表L中第2個元素，函數返回該元素。如（CADDR （LIST 1 2 3））返回3。在CAD中常被用來提取點中的Z坐標值。8) NTH函數的格式是（NTH n L），它的功能是提取表L中第n個元素，函數返回該元素。表中元素的排列順序是從左到右，為首元素序號為0。如（NTH 2 （LIST 1 2 3 4））返回3。9) ASSOC函數的格式是（ASSOC e L），它的功能是檢索表L中包含以e值為起始元素的嵌套子表，函數返回檢索到的子表。如（ASSOC 2 ‘((1 2) (2 3) (3 4))）返回以2為起始元素的嵌套子表（2 3）。10) SUBST函數的格式是（SUBST m n L），它的功能是用m取代表L中的n，函數返回更換后的表。如（SUBST “” “B” （LIST “A” “B” “AB” “Ｂ”））返回表（“A” “” “AB” “”）。11) APPEND函數的格式是（APPEND m n），它的功能是合并表m和n，函數返回合并后的表。如（APPEND （LIST 1 2） （LIST 3 4 ））返回表（1 2 3 4）。12) REVERSE函數的格式是（REVERSE L），它的功能是顛倒表中元素的順序，函數返回顛倒元素順序后的表。如（REVERSE （LIST 1 2 3 4））返回表（4 3 2 1）。13) LENGTH函數的格式是（LENGTH L），它的功能是求出表的長度（即表中元素的個數），函數返回表示元素數目的整型數。如（LENGTH （LIST 1 2 3 4））返回整型數4。7. 類型轉換函數類型轉換函數提供了變量和數據類型的相互轉換，包括整型數和實型數互相轉換函數（FIX和FLOAT）以及涉及字符串的轉換函數（RTOS和READ）。1) FIX函數用于將實型數轉換成整型數，它的格式為（FIX n）。2) FLOAT函數用于將整型數轉換成實型數，它的格式為（FLOAT n）。3) RTOS函數用于將數轉換成一定格式的字符串，它的格式為（RTOS n [mode [precision]]）?？蛇x項mode和precision都是整型數。mode表示轉換格式，precision表示轉換精度（小數點后的位數），mode含義如表35所示。當可選項缺省時，RTOS函數按照AutoCAD的缺省格式進行轉換。表35 mode取值與轉換格式的關系mode轉換格式1科學計數制2十進制3英制工程制4英制建筑制5分數4) READ函數的格式是（READ s），其中s是可以包含空格的字符串。READ函數去除字符串s的雙引號，并返回從中獲得的第一個表或原子。如（READ “HELLO”）返回符號變量HELLO（READ “HE LLO”）返回符號變量HE（READ “123”）返回常數123（READ “123 456 789”）返回常數123（READ “（1 2 3）”）返回表（1 2 3）（READ “（1 2 3） （4 5 6）”）返回表（1 2 3）8. 循環(huán)運算函數循環(huán)運算函數用于循環(huán)運算，包括無條件循環(huán)函數（REPEAT）和有條件循環(huán)函數（WHILE）。無條件循環(huán)是按照確定的循環(huán)次數進行循環(huán)運算，而有