【正文】 元素。如（CADR （LIST 1 2 3））返回2。在CAD中常被用來(lái)提取點(diǎn)中的X坐標(biāo)值。5) CAR函數(shù)的格式是（CAR L），它的功能是提取表L中第0個(gè)元素，函數(shù)返回該元素。4) MEMBER函數(shù)的格式是(MENBER e L), 它的功能是提取表L中e及其后面元素組成的表。如（CONS （+ 1 2） (LIST 1 2)）返回表（3 1 2）3) CDR函數(shù)的格式是（CDR L），它的功能是去除表L中為首的元素，函數(shù)返回剩余的表。如（LIST 1 (+ 1 2) “A”）返回表（1 3 “A”）。1) LIST函數(shù)的格式是（LIST e1 e2 … en）。6. 表處理函數(shù)表處理函數(shù)是LISP語(yǔ)言中最具特色的一類函數(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等等。字符串排列順序?yàn)閺淖蟮接?，起首字符序?hào)為1。返回的子字符串從字符串s的第m個(gè)字符開始，其長(zhǎng)度（字符數(shù)）為n 。3) SUBSTR函數(shù)的格式是（SUBSTR s m [n]），函數(shù)變量s為字符串，m和n為整型數(shù)。它的功能是按變量順序合并字符串s1 、s2 、… 、sn，函數(shù)返回合并后的字符串。如（STRLEN “abc”）返回3。1) STRLEN函數(shù)的格式是（STRLEN s）。例如，在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)鍵字。而輸入d或def時(shí)，程序則將“Def”賦予變量A。對(duì)于程序段（INITGET 7 “Abc Def”）（SETQ A（GETINT “A＝”））運(yùn)行時(shí)，輸入空回車、0或負(fù)數(shù)，系統(tǒng)都會(huì)要求重新輸入，只有在輸入正數(shù)時(shí)程序才會(huì)將整型數(shù)賦予變量A。關(guān)鍵字中的大寫字母在輸入時(shí)可以作為關(guān)鍵字的縮寫。而沒有關(guān)鍵字時(shí)，GETINT函數(shù)只能夠返回整型數(shù)。關(guān)鍵字除了用于GETKWORD函數(shù)，還能夠用于其他GET函數(shù)，擴(kuò)大它們的使用范圍。bits為二進(jìn)制概念的控制位，能夠最大限度的減少輸入錯(cuò)誤。8) INITGET函數(shù)的格式為（INITGET [bits] [關(guān)鍵字]）。函數(shù)返回值定義為關(guān)鍵字的字符串。7) GETKWORD函數(shù)的格式為（GETKWORD [提示信息]）。Pt的作用同前。其功能是通過(guò)鍵盤或光標(biāo)設(shè)備輸入長(zhǎng)度。AuotLISP通過(guò)這種方式，使角度輸入和AutoCAD在方式上保持一致。函數(shù)返回值為表示角度的實(shí)型數(shù)，單位為弧度。5) GETANGLE函數(shù)的格式為（GETANGLE [pt] [提示信息]）?？蛇x項(xiàng)pt是一個(gè)表示點(diǎn)的表，當(dāng)pt存在時(shí)，移動(dòng)光標(biāo)會(huì)出現(xiàn)從pt到光標(biāo)的連線（皮筋線），此時(shí)pt也作為相對(duì)坐標(biāo)系的原點(diǎn)對(duì)采用相對(duì)坐標(biāo)輸入點(diǎn)產(chǎn)生作用。4) GETPOINT函數(shù)的格式為（GETPOINT [pt] [提示信息]）。開關(guān)變量存在且有值時(shí)，則輸入字符串中可以包含空格，但必須用RETURN結(jié)束字符串。其功能是輸入字符串，函數(shù)返回值為從鍵盤輸入的字符串。其功能是輸入實(shí)型數(shù)，函數(shù)返回值為從鍵盤輸入的實(shí)型數(shù)。提示信息為字符串，用于輸入時(shí)給出提示。1) GETINT函數(shù)的格式為（GETINT [提示信息]）。交互式輸入函數(shù)包括整型數(shù)輸入函數(shù)（GETINT）、實(shí)型數(shù)輸入函數(shù)（GETREAL）、字符串輸入函數(shù)（GETSTRING）、點(diǎn)輸入函數(shù)（GETPOINT）、角度輸入函數(shù)（GETANGLE）、距離輸入函數(shù)（GETDIST）、關(guān)鍵字輸入函數(shù)（GETKWORD）和初始化輸入函數(shù)（INITGET）。4. 交互式輸入函數(shù)交互式輸入函數(shù)提供控制臺(tái)輸入，包括鍵盤輸入和光標(biāo)設(shè)備輸入。解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。變量表中可以只有一個(gè)元素，即可以只有測(cè)試式，此時(shí)的函數(shù)返回值為測(cè)試結(jié)果。COND函數(shù)依次對(duì)測(cè)試式進(jìn)行測(cè)試，當(dāng)測(cè)試結(jié)果為非NIL時(shí)，順序執(zhí)行其后的LISP表達(dá)式。7) COND函數(shù)的格式為（COND （〈測(cè)試式1〉 e11 e12 … e1i）（〈測(cè)試式2〉 e21 e22 … e2j） …… （〈測(cè)試式m〉 em1 em2 … emk））函數(shù)功能是實(shí)現(xiàn)多分支結(jié)構(gòu)。當(dāng)判別式的結(jié)果為非NIL時(shí)，函數(shù)執(zhí)行e1并返回e1的計(jì)算值，否則函數(shù)執(zhí)行e2并返回e2的計(jì)算值，若可選項(xiàng)e2不存在，則函數(shù)結(jié)束運(yùn)行，返回NIL。當(dāng)函數(shù)變量e有值時(shí)，函數(shù)返回NIL，否則返回T。當(dāng)函數(shù)變量ee…、en中至少有一個(gè)有值時(shí)，函數(shù)返回T，否則返回NIL。當(dāng)函數(shù)變量ee…、en中全部有值時(shí)，函數(shù)返回T，否則返回NIL。比較兩個(gè)實(shí)型數(shù)e1和e2時(shí)，取一個(gè)很小的正數(shù)e3，其判斷準(zhǔn)則是當(dāng)|e1e2|≤e3 時(shí)函數(shù)返回T，否則返回NIL。EQUAL函數(shù)的格式為(EQUAL e1 e2 [e3])。當(dāng)函數(shù)變量ee…、en全部相等時(shí)，函數(shù)返回T，否則返回NIL。1) 關(guān)系運(yùn)算函數(shù)判斷函數(shù)變量相互間是否符合函數(shù)所定義的相等或不等關(guān)系。用戶在使用LISP語(yǔ)言的過(guò)程中，用自定義函數(shù)的方法可以逐漸積累自己的函數(shù)，從而使編程越來(lái)越方便。可以看到，用戶自定義的正切函數(shù)的使用方法與LISP系統(tǒng)函數(shù)SIN或COS的用法相同。程序中的DEFUN、SETQ、IF、/=、/、SIN和COS都是AutoLISP的基本函數(shù)。例如AutoLISP沒有提供正切函數(shù)，用戶可以利用自定義函數(shù)自行定義正切函數(shù)，定義正切函數(shù)的程序如下(DEFUN tan (x / y) (SETQ y (COS x))(IF (/= y 0) (/ (SIN x) y)))以上程序中tan是用戶自行定義的正切函數(shù)名。變量表后面是函數(shù)定義體，決定了函數(shù)name的功能和返回值。所謂局部變量是指僅僅在定義函數(shù)內(nèi)部存在并起作用的變量，它對(duì)定義函數(shù)以外的程序無(wú)任何干擾。自定義函數(shù)的格式為(DEFUN name （[A1 A2 … AL] [/ V1 V2 … VM]） e1 e2 … en)上表中第0個(gè)元素DEFUN是自定義函數(shù)的函數(shù)名，第1個(gè)元素name是符號(hào)變量，為自定義函數(shù)所定義的用戶函數(shù)的名稱。自定義函數(shù)是用戶自己定義的函數(shù)，又被稱為用戶函數(shù)或外部函數(shù)。對(duì)于復(fù)雜的程序，直接利用基本函數(shù)編寫程序并不是一個(gè)好方法，編寫LISP程序更多是利用自定義函數(shù)來(lái)編寫程序，反之，大多數(shù)LISP程序也都編寫成為自定義函數(shù)的形式。其功能是求 平方根，函數(shù)返回n的平方根。其功能是求m的指數(shù)，函數(shù)返回mn。其功能是求e的指數(shù)，函數(shù)返回en。其功能是求絕對(duì)值，函數(shù)返回n的絕對(duì)值。函數(shù)返回值的角度單位為弧度。其功能是求反正切值arc tan n1 或 arc tan（n1/n2）。用法與SIN函數(shù)相同。其功能是求函數(shù)變量n的余弦值，函數(shù)返回n的余弦值。例如，（SIN (/ PI 2)），式中PI為L(zhǎng)ISP符號(hào)變量，表示圓周率π值。其功能是求函數(shù)變量n的正弦值，函數(shù)返回n的正弦值。例如，（/ 3 2）的返回值為1，而（/ 3 ）。nm）。n35) ／函數(shù)的格式為（/ n1 n2 [n3 … nm]）?！璶24) *函數(shù)的格式為（* n1 n2 [n3 … nm]）。其功能是對(duì)函數(shù)變量求差。其功能是對(duì)函數(shù)變量求和，函數(shù)返回值為變量之和：n1+n2+n3+…+nm。）例如，（SETQ x 1 y （+ 1 2））將常數(shù)1的計(jì)算值1賦予變量x，LISP表達(dá)式（+ 1 2）的計(jì)算值3賦予變量y，函數(shù)返回值為3。其功能是將ei的計(jì)算值賦予變量vi，函數(shù)返回值為en的計(jì)算值。代數(shù)運(yùn)算函數(shù)的使用方法很容易掌握，唯一要注意的是LISP程序具有前綴結(jié)構(gòu)的特點(diǎn)，各種函數(shù)運(yùn)算都必須將函數(shù)名作為L(zhǎng)ISP表達(dá)式中最前面的元素。各種類型的LISP函數(shù)用來(lái)完成LISP語(yǔ)言所有的功能，下面將一些最基本的LISP函數(shù)進(jìn)行分類，以便大家能夠?qū)ISP語(yǔ)言及其在CAD中的應(yīng)用有所了解。（二）LISP函數(shù)LISP函數(shù)具有返回值和特定的功能。例如（+ 1 2）是一個(gè)LISP程序的例子，其中＋為函數(shù)名，1和2為＋函數(shù)的變量。LISP程序采用前綴形式：（元素0 元素1 元素2 … ）構(gòu)成LISP程序時(shí)，表中元素0必為函數(shù)名稱，其后的各個(gè)元素為該函數(shù)（元素0）的變量。AutoCAD中的圖形數(shù)據(jù)（包括類型、圖層、顏色、線型、特征、坐標(biāo)值等）都可采用表的形式表達(dá)。（1 2 5 “A” 9）可以表示一個(gè)六維向量，與其他計(jì)算機(jī)語(yǔ)言中的一維數(shù)組相當(dāng)，但是表中元素的數(shù)據(jù)類型可以各不相同，而同一數(shù)組中各個(gè)數(shù)據(jù)的類型都必須相同。前者可以表示一個(gè)二維點(diǎn)。在LISP語(yǔ)言中，表既可以構(gòu)成數(shù)據(jù)，也可以組成程序。原子指常數(shù)（Constant）或者符號(hào)變量（Variable）。表是LISP語(yǔ)言的重要成份，它由若干個(gè)元素（Element）和一對(duì)圓括號(hào)組成。LISP語(yǔ)言具有一些獨(dú)特的優(yōu)點(diǎn)，使它特別適用于人工智能和CAD領(lǐng)域，這也是AutoCAD在眾多計(jì)算機(jī)語(yǔ)言中首先選擇其作為開發(fā)工具的主要理由。AutoCAD軟件中鑲嵌的AutoLISP與COMMON LISP很接近，它增加了調(diào)用AutoCAD命令的功能和一些幾何函數(shù)，并削減了COMMON LISP中一些不常用的函數(shù)。LISP語(yǔ)言1960年起源于美國(guó)麻省理工學(xué)院（MIT），是一種著名的人工智能計(jì)算機(jī)語(yǔ)言。實(shí)際上，過(guò)去編寫的AutoLISP程序都可以在Visual LISP中編譯和運(yùn)行，即Visual LISP能夠完全兼容AutoLISP。針對(duì)AutoLISP的弱點(diǎn)，AutoCAD在其2000版本中又推出了具有高運(yùn)行效率的編譯型LISP語(yǔ)言——Visual LISP。AutoLISP是AutoCAD選用的第一個(gè)強(qiáng)有力的開發(fā)工具，從1985年問(wèn)世的AutoCAD ，一直沿用至今。菜單項(xiàng)中的空格所起的作用相當(dāng)于輸入回車。點(diǎn)取“CAM”子菜單中“3B指令”項(xiàng)，其對(duì)應(yīng)的菜單項(xiàng)內(nèi)容為“[3B指令]^C^C(load dcadww) w3b ”。ample顯示為Sample，快捷鍵為a/指定菜單快速鍵，如/aSample顯示為Sample，快捷鍵為a=*顯示當(dāng)前頂層的圖像、下拉或快捷菜單*^C^C重復(fù)項(xiàng)的前綴$宏表達(dá)式的特殊字符^CTRL\暫停等候用戶輸入（不能用于加速鍵）_轉(zhuǎn)換AutoCAD命令及其后的關(guān)鍵字+延續(xù)宏到下一行；RETURN//注釋行，不限行數(shù)，用作版權(quán)聲明或注釋[]方括號(hào)內(nèi)為菜單項(xiàng)名稱，在pop11菜單后面插入圖31所示的pop12菜單ASCII代碼，可以看到下拉菜單在Help菜單項(xiàng)的后面增加了名為DCAD的一列新菜單，其效果如圖32所示。表32 主菜單名稱區(qū)數(shù)N功能用途***MENUGROUP菜單組***BUTTONSn1～4定點(diǎn)設(shè)備按鈕菜單***AUXn1～4系統(tǒng)定點(diǎn)設(shè)備菜單***POPn0～9990 對(duì)象捕捉快捷菜單1～16 基本型下拉菜單17～499 將menuload加入下拉菜單中500～999 快捷菜單區(qū)域***TOOLBARS工具欄定義***IMAGE圖像菜單***SCREEN屏幕菜單***TABLETn1～4數(shù)字化儀菜單***HELPSTRINGS輔助功能說(shuō)明區(qū)（顯示于狀態(tài)區(qū)）***ACCELERATORS加速鍵定義注意事項(xiàng)如果沒有定義POP1～POP16，AutoCAD會(huì)自動(dòng)插入2個(gè)預(yù)設(shè)的下拉菜單（File和Edit）表33 菜單字符說(shuō)明字符說(shuō)明**子菜單菜單項(xiàng)分隔符引出子菜單子菜單結(jié)束~禁用菜單項(xiàng)的前綴符!.給菜單項(xiàng)打上復(fù)選標(biāo)記的前綴符amp。其中***POP1至***POP11定義了下拉菜單。當(dāng)加載與菜單 LISP 文件具有相同文件名的菜單文件時(shí)，AutoCAD 會(huì)將菜單 LISP 文件加載至內(nèi)存。僅在 MNR 文件無(wú)效（例如，只讀）時(shí)生成該文件。每次菜單文件的內(nèi)容被更改時(shí)，AutoCAD 將修改源菜單文件。AutoCAD 每次編譯 MNC 文件時(shí)，均生成菜單資源文件。首次加載 MNU 文件時(shí)，AutoCAD 將編譯此文件。第三節(jié) AutoCAD的二次開發(fā)工具一、 AutoCAD定制菜單表31 菜單文件類型菜單文件類型類型說(shuō)明.MNU原始 ASCII 菜單文件，即用戶通常編輯或創(chuàng)建的文件。熟練掌握這些圖形編輯命令可以有效地提高AutoCAD應(yīng)用水平。二、圖形編輯