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