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