CADLISP函數(shù).doc

CADLISP語言數(shù)據(jù)類型1. 表2. 文件描述符3. 實體名4. 選擇集5. 內(nèi)部函數(shù)（AutoLISP子程序）6. 外部函數(shù)（ADS、ARX函數(shù)）代碼意義ASII碼鍵114”“鍵042eESC鍵033n換行012r回車015t制表鍵011賦值與數(shù)值計算函數(shù)1. (1+ 數(shù)) 加1函數(shù)2. (1- 數(shù)) 減1函數(shù)3. （abs 數(shù)）求絕對值4. （max數(shù) 數(shù) ）求最大數(shù)5. （min數(shù) 數(shù) ）求最小數(shù)6. (sqrt數(shù))求平方根7. （expt數(shù) 冪）乘方8. （exp 冪）e的任意次方9. （log數(shù)）對數(shù)10. （sin 角）正弦函數(shù)11. （cos角）余弦12. （atan數(shù)1數(shù)2）反正切函數(shù)13. （rem數(shù)1 數(shù)2）求余數(shù)14. （gcd數(shù) 數(shù)）最大公約數(shù)15. （ 整數(shù)）求補 注：用pi表示圓周率16. (logand數(shù) 數(shù))按位邏輯”與”函數(shù)17. (logior數(shù) 數(shù))按位邏輯”或”函數(shù)18. ( 數(shù))按位邏輯”非”函數(shù)19. （and 表達式）邏輯”與”函數(shù)20. （or 表達式）邏輯”或”函數(shù)21. （not 表達式）邏輯”非”函數(shù)22. （lsh 數(shù) 位數(shù)）位移函數(shù)23. （boole 方式 數(shù)1 數(shù)2）布爾運算。方式有16種，如1為and,6為xor（異或），7為or,8為not等。24. （= 原子 原子）等于函數(shù)25. （/= 原子 原子）不等于函數(shù)26. （ 原子 原子）小于函數(shù)27. （ 原子 原子）大于函數(shù)29. （= 原子 原子）大于等于函數(shù)30. （atom 項）原子測試31. （listp 項）表測試32. （boundp 原子）原子值測試33. （null 項）空測試34. （numberp 項）數(shù)值測試35. （minusp 項）負值測試36. （zerop 項）零測試37. （eq 式1 式2）相同表達式測試38. （equal式1 式2）相等測試39. （wcmatch 字符串 模式）字符匹配測試分支與循環(huán)1. （if 條件 式1式2）若條件為真，則執(zhí)行式1；否則執(zhí)行式2。2. （cond(條件1 式1)（條件2 式2）分支函數(shù)。如：（cond(minusp a)(- a)(T a)）求a的絕對值。注：cond是AutoLISP中最基本的條件函數(shù)，由它為核心構成的自定義函數(shù)可以實現(xiàn)循環(huán)和遞歸等功能。3. (repeat 次數(shù) 式1 式2 )重復函數(shù)。將多個表達式重復執(zhí)行多次。4. （while 條件 式1 式2 )循環(huán)函數(shù)。條件為真，執(zhí)行表達式。否則結束循環(huán)。如：(setq s 0 a 1)（while( a 101)(setq s(+ s a)(setq a(1+ a)）(print s) 計算0100之間所有整數(shù)的和。5. （progn 式1 式2 )求多個表達式值函數(shù)。在只能用一個表達式的地方，使用他可完成多個表達式的計算。如if 語句中字符串與類型轉(zhuǎn)換函數(shù)1. （ascii 字符串）ASCII碼轉(zhuǎn)換2. （chr 整數(shù)）字符轉(zhuǎn)換3. （strcat 字符串）字符串連接4. （strlen 字符串）字符串長度測試5. （substr 字符串 起點 長度）取子字符串。如果不設置長度，則取到最后一個字符。6. （strcase 字符串 方式）字符串大小寫轉(zhuǎn)換。若指定了方式且非空（NIL），則把所有的字母轉(zhuǎn)換為小寫；否則轉(zhuǎn)換為大寫。7. （float 數(shù)）整型變實型8. （fix 數(shù)）實型變整型9. （itoa 整型數(shù)）整型變字符串10. （atoi 字符串）字符串變整型11. （atof 字符串）字符串變實型12. （angtos 角 方式 精度）角度單位轉(zhuǎn)換。“角”是以弧度為單位的實數(shù)，轉(zhuǎn)換為其它單位，返回一個字符串。該字符串是以“方式”和“精度”的要求，按AutoCAD的系統(tǒng)變量UNITMODE（單位模式）對“角”進行處理得到的，“精度”為小數(shù)點后的位數(shù)?！胺绞健庇校?為度，1為度/分/秒，2為梯度，3為弧度等。13. (rtos 數(shù) 方式 精度)實數(shù)計數(shù)制轉(zhuǎn)換。方式：1為科學計數(shù)法，2為十進制，3為工程制（英寸與小數(shù)英寸），4為建筑制（英寸與分數(shù)英寸）14. （cvunit 值 舊單位 新單位）單位制轉(zhuǎn)換。單位名稱可以是acad.unt文件中給出的任意單位格式，否則返回NIL（trans 點 舊坐標系 新坐標系）坐標轉(zhuǎn)換。坐標：0為WCS（世界坐標系），1為UCS（用戶坐標系），2為DCS（顯示坐標系）表處理函數(shù)1. （quote 表達式）引用函數(shù)。作用：告訴程序不要對后面的表達式求值。如：（quote（x y z）可簡寫為 (x y z)2. (car 表)取表中的第一個元素3. （cdr 表）取子表函數(shù)。返回除第一個元素以外的所有元素組成的新表4. 由car與cdr組合而成的函數(shù)car與cdr是取表元素的基本函數(shù)。這兩個函數(shù)可以組合起來使用，從而獲得表中的其它元素，例如 cadr。這種組合最多可達四級，即最多六個字符，如 caddar。AutoLISP執(zhí)行這組合函數(shù)時先從后面做起。例如：（caddr (1 2 3)） 返回3 （caddr (a (b c) d)） 返回（c）也就是說，若L為一張表，則有：（cadr L）=（car(cdr L)）（cdadar L）=(cdr(car(cdr(car L)5. (last 表)取表中最后一個元素6. (nth n 表)取表中第n個元素（第一個元素的序號為0）7. （list 表達式）建立表函數(shù)8. （length 表）測量表長9. （append 表1 表2 ）連接表函數(shù)10. （cons 新元素 表）向表中添加元素11. (subst 新項 舊項 表)元素替換函數(shù)12. （reverse 表）表倒置函數(shù)13. （assoc 關鍵字 關聯(lián)表）assoc 函數(shù)。該函數(shù)在“關聯(lián)表”中搜索“關鍵字”，并返回關聯(lián)表中對應元素。搜索無結果，則返回NIL14. （member 表達式 表）member函數(shù)。該函數(shù)在“表”中搜索“表達式”，并返回一張由第一次出現(xiàn)的“表達式”及其后面所有元素構成的新表。15. （foreach 變量名 表 表達式）foreach函數(shù)。該函數(shù)依次將“表”中的每個元素的值賦給“變量名”對表中的每個元素計算每個表達式的值。函數(shù)返回最后一個表達式的計算結果。16. （apply 函數(shù) 表）Apply函數(shù)。以表為變元，執(zhí)行“函數(shù)”給定的函數(shù)。如：（apply +(1 2 3)） 返回 6（apply strcat(“a” “b”)） 返回“ab”Apply既可用于內(nèi)部函數(shù)，也可用于用戶定義的函數(shù)。17. （mapcar 函數(shù) 表1 表2）mapcar 函數(shù)。它執(zhí)行“函數(shù)”給定的函數(shù)，并以后面各表中的每個元素作為函數(shù)的變元。如：（mapcar 1+(10 20 30)）返回（11 21 31）（mapcar +(10 20 30)(4 3 2)）返回（14 23 32） Apply函數(shù)的操作對象是單個表中的所有元素；mapcar函數(shù)則每次只處理多個表中的對應元素，依次處理，直到結束。自定義函數(shù)1. defun函數(shù)格式:(defun 函數(shù)名 變量表 表達式)其中變量表被一個前后均有空格的斜杠符號“ / ”分成兩部分(形參 / 局部變量):形參在調(diào)用函數(shù)時接受參數(shù)傳遞而轉(zhuǎn)換為實參；局部變量僅用于函數(shù)內(nèi)部1)變量表可以是空格，此時調(diào)用函數(shù)時無參數(shù)傳遞。2)變量表中的形參與局部變量均只在所定義的函數(shù)中起作用，甚至可以與某外部變量同名，而不會對外部變量造成任何影響2. defun函數(shù)定義AutoCAD新命令格式:(defun C:命令名（） 表達式)其中:“命令名”前必須有“C:”，后面必須帶一張沒有形參的變元表。3. lambda函數(shù)格式:(lambda 變元表 表達式)該函數(shù)定義一個無名函數(shù)。在經(jīng)常需要使用某一表達式，而又沒必要用defun將它定義為一個新函數(shù)時，可使用lambda來完成這個任務。它返回最后一個表達式的值，且經(jīng)常與apply和mapcar一起使用。如：(apply (lambda (x y z )(* x(- y z)(5 20 14)返回30，即5*(20-14)。又如：（mapcar (lambda (x)(* x 5)(2 4 -6 10.2)）返回（10 20 -30 51.0）數(shù)據(jù)交換及相關的計算函數(shù)1. (getint 提示) 整數(shù)輸入函數(shù)2. (getreal 提示) 實數(shù)輸入函數(shù)3. (getstring cr 提示) 字符串數(shù)輸入函數(shù)。字符串最大長度為132個字符。如果提供了cr且cr不為NIL，則輸入的字符串中可以有空格，此時只有用回車來終止輸入，否則可以用空格終止輸入。4. (getpoint 基點 提示) 點輸入函數(shù)5. (getdist 基點 提示) 距離輸入函數(shù)。等待用戶輸入一個距離值或用光標輸入兩個點，返回兩點間的距離。若有基點，則只需再輸入一個點，該點與基點間的距離就是輸入的值。6. (getcorner 基點 提示) 矩形對角點輸入函數(shù)。他必須有基點，且當用戶移動光標時，屏幕上畫一個由基點和當前光標點為對角點的矩形。7. (getangle 基點 提示) 角度輸入函數(shù)。等待用戶輸入一個角度，并將該角以弧度值返回。度量角度時，以變量ANGBASE設置的當前角度為零弧度，逆時針方向為正。用戶可以鍵盤輸入角度。也可以指定屏幕上兩個點的方式輸入角度，此時兩點間連線與零度基準線的夾角就是輸入的角度。若指定了“基點”，則可輸入一個點來獲取角度。后兩種方式屏幕上會出現(xiàn)拖動線。8. (getorient 基點 提示) 方位角輸入函數(shù)。和getangle唯一不同的是getorient的零度基準方向是水平向右的9. (initget 位值 關鍵字符串)輸入控制函數(shù)。該函數(shù)為其后使用get函數(shù)建立各種選項?！拔恢怠笨刂圃试S的輸入方式可以是以任何組合方式累加成的一個0127之間的整數(shù)。其含義見表：位值含義1不允許空輸入2不接受零值4不接受負值8不檢查屏幕限定范圍（即使LIMCHECK為on）16目前未使用32用虛線畫拖動線和矩形框64忽略三維點的Z坐標（僅用于getdist）關鍵字表的目的是使用戶可以以縮寫的方式輸入關鍵字。關鍵字的形式必須是“關鍵字1 關鍵字2 關鍵字3，縮寫”。每個關鍵字間用空格分隔，逗號后面是縮寫部分。有兩種方式定義關鍵字的縮寫：一是把保留的縮寫字母大寫，其余部分全用小寫字母；二是縮寫字母放在整個關鍵字后面（全部用大寫字母表示縮寫），并用逗號將它們分隔開。注意：iniget建立的控制標記和關鍵字表只對緊跟其后的get函數(shù)產(chǎn)生作用，然后被自動清除。此外，iniget函數(shù)不用于getstring和getvar函數(shù)。10. (getkword 提示)關鍵字輸入函數(shù)。要求用戶輸入一個關鍵字 。在調(diào)用本函數(shù)之前需先用iniget函數(shù)設置一個關鍵字表。Getkword把與用戶輸入相匹配的關鍵字作為字符串返回。11. （angle 點1 點2）求方位角函數(shù)。返回弧度值。12. （distance 點1 點2）求兩點間距離函數(shù)。3D的。13. （polar 點 角度 距離）求另一點的坐標函數(shù)。角度是以弧度為單位的 。14. (inters 點1 點2 點3 點4 方式)求交點函數(shù)。其中點1和點2為第一直線，點3和點4為第二直線。“方式”控制求交點的方式，即若此處有值且為NIL時，該函數(shù)允許交點在這兩條線段的延長線上；若無方式或不為NIL，則函數(shù)只求兩線段內(nèi)的交點。若無交點，返回NIL。與文件有關的函數(shù)1. （load 文件名 出錯處理）AutoLISP應用程序加載函數(shù)。該函數(shù)裝入一個AutoLISP程序文件，并執(zhí)行之。2. (ads)ads函數(shù)。返回當前裝入的ADS應用程序及ARX應用程序的列表。3. （arx） arx函數(shù)。返回ARX應用程序的列表4. (arxload 文件名 出錯處理)arx程序加載程序。5. （xload 文件名 出錯處理)ads程序加載程序。6. (arxunload 文件名 出錯處理)arx程序卸載程序。7. (xunload 文件名 出錯處理)ads程序卸載程序。8. （unload 文件名 出錯處理）AutoLISP應用程序卸載函數(shù)。9. (autoarxload 文件名 命令列表) arx程序自動加載程序10. (autoload 應用程序名 命令列表) AutoLISP應用程序自動加載函數(shù)。11. （autoxload 應用程序名 命令列表) ADS應用程序自動加載函數(shù)。12. (tartapp 應用程序命令 文件)WINDOWS應用程序啟動函數(shù)。13. （open 文件名 讀/寫標志）打開文件函數(shù)?！皉”為讀，“w”為寫?！癮”向舊文件中讀寫的內(nèi)容（該文件中應沒有以CTRL/Z表示的文件結束符）?！皐”和“a”狀態(tài)下，可新建一個文件。文件名中含路徑時，要以“/”代替“”。如：(setq f(open “new.txt” “w”)14. (close 文件描述符)關閉文件函數(shù)。如：(close f)15. (read 字符串)讀取函數(shù)。該函數(shù)返回從字符串中取得的第一個表或元素。16. (read-char 文件描述符)讀字符函數(shù)。該函數(shù)從鍵盤輸入緩沖區(qū)或從“文件描述符”表示的打開文件中讀入一個字符，并返回該字符的ASCII碼。17. (read-line 文件描述符)讀行函數(shù)。和read-char類似。只是返回一行的字符串。每執(zhí)行一次，指針指向下一行。18. （write-char 整數(shù) 文件描述符）寫字符函數(shù)。整數(shù)是要寫字符的ASCII碼。寫到屏幕或“文件描述符”表示的打開的文件中。19. （write-line 字符串 文件描述符）寫行函數(shù)。字符串要用引號，返回一個字符串。20. (prinl 表達式 文件描述符）prinl函數(shù)。該函數(shù)可以將“表達式”打印在屏幕上或文件中，返回表達式。表達式可以是含控制字符的字符串。e代表ESCn代表換行r代表回車t代表tabnnn代表八進制碼為nnn的字符，例如：(prinl “hello”)打印“hello”(prinl “hello” f)將“hello”寫入文件中(prinl (char 2)打印“002”(prinl (char 10)打印“n”21. (princ 表達式 文件描述符) 和prinl基本相同，區(qū)別是它能在表達式中實現(xiàn)控制字符的作用。一般的，prinl打印表達式的方法和load相兼容，而princ打印的表達式可以由如read-line這樣的函數(shù)讀出。22. (print 表達式 文件描述符）和prinl基本相同，只是前面換行和打印之后加空格。23. （terpri）在屏幕上打印一個空行。不用于文件的I/O操作。24. (prompt 信息)提示函數(shù)。25. (findfile 文件名)文件查找函數(shù)。其他函數(shù)1. (command AutoCAD命令 參數(shù))注意：（1）一個空字符串（“”）等效從鍵盤輸入一個空格，通常用于結束一個命令。（2）空調(diào)用（不加任何參數(shù)），即（command）,等效在鍵盤上鍵入Ctrl+C,它取消AutoCAD大多數(shù)命令（3）當AutoCAD命令需要目標選擇時，應提供一個包含entsel（實體選擇）的表，而不是一個點來選擇目標。（4）下列命令不能與AutoLISP的command函數(shù)一起使用：dtext,sketch,plot和prplot。（5）用戶輸入函數(shù)get不能在AutoLISP的command函數(shù)中使用。此外，command函數(shù)還具有暫停功能。當變量中出現(xiàn)PAUSE時，command函數(shù)暫停，以便用戶進行某些操作。2. （menucmd 字符串）menucmd函數(shù)。該函數(shù)可以實現(xiàn)AutoCAD菜單中各子菜單之間的轉(zhuǎn)換。格式為：菜單類型名=子菜單名菜單類型名為：S,B,I,P1P10，T1T4，A1等，其含義和菜單文件中的規(guī)定相同。如：（command “s=line”）3. (getenv 環(huán)境變量名)getenv函數(shù)。返回賦給系統(tǒng)環(huán)境變量的字符串。環(huán)境變量名是要讀取的內(nèi)容，若不存在則返回NIL4. (getvar 系統(tǒng)變量名)getvar 函數(shù)。提取AutoCAD系統(tǒng)變量的值。如：最近一次設定的倒角半徑為0.25，則：（getvar “FILLETRAD”）返回0.255. (setvar系統(tǒng)變量名 值)設定系統(tǒng)變量的值。CAD命令的setvar在設定ANGBASE時按度為單位，setvar函數(shù)按弧度為單位，再設定SNAPANG時setvar函數(shù)為相對于屏幕坐標X軸正方向的弧度值，而setvar命令為相對于ANGBASE的度。6. （osnap 點 捕捉方式）按捕捉方式的要求，根據(jù)點去尋找所要求的點。如：（setq pt2(osnap pt1 “mid”)）表示根據(jù)pt1去捕捉目標的中點，并賦值給pt2。7. (vports)返回當前的視窗說明表。這個表由視窗標號及視窗左下角、右上角的位置構成的表。該函數(shù)與系統(tǒng)變量TILEMODE的值有關。8. （type項）返回項的類型。類型有：REAL實型數(shù)FILE文件描述符STR字符串INT整型數(shù)SYM符號LIST表及用戶函數(shù)SUBRAutoLISP內(nèi)部函數(shù)PICKSETAutoLISP選擇集ENAMEAutoLISP實體名PAGETB函數(shù)分頁表9. (redraw 實體名方式)該函數(shù)的操作取決于變量的個數(shù)：1. 無變量時相當于AutoCAD的REDRAW命令。2. 有實體變量名時，僅重畫該實體。3. 若兩個變量都有，方式變量控制重畫的方式。方式作用1在屏幕上重畫實體2不畫實體（隱去）3加亮實體4加亮實體不10. （graphscr）將文本屏幕轉(zhuǎn)換為圖形屏幕。11. （textscr）將圖形屏幕轉(zhuǎn)換為文本屏幕。12. （textpage）將圖形屏幕轉(zhuǎn)換為文本屏幕,并清除該文本屏幕。13. （trace 函數(shù)名）該函數(shù)為一個輔助調(diào)試工具。他為指定的函數(shù)設置跟蹤標志。14. （untrace 函數(shù)名）解除函數(shù)的跟蹤。15. （eval 表達式）返回表達式的計算結果，其中表達式為任何LISP表達式。16. （ver）返回當前AutoLISP的版本號。17. （*error* 字符串）自定義出錯提示。實體和設備訪問函數(shù)1. （ssget 方式點1 點2）該函數(shù)得到一個選擇集。方式指定了選擇實體的方式，有：W（窗口） C（交叉） L（最新的） P（前一個）等，如：（ssget “W”(0 0)(5 5)）選擇在角點（0 0），（5 5）窗口內(nèi)的實體（ssget “C”(0 0)(5 5)）選擇在角點（0 0），（5 5）窗口內(nèi)以及與其相交的實體（ssget (2 2)）選擇通過點（2 2）的實體（ssget “L”）選擇最后完成的實體（ssget “P”）選擇前一次選過的實體（ssget ）要求用交互式選擇實體該函數(shù)返回（selection set:n）。n為選擇集的序號。AutoCAD規(guī)定每次構成的選擇集的個數(shù)不能多于六個。通常將選擇集賦值給一個變量。如：（setq s (ssget “p”)）函數(shù)還有按“過濾表”的要求來構造選擇集的方式。形式為（ssget “x” 過濾表）。過濾表為一關聯(lián)表，它指明要檢查的實體特性及匹配值。如：（ssget “x”(list (cons 0 “circle”)）將返回由圖中所有圓組成的選擇集。如果過濾表中含有一個以上的關聯(lián)表，則選擇集中的每個實體必須滿足所有的條件。過濾表中可以使用通配符。2. （sslength 選擇集）返回選擇集的長度。3. （ssname 選擇集 索引號）返回選擇集中一個實體的名稱，該實體在選擇集中的序號為其索引號。如：（setq entx (ssname sset 600)）取出選擇集sset中第601個實體的名稱4. （ssadd 實體名 選擇集）向選擇集中加入新實體。若無選擇集，則構成新選擇集。若無任何變量，則返回一個新的空選擇集。5. （ssdel 實體名 選擇集）從選擇集中刪除指定實體。6. （ssmemb 實體名 選擇集）測試給定實體是否在選擇集中。若在，則返回實體名，否則返回NIL。7. (entnext 實體名)返回數(shù)據(jù)庫中實體名之后的那個實體。若無變量調(diào)用，則返回數(shù)據(jù)庫中第一個實體。用ssget函數(shù)構成的選擇集中只有主實體名。但一個復雜實體除了主實體外，還有一些子實體。如塊的屬性及多義線的頂點等。用entnext函數(shù)可順序找出各子實體8. （entlast）返回數(shù)據(jù)庫中最后一個實體的名稱。9. （entdel）刪除當前圖中的指定實體。若在本次編輯中該實體已被刪除，則調(diào)用本函數(shù)可將其恢復。但它只能在刪除實體的那次編輯中使實體恢復。塊中定義的實體不能被刪除。10. （entsel 提示）要求用戶以交互的方式選擇一個實體。選擇實體時只能采用選點的方式，返回一張表：（實體名 選擇點）。11. (nentsel 提示)用于存取包含插入的實體（內(nèi)部塊）定義數(shù)據(jù)。若被選擇的實體不是一個復雜實體（多義線和塊），nentsel和entsel返回的信息一個。若被選擇實體是多義線，則nentsel返回包含子實體（頂點）和選取點的一個表。當被選擇目標是一個塊時，netsel返回包含描述下一個塊的四個元素的一個表。12. (entget 實體名 任選集)根據(jù)實體名在數(shù)據(jù)庫中檢索實體，返回實體定義數(shù)據(jù)的一張表,用assoc函數(shù)可以從中檢索到每一個項。表中的內(nèi)容是用AutoCAD的 .DXF文件的組碼的形式定義的。若提供了記錄應用程序名的任選表，則返回上述表的同時返回相關指定應用程序的擴展實體數(shù)據(jù)。13. (entmake 實體定義數(shù)據(jù)表)在圖中生成一個新的實體：若成功則返回數(shù)據(jù)表，否則返回NIL。其變量必須是一個實體的定義數(shù)據(jù)表，該表與entget函數(shù)返回的表格式相似，且必須提供實體的所有信息。生成一個實體的一種方法是用entget函數(shù)獲取一個實體的定義數(shù)據(jù)，然后對其進行修改后加入圖中。如：按圓心坐標（4，4）、半徑為1繪制一個紅色的圓。層和線型為缺省值：（entmake(0“CIRCLE”)；實體類型(62 1)；顏色(10 4.0 4.0 0.0)；中心點(40 1.0)；半徑)14. （entmod實體定義數(shù)據(jù)表)更新實體數(shù)據(jù)庫中的信息。變量為一個修改過的實體定義數(shù)據(jù)表。如：(setq en (entnext)；置en為庫中第一個實體的名(setq ed(entget en)；置ed為en的實體定義數(shù)據(jù)表(setq ed(subst(cons 8 “0”) (assoc 8 ed) ed)；將ed中圖層組設為“0”層)(entmod ed)；更新數(shù)