養(yǎng)成良好的AutoLISP書寫習慣

1、養(yǎng)成良好的AutoLISP 書寫習慣眾所周知，Lisp是一種表結(jié)構(gòu)語言，括號必須成對出現(xiàn)，在調(diào)試時往往為遺漏了一個括號大 費周折，所以，養(yǎng)成一個好的編程習慣是學好Lisp所必須的。選擇一個較好的編輯器，這是一個基本條件，建議使用Visual Lisp編輯器或Lis plink等專用編輯器，此類編輯器可以對函數(shù)突出顯示。按Lisp( DCL)專有格式書寫，并經(jīng)常對程序進行格式化”，及時發(fā)現(xiàn)語法錯誤，并有利于調(diào)試是查找錯誤。使用自定義函數(shù)，并輔助以適當?shù)米⑨專谳^大程序中按功能使用自定義函數(shù)可以使 得程序條理化。autolisP 的入門教程+ autolisp 函數(shù)！Lisp是一門歷史悠久的語言，

2、全名叫 LISt Processor，也就是 表處理語言”，它是由John McCarthy于1958年就開始設(shè)計的一門語言。 和Lisp同時期甚至更晚出現(xiàn)的許多語言如Algo等如今大多已經(jīng)消亡，又或者僅僅在一些特定的場合有一些微不足道的用途，到現(xiàn)在還廣為人知的恐怕只剩下了Fortran和COBOL。但唯獨Lisp,不但沒有隨著時間而衰退，反倒是一次又一次的煥發(fā)出了青春，從Lisp分支出來的Scheme、ML等語言在很多場合的火爆程度甚至超過了許多老牌明星。那么這顆常青樹永葆青春的奧秘究竟在哪里呢？如果你只接觸過 C/C+、Pascal這些過程式語言”的話，Lisp可能會讓你覺得十分不同尋 常

3、，首先吸引你眼球(或者說讓你覺得混亂的)一定是Lisp程序中異常多的括號，當然從現(xiàn)在的角度來講，這種設(shè)計的確對程序員不大友好， 不過考慮到五六十年代的計算機處理能 力，簡化語言本身的設(shè)計在那時算得上是當務(wù)之急了。Lisp的基本語法很簡單，它甚至沒有保留字(有些語言學家可能對這一點有異議，別怕，我 聽你們的)，它只有兩種基本的數(shù)據(jù)，僅有一種基本的語法結(jié)構(gòu)就是表達式，而這些表達式 同時也就是程序結(jié)構(gòu)，但是正如規(guī)則最簡單的圍棋卻有著最為復雜的變化一樣，Lisp使用最基本的語言結(jié)構(gòu)定義卻可以完成其它語言難于實現(xiàn)的、最復雜的功能。廢話少說，現(xiàn)在我們就來看看Lisp語言中的基本元素。Lisp的表達式是一個

4、原子(atom)或表(list)，原子(atom)是一個字母序列，如abc ;表是由零個或多個表達式組成的序列，表達式之間用空格分隔開，放入一對括號中，如：abc()(abc xyz) (a b (c) d)最后一個表是由四個元素構(gòu)成的，其中第三個元素本身也是一個表。正如算數(shù)表達式1+1有值2 一樣，Lisp中的表達式也有值，如果表達式e得出值V,我們說e返回V。如果一個表達式是一個表，那么我們把表中的第一個元素叫做操作符，其余的 元素叫做自變量。Lisp世界中的7個公理(基正如歐幾里德的幾何世界中有五個公理一樣，我們在這里給出 本操作符)：(quote X)返回X,我們簡記為x(atom X

5、)當X是一個原子或者空表時返回原子t，否則返回空表()。在Lisp中我們習慣用原子t表示真，而用空表 ()表示假。 (atom a)t (atom (a b c)() (atom ()t現(xiàn)在我們有了第一個需要求出自變量值的操作符，讓我們來看看quote操作符的作用一一通過引用(quote) 一個表，我們避免它被求值。一個未被引用的表達式作為自變量，atom將其視為代碼，例如： (atom (atom a)t反之一個被引用的表僅僅被視為表 (atom (atom a)()引用看上去有些奇怪，因為你很難在其它語言中找到類似的概念，但正是這一特征構(gòu)成了Lisp最為與眾不同的特點一一代碼和數(shù)據(jù)使用相同

6、的結(jié)構(gòu)來表示，而我們用quote來區(qū)分它們。(eq X y)當x和y的值相同或者同為空表時返回t，否則返回空表() (eq a a)t (eq a b)() (eq ()()t例如：我們有時想捕捉任意兩點的中點，而不只是一條線上的中點，用系統(tǒng)自己的捕捉中點(它要有輔助線)就不行了，我們可以參考 捕捉虛中點sP程序來實現(xiàn)。除程序中的語句要學外，動畫中的自動找到所 有的全局變量并把它們改為局部變量的方法很有用！動畫中先畫了一個六邊形，再畫一個圓與它內(nèi)接， 圓心就是捕捉虛中點！AutoLis P 概述AutoLisp的數(shù)據(jù)類型，它有10種數(shù)據(jù)類型，常見的有五種：整型 INT實數(shù)型 REAL 符號型S

7、YM字符串STR表 LIS PS-表達式，它是原子和點在AutoLisp中，最基本的數(shù)據(jù)類型稱為符號表達式，也稱為對的總稱，點對通常表示為表。原子是一個一般符號系列，有兩種類型的原子，一種稱為數(shù)子原子(簡稱數(shù)”)，AutoLIsp可處理整數(shù)和實數(shù)，其它不是 數(shù)”原子稱為非數(shù)字原子，它包括符號原子（或稱為文字原子） 和串原子。注意：0.4不能寫成.4。符號原子的大小寫是等效的。符號原子可以包含下列字符以外的任何可打印字符。用于定義表用于作點對用于注釋的開始用作QUOTE函數(shù)的簡寫用作字符串常數(shù)的定界符正反括號句號分號 雙引號6個字符。（而不是nil.符號原子的長度沒有限制，且所有的字符都是有意義

8、的，但盡量不要超過約束是一對符號和值，當將一個值賦給符號時，就說符號被約束到那個值。值 符號）決定所代表信息的類型，故一個符號可以接受任何類型的值，其初始值為在AutoLisP中，有兩個特殊的符號原子，即T和nil.字符串的個數(shù)（不包括定界符）稱為字符串的長度。字符串可以是任意長度，它們的存儲空間是動態(tài)分配的，但字符串常量的最大長度不超過100，長度為0字符串稱為空串?？梢杂胣nn”的方式表示字符，其中nnn為八進制。e Escn 換行r 回車t 制表符（Tab節(jié)）點對是由一個左括號，后接一個S-表達式和空格再接一個句點和空格和一個右括號。表是指放在一對相匹配的左右括號中的元素有序集合。表中的

9、項稱為表的元素， 表中的元素可以是任意類型的 S-表達式，序號 0到n 1。如果嵌套，0層，1層表的長度，頂層元素的個數(shù)。只有nil是表（）又是原子。表有兩種類型：標準表，引用表。引用表是在表的前面冠以引用符號（或Quote）對該表不求值。標準表：第一個元素的值必須是一個合法的已經(jīng)存在的AutoLisp函數(shù)定義，后跟調(diào)用該函數(shù)的參數(shù)。AutoLisp采用前綴表示法 即把運算符放在操作數(shù)之前，而不是中間，并把運算符（函數(shù)名）和操作數(shù)（調(diào)用函數(shù)的參數(shù)）用圓括號括起來，以表的方式表示。一個完整的AutoLisp程序往往是由一系列按順序排列的S-表達式組成的。如：（defu n p lus （x y）

10、（+ （ + x y） X）（SetQ a 2.0）（SetQ b 2.0）（p lus a b）一個S-表達式可以分多行寫，一行也可以寫多個表達式。注釋以分號開始，并在一行的末尾結(jié)束，AutoLisp的求值器忽略注釋。AutoLisp是一種求值型語言，求值程序第一次碰到一個求值代碼塊時，整個塊被轉(zhuǎn)換成壓宿代碼，如果程序中再次碰到那個塊，只是簡單的運行它。求值過程：1，整形，實數(shù)，字符串，文件指針，系統(tǒng)內(nèi)部函數(shù)，以及兩個特殊的符號原子，對它 們求值就是它們本身。2，符號原子是以當前的約束值作為它們的求值。3，表是根據(jù)它的第一個元素的數(shù)據(jù)類型進行求值的。(1) 第一個元素的值為表，該表就假定為用

11、戶定義的函數(shù)。(2) 如果表的第一個元素的求值結(jié)果為一個內(nèi)部函數(shù)，則剩余元素作為參數(shù)傳給該函 數(shù)，并執(zhí)行該函數(shù)的代碼，由函數(shù)的類型確定是否對傳給它的參數(shù)進行求值。輸入距離Lisp語言中輸入距離的函數(shù)為 getdist，但我們有時需要輸入負值，有時需要在輸入距離的 同時得到角度，使用 getdist函數(shù)就顯得無能為力，這時，我們可以靈活使用其它交互輸入 函數(shù)如get point、getcorner等，通過計算得到我們所需要的值。例1是一段輸入長度的同時得到默認角度的代碼，使用getpoint函數(shù)。;例1(setqpt1dst*ptO (getpoint n直線基點：);長度及角度可用鍵盤或鼠標定

12、位;計算長度;計算默認角度直線方向 :)(getpoint pt0 n直線長度：)(dista nee pt0 p t1)ang (an gle ptO p t1) ang1 (geta ngle ptO (strcat n)*例2是可以按陣列方式輸入行列間距的代碼，輸入距離為正值，修改部分代碼可輸入負值，使用getcorner函數(shù)，同時使用initget的控制位128。*；例2(defu n lc_dist ()(in itget 128)(setq disr (get poin t n(if (= (type disr) LIST)(progn(in itget 1)(setq dis (

13、getcorner disr n指定對角點：)disc (abs (- (car dis) (car disr) disr (abs (- (cadr dis) (cadr disr)(if (= (type disr) STR)(if (setq dis (distof disr)(p rogn(in itget 6)(setq disc (getdist n輸入列間距：)(p rogn(princ n需要正數(shù)值或兩個二維角點。(lc_dist);允許任意輸入 指定單位單元或輸入行間距：);鼠標輸入;鼠標輸入對角;正值行距;正值列距;計算行列間距;鍵盤輸入行距;判斷輸入的是否距離;輸入列距;

14、鍵盤輸入格式不符返回)”);空輸入返回）（P rogn（princ n需要正數(shù)值或兩個二維角點。（lc_dist）)中特定角度及長度捕捉的實現(xiàn)方法AutoCAD一、引言在AutoCAD中的角度捕捉只有當正交狀態(tài)打開時的直和水平方向，對于其他特殊角度 無能為力；另外，其網(wǎng)點捕捉也是相對于X軸和丫軸，無法實現(xiàn)其他方向的特殊長度捕捉,給繪圖帶來極大的不方便。在應用AutoCAD進行設(shè)計制圖的操作中，LINE和POLYLINE是使用頻率最高的兩個命令，經(jīng)常要遇到在某些特定角度上繪制特定長度的簡單線或復合線的情況，因而實現(xiàn) 這兩個捕捉對提高 AutoCAD作圖效率很有實用價值。a的一定范圍內(nèi)選取一點時，

15、該點自動落X軸正方向出0 N 360/ a,二、方法原理所謂角度捕捉，是指當十字光標在某一角度在該a角度線上；當我們設(shè)定捕捉角度為a時，將會以基準點作為原點、自發(fā)，將整個屏幕劃分為360/ a區(qū)間，則NXx角度就是角度捕捉線，其中,360/ 表示不大于360/舶整數(shù)。該系列點離所謂長度捕捉，是在角度捕捉的基礎(chǔ)上， 在某一角度線上有一系列捕捉點，基準點的距離為捕捉長度的正整數(shù)倍，當選取直線上的一點時， 落點自動落到離其最近的捕捉點上。實現(xiàn)特定角度和長度捕捉的關(guān)鍵點是：當十字光標（即十字交*線）移動時，程序要隨時跟蹤其交*點的位置，并將該位置與用戶所設(shè)定的捕捉角度與長度對應起來，從而計算出在 該角

16、度上的落點。以下舉例說明該兩個捕捉的實現(xiàn)過程:假定捕捉角度為 a =30。,捕捉長度為L。當十字光標在任意的某一區(qū)間內(nèi)移動時，比如在第5區(qū)間（120。150 內(nèi)移動時，此120。135。之間時，則落點應在120。線上，該落點的具120。線作垂線來獲得，其交點D（稱為垂點）即為落點，為直 O點）向落點作一橡筋拖曳線， 該橡筋拖曳線隨十字光標的移（見圖1）;同樣，當十字光標的中心點處在135150之間該橡筋拖曳線并不是真正的線段，只時，落點只能在120或150線上（該線在圖中并不直接顯示），該兩根角度線的中心線為 135 。當十字光標的中心點處在 體位置為由十字光標的中心點向 觀起見，此時由基準點

17、（此處為 動而相應移動，顯示出拖動過程 時，則落點應在150線上，并顯示相應的橡筋拖曳線。是用XOR墨水繪制的一個向量， 當用XOR墨水重新繪制一遍該向量時，該向量將從屏幕上消失，這就是本程序?qū)崿F(xiàn)光標拖動的原理。落點落在某一捕捉角度線上時， 還得落在捕捉長度 L的整數(shù)倍的點（稱為捕捉點）上，還 是針對圖1，其垂點必然處于某兩個捕捉點 A與B之間，設(shè)A與B的中點為C,當D處于A 與C之間時，落點應為 A;當D處于C與B之間時，落點應為 B （見圖1）。其中：OA = n XL ; OB = (n + 1) XLn:非負整數(shù)。L:捕捉長度。此時，程序通過一定的操作將在屏幕的最上面的坐標提示行準確地

18、顯示落 點相對基準點的偏移長度和偏移角度。用戶可以滑動鼠標準確捕捉到目標點。至此，已實現(xiàn)某些特定角度及長度的捕捉。 為了滿足在程序執(zhí)行過程中能隨時更改捕捉角度 和捕捉長度的需要，本程序還增加了相應的模塊； 另外，本程序中嵌入了窗口放縮功能模塊, 通過點取下拉菜單中窗口及漫游子菜單，方便了各種作圖的需要。三、源程序清單；OS.LSP源程序;err（）,出錯處理子程序(defu n err ( msg)(if (/= msg Fun ctio n can celled)(prin c(strcat nError: msg); 打印錯誤內(nèi)容);for if(setq *error* olderr)(

19、setvar cmdecho scmd)(setvar osmode cosmode)(setvar coords ccoords)(princ);for defu n err;ant(),設(shè)定捕捉角度子程序(defu n an t ( / angO ang1 )(setq an gO (* anO (/ 180 pi)(princ (strcat n請輸入捕捉角度：_)(INITGET 4)(setq ang1 (getreal)(if (n ot (null an g1)(setq an0 (* an g1 (/ pi 180)(princ n F2/F3/F4/F5/ESC/Return

20、 / 下一點:);for defu n ant;leng(),設(shè)定捕捉長度距離子程序(defu n leng ( / le ng0 Ieng1 )(setq Ieng0 Ien0)(princ (strcat n請輸入捕捉長度距離：_)(INITGET 4)(setq Ieng1 (getreal)(if (n ot (null le ng1)(setq Ien0 Ieng1 )(princ n F2/F3/F4/F5/ESC/Return / 下一點:);for defu n lent;field(),判斷十字光標所在區(qū)間,并投影到相應的捕捉角度線上(defu n field ( ps pe

21、 angO / ang1 n )(setq ang1 (an gle ps pe)(setq n (fix 什(/ a ng1 angO) 0.5)(setq an g2 (* angO n);for defu n;endp(),十字光標投影到相應的捕捉角度上后，以用戶設(shè)定的長度;捕捉計算落點(defu n endp ( ps pe ang0 / p1 p2 p3 p4 dis )(setq p1 psp2 (po lar ps ang0 1)p3 pep4 (p Olar pe 什 an g0 (/ pi 2) 1)(setq pend (in ters p1 p2 p3 p4 n il)(

22、setq dis (dista nee ps pe)(if ( / = Ien0 0)(setq dist (* (fix 什(/ dis Ien0) 0.5) len 0);else(setq dist dis)；for if(setq pend (po lar ps angO dist);for defu n endp;drag(),對上一次顯示的拖曳線進行”或操作,使其從屏幕上消失，;并繪制下一次拖曳線(defu n drag ( poldl p old2 p old3 / )(if ( / = b2 4)(p rogn(grdraw p old1 p old2 -1 0)(grdraw

23、 p old2 p old3 -1 0);for if(grdraw p start pend -1 0)(grdraw pend p frame -1 0);for defu n drag;coord(),在屏幕的最上一行的坐標欄顯示長度和角度(defu n coord ( / str Ieng1 Ieng0 ang0)(setq an g0 (* an g2 (/ 180 pi)(setq str (strcat (rtos dist) (rtos an g0)(grtext -2 str);for defu n coord;ini t(),對程序進行初始化(defu n in it (

24、/ )(setq scmd (getvar cmdecho);保留原命令回顯方式(setq ccoords (getvar coords);保留原坐標顯示方式(setq cosmode (getvar osmode)(setq olderr *error* *error* err);出錯處理(setvar cmdecho 0); 不回顯(setvar coords 0);不顯示坐標(setvar osmode 0 ); 取消捕捉(setq b 0 b1 0 c (0 0)(setq pstart (get poi nt n請輸入直線第一點:)(if (or (n ull anO ) ( anO

25、 0) (n ot (nu mberp anO)(p rogn(setq an 0(/ pi 6)(ant);for if(if (or (n ull le n0 ) (= (dista nee p last p frame) 0.1) (p rogn(drag p start po Ide p last)(setq p last p frame po Ide pend)；for p rogn)；for if)；for p rogn);for condl(=b 3);用鼠標在屏幕上點取一點時(p rogn(setq p frame (cadr a)(field p start p frame

26、anO)(endp p start p frame ang2)(if (= (dista nee p last p frame) 0.1)(p rogn(grdraw p start po Ide -1 0)(setq p last p frame po Ide pend);for p rogn);for if);for p rogn);for cond1(=b 2);鍵盤輸入(p rogn(setq c1 (cadr a)(cond (= c1 138) (an t) ;F2(=c1 139) (le ng) ;F3(=c1 140) ;F4(p rogn(setq b2 4)(comma

27、ncTzoom 0.7x);for (= c1 140)(=c1 141) ;F5(p rogn(setq b2 4)(comma ncTzoom 1.4x);for (= c1 141)(=c1 13) (home)(=c1 27) (home)(T (princ n未定義的鍵);for cond(princ n F2/F3/F4/F5/ESC/Return / 下一點:);for p rogn);for (co nd (= b 2)(=b 4);點取下拉菜單時(p rogn(setq c1 (cadr a)(princ n)(cond (= c1 6005)(p rogn(comma nd

28、zoom w)(princ n 第一角點:)(comma nd p ause)(princ n 第二角點:)(comma nd p ause);for (= c1 6005)(=c1 6007)(comma ncTzoom p)(=c1 6008)(comma ndzoom a)(=c1 6011)(p rogn(comma ndpan)(princ n 第一參考點:)(comma nd p ause)(princ n 第二參考點:)comma nd p ause);for (= c1 6011);else(T (princ n未定義的菜單);for cond(princ n F2/F3/F4

29、/F5/ESC/Return / 下一點:);FOR P ROGN);for (cond (= b 4)(T (home) ) ;for else);for cond)；for p rogn);for while);for defu n p ull;draw(),繪制直線子程序(defu n draw ( / )(while (/= b1 1)(p rogn(if (= b 3)(p rogn(comma ndli ne p start pend )(princ n F2/F3/F4/F5/ESC/Return / 下一點:)(setq b 0 b1 1)(setq p start pend)

30、;for p rogn);for if(p ull);for p rogn);for while(grdraw p start pend -1 0)(grdraw pend p frame -1 0);for defu n draw;主程序(defu n c: os ( / b b1 b2 c p start pend p frame p last ang2dist scmd ccoords olderr cosmode );anO lenO are defi ned out p rogram(init)(draw)(princ rr)(comma ndredraw)(setq *error*

31、 olderr)(setvar cmdecho scmd)(setvar osmode cosmode)(setvar coords ccoords)(princ nnt角度捕捉2.0版-n）（princ nnt*寧波大學建筑設(shè)計研究院-程建華，1996*n）(princ);for defu n os四、程序的安裝與使用1.程序的安裝以下三種裝載方式，用戶任選一種即可：在AutoCAD環(huán)境下，將 OS丄SP拷至當前目錄,再執(zhí)行（LOADOS）即可裝載OS.LSP。也可先將 OS.LSP拷至子目錄下,再在ACADSUPPORTACADR12丄SP或ACADR13ISP中加入下面一句語句實現(xiàn)啟動

32、AutoCAD時自動裝載：(AUTOLOAD OS (OS)也可將OS丄SP拷至子目錄下，在子目錄下的菜單文件ACAD.MNU中的合適位置加上下面的一句語句，即可直接在菜單中點取角度捕捉操作:角度捕捉 FcAc(loadc:/acad/support/os.lsp) os2.程序的使用在一幅圖中第一次使用該程序時， 需要用戶輸入捕捉角度和捕捉長度， 第二次調(diào)用本程序時, 程序可自動采用上一次最后設(shè)定的捕捉角度和長度作為默認值。 然后，程序需要用戶選擇輸 入一點作為基準點，此時命令行提示：F2/F3/F4/F5/ESC/Retuin /下一點：用戶根據(jù)該提示可任選其中的一種操作，具體解釋如下:按

33、F2鍵重新設(shè)定捕捉角度;按F3鍵重新設(shè)定捕捉長度;按F4鍵窗口縮小0.7倍;按F5鍵窗口放大1.4倍;按ESC鍵、回車鍵、鼠標右鍵均可結(jié)束操作，退出程序;選取下一點，移動十字光標鍵，此時在屏幕的最上面的一行的坐標提示欄準確地顯示出 按用戶設(shè)定的捕捉角度和長度所取得的落點相對于基準點的偏移角度和長度，滑動十字光標鍵直至用戶尋找到所需要的下一點并按下鼠標左鍵，命令行重又出現(xiàn)上面的提示行，并進行下一輪循環(huán)； 另外，用戶還可以點取 View菜單下的Zoom菜單中的Zoom Window 、Zoom Previous、Zoom All等三個子項實現(xiàn)窗口放縮和 Pan菜單實現(xiàn)屏幕漫游； 對于其他操作，用戶均可按 屏幕命令行的中文提示方便地進行操作。在非漢化AutoCAD中運行本程序時，只需將程序中有關(guān)的中文提示行改成英文提示即可。另外，由于不同的機型在 AutoCAD環(huán)境下鍵盤返回碼可能稍有區(qū)別，所以要求用戶在應用本程序之前對自己的機器鍵盤返回碼按如下方法作 一次核實：在AutoCAD命令狀態(tài)下輸入(grread)并回車，用戶此時可按下F2或F3、F4、F5鍵:第一步：Comma