【文章內(nèi)容簡介】 式： (cdr 表 )，表必須為引用表而非標準表，但可以是簡單表，也可以是嵌套表。 功能：提取 表 的除頂層第一個元素外的其它元素 實例： (cdr ‘(1 3 5)) 結(jié)果為（ 3 5） (cdr ‘( （ 1 3） 6 5)) 結(jié)果為（ 6 5） ⑽CAR 和 CDR的組合函數(shù) CAR和 CDR可以任意組合，其組合深度可達 4層，執(zhí)行時從右到左依次執(zhí)行，若搞錯次序，其結(jié)果必然出錯。 4個層次的組合形式為 CAR、 CXXR、 CXXXR、CXXXXR，其中 X既可以是 A也可以是 D，例如： (cadr 39。(2 (1 2 3) 34 )) 結(jié)果為（ 1 2 3） (caadr 39。(2 ((11 6) 2 3) 34 )) 結(jié)果為（ 11 6） (caaadr 39。(2 ((11 6) 2 3) 34 )) 結(jié)果為 11 (caaddr 39。(2 ((11 6) 2 3) (3 4) )) 結(jié)果 3 AutoLISP語言基語言基礎(chǔ)礎(chǔ)基基 本本 函函 數(shù)數(shù) ⑾LAST 函數(shù) 格式： (last 表 )，表必須為引用表而非標準表，但可以是簡單表，也可以是嵌套表。 功能：提取 表 的頂層中最后一個元素 實例： (last 39。(1 2 3)) 結(jié)果為 3 (last ‘(12 3 (4 5))) 結(jié)果為（ 4 5） ⑿NTH 函數(shù) 格式： (nth 序號 表 )，表必須為引用表而非標準表，但可以是簡單表，也可以是嵌套表。 功能：提取 表 中第 序號 個元素，注意第一個元素的序號為 0號，以此類推。 實例： (nth 2 39。(2 3 (4 5) 5)) 結(jié)果為（ 4 5） (nth 3 39。(2 3 (4 5) 5)) 結(jié)果為 5 ⒀LIST 函數(shù) 格式： (list 表達式 1 表達式 2…… ) 功能：將所有的 表達式 按原位置構(gòu)成新表，可用于確定點的坐標位置。 實例： (list 2 3 39。(5 6)) 結(jié)果為（ 2 3 （ 5 6）） (list 2 3) 結(jié)果為（ 2 3） 下面是一個利用 list確定點的位置，繪制圓的小程序： (setq p1 (list 222 33)) (setq p2 (list 200 300)) (mand circle p2 160) (mand circle p1 160) AutoLISP語言基語言基礎(chǔ)礎(chǔ)基基 本本 函函 數(shù)數(shù)⒁ATOF 函數(shù)格式： (atof 數(shù)字串 )功能：將 數(shù)字串 轉(zhuǎn)換成實型數(shù)，返回實型數(shù)實例： (atof 23) 返回結(jié)果為 ⒂ASCII 函數(shù)格式： (ascii 字符串 )功能：將 字符串 中第一個字符轉(zhuǎn)換成 ASCII碼，并返回該值實例： (ascii b c) 返回結(jié)果為 98⒃CHR 函數(shù)格式： (chr 整數(shù) )功能：將 ASCII碼為 整數(shù) 的轉(zhuǎn)換成相應(yīng)字符，并返回該字符實例： (chr 69) 返回結(jié)果為 E (chr 80) 返回結(jié)果為 P“⒄ITOA 函數(shù)格式： (itoa 整數(shù) )功能：將 整數(shù) 轉(zhuǎn)換成整數(shù)字符串實例： (itoa 5) 返回結(jié)果為 5“AutoLISP語言基語言基礎(chǔ)礎(chǔ)基基 本本 函函 數(shù)數(shù)⒅ATOI 函數(shù)格式： (atoi 數(shù)字串 )功能：將 數(shù)字串 轉(zhuǎn)換成整數(shù)，返回值截去小數(shù)部分實例： (atoi ) 返回結(jié)果為 45 (atoi ) 返回結(jié)果為 5 (atoi 7) 返回結(jié)果為 7 (atoi ) 返回結(jié)果為 34 (atoi df43)45 返回結(jié)果為 0說明：當數(shù)字串中有非數(shù)字字符時，則轉(zhuǎn)換到第一個非數(shù)字原子時終止。⒆STRCAT 函數(shù)格式： (strcat 字符串 1 字符串 2 …… )功能：將 字符串 按先后順序頭尾相連起來，組成一個新的字符串。實例： (strcat bc etr ty) 返回結(jié)果為 bcetrtyAutoLISP語言基語言基礎(chǔ)礎(chǔ)基基 本本 函函 數(shù)數(shù)(20)SUBSTR函數(shù)格式： (substr 字符串 起點 [長度 ]功能：從 字符串 中提取一個子串，該子串從起點的字符位置開始，由連續(xù)長度 個字符組成，若 長度 缺省，則到字符串結(jié)束。實例： (substr b212c 2 3) 返回結(jié)果為 212 (substr b2er12c 2) 返回結(jié)果為 2er12c“(21)READ函數(shù)格式： (read 字符串 )功能：將 字符串 轉(zhuǎn)化成表或原子，文件處理時經(jīng)常使用實例： (read ad) 返回結(jié)果為 AD (read b) 返回結(jié)果為 B (read (a b)) 返回結(jié)果為 (A B) (read (3 4)) 返回結(jié)果為 (3 4)AutoLISP語言基語言基礎(chǔ)礎(chǔ)基基 本本 函函 數(shù)數(shù)編程中常用的分支及條件判斷函數(shù)編程中常用的分支及條件判斷函數(shù) 在程序編寫中經(jīng)常會用到一些條件判斷函數(shù)及循環(huán)函數(shù)，沒有這些函數(shù)，就難以完成一個理想的程序，下面將一些在編程中使用程度較高的函數(shù)介紹一下。 ⑴ 關(guān)系運算函數(shù) 關(guān)系運算函數(shù)是編程中分支及條件判斷函數(shù)的基礎(chǔ)，它對數(shù)值型表達式的大小進行比較，表達式可以是兩個或兩個以上，其返回值是邏輯變量。比較運算成立，則返回 T；不成立則返回 nil，常作為條件用于條件判斷語句和循環(huán)判斷語句中，這一點將在下面講解中提到。 AutoLISP共有 6種關(guān)系運算函數(shù)，它們分別是“=”等于、 “/=”不等于、 “”小于、 “”大于、 “=”小于等于、 “=”大于等于。其中等于的關(guān)系函數(shù)，其表達式只能兩個，下面是 6種關(guān)系函數(shù)的實際例子：AutoLISP語言基語言基礎(chǔ)礎(chǔ)( 2 4 5 6) 返回結(jié)果 T( 2 4 5 3) 返回結(jié)果 nil，全程比較( 8 7 3 9) 返回結(jié)果 nil，全程比較( 8 7 3 1) 返回結(jié)果 T(= 2 2) 返回結(jié)果 T(= s b) 返回結(jié)果 nil(/= 1 2 3) 返回結(jié)果 T(/= 1 1 3) 返回結(jié)果 nil，只比較前面兩個表達式(= 3 3 5) 返回結(jié)果 T(= 5 5 1) 返回結(jié)果 T⑵ 邏輯運算函數(shù)AutoLISP共有 3種邏輯運算函數(shù)，分別是邏輯和 AND、邏輯或 OR、邏輯非NOT，下面通過實例說明其應(yīng)用。(and a d c 3) 返回結(jié)果 nil，只要有一個表達式為假，則返回 nil(and d c) 返回結(jié)果 nil(setq a 3 b 4) 返回結(jié)果 4，返回最后一個賦值(and a b) 返回結(jié)果 T，由于前面給 a、 b賦了值(and ( 2 3) (+ 1 3) ( 3 5)) 返回結(jié)果 nil(or 1 2 a b) 返回結(jié)果 T，只要有一個表達式為真，則返回 T(or ( 4 2) ( 4 2)) 返回結(jié)果 T(not 2) 返回結(jié)果 nil(not ( 6 9)) 返回結(jié)果 T⑶ 二分支條件函數(shù) IF格式： (if 測試表達式 成立表達式 非表達式 )功能：對 測試表達式 進行運算，若 測試表達式 成立，則執(zhí)行 成立表達式 ，否則，執(zhí)行 非表達式 ，兩者必居其一，所以稱之為二分支條件函數(shù)，是在編程中經(jīng)常用到的條件判斷函數(shù)。下面是幾個實際例子：(if (= 1 3) 3 5) 測試式不成立，執(zhí)行第二個表達式，第二個表達式為原子，返回 5(if ( 1 3) (setq a 2) (setq a 9)) 測試式成立，執(zhí)行第一個表達式，返回 2(if (= 1 3) yes) 測試