Autolisp編程心得

1、精品文檔Autolisp編程心得1. 養(yǎng)成良好的書寫習(xí)慣眾所周知，Lisp是一種表結(jié)構(gòu)語言，括號(hào)必須成對(duì)出現(xiàn)，在調(diào)試時(shí)往往為遺漏了一個(gè)括號(hào) 大費(fèi)周折，所以，養(yǎng)成一個(gè)好的編程習(xí)慣是學(xué)好Lisp所必須的。選擇一個(gè)較好的編輯器，這是一個(gè)基本條件，建議使用Visual Lisp編輯器或Lisplink等 專用編輯器，此類編輯器可以對(duì)函數(shù)突岀顯示。按Lisp ( DCL專有格式書寫，并經(jīng)常對(duì)程序進(jìn)行“格式化”，及時(shí)發(fā)現(xiàn)語法錯(cuò)誤，并有利于調(diào)試是查找錯(cuò)誤。使用自定義函數(shù)，并輔助以適當(dāng)?shù)米⑨?，在較大程序中按功能使用自定義函數(shù)可以使得程序條理化。2. 函數(shù)中循環(huán)與轉(zhuǎn)移的使用在高級(jí)語言中一般有類似“goto ”的

2、語句實(shí)現(xiàn)轉(zhuǎn)移，在 AutoLisp中沒有轉(zhuǎn)移的函數(shù)。我們可 以使用自定義函數(shù)實(shí)現(xiàn)轉(zhuǎn)移，用if及cond輔助實(shí)現(xiàn)條件轉(zhuǎn)移。當(dāng)我們需要實(shí)現(xiàn)在滿足一定條件時(shí)進(jìn)行循環(huán)的功能，一般使用while函數(shù)，但有時(shí)需要判斷的條件較復(fù)雜時(shí)，使用while函數(shù)往往不能實(shí)現(xiàn)或使得程序不夠簡(jiǎn)潔。這時(shí)我們可以使用“轉(zhuǎn)移”， 將需要實(shí)現(xiàn)的功能作為(子)函數(shù)，使用恰當(dāng)，可以在程序中任意“轉(zhuǎn)移”。一般認(rèn)為，當(dāng)一段代碼在不同處重復(fù)使用時(shí)，我們才會(huì)使用子函數(shù)定義，其實(shí)，利用函數(shù)的更大的優(yōu)點(diǎn)是使得程序更加結(jié)構(gòu)化。這就使得我們不必拘泥于程序中的循環(huán)語句，而使用函數(shù)的循環(huán)調(diào)用，輔助適當(dāng)?shù)呐袛啵瑢?shí)現(xiàn)“轉(zhuǎn)移”，如A-B-A。當(dāng)然也可以進(jìn)行自

3、身調(diào)用，構(gòu)成一個(gè)“標(biāo)準(zhǔn)的”循環(huán)。如例一中，“程序執(zhí)行完畢返回”與“空選返回”兩種情況如果使用循環(huán)語句，其條件是完全不同的，而將函數(shù)本身作為子函數(shù)調(diào)用，程序簡(jiǎn)潔明了。3.i nitget函數(shù)中關(guān)鍵字 “(空格)的使用空格可以被用作關(guān)鍵字，一般多用來定義鼠標(biāo)右鍵退岀。當(dāng)用戶輸入函數(shù)不支持控制位(如entsel、nentsel、nentselp )時(shí)，可直接使用“ (initget )”。當(dāng)用戶輸入函數(shù)支持控制位(如getpoint等)時(shí)，可使用 “ (initget 1 “)”禁止空輸入，而將回車等空輸入作為關(guān)鍵字使用。當(dāng)同時(shí)使用其它關(guān)鍵字時(shí)，應(yīng)該將空格作為一系列關(guān)鍵字的最后一個(gè)，用“ (in i

4、tget C )” (兩個(gè)空格)調(diào)用，否則無效。見例一。*;例一(defu n ett_ct()(initget C );關(guān)鍵字“ C”及空格(setq s0 (entsel n設(shè)置顏色 C /選取文本：)(cond(=s0 C) (ett_col)；(=s0 ) nil);(and (= (type s0) LIST);(=(cdr (assoc 0 (e ntget (car s0) TEXT);) )(ett_ct);)(t (ett_ct);)*轉(zhuǎn)設(shè)置顏色子函數(shù) 空格退岀選擇實(shí)體判別文本操作內(nèi)容編輯后返回選擇空選返回選擇有時(shí)需要進(jìn)行復(fù)雜的判斷，使用如“ (=SO )”語句可能不能準(zhǔn)確判

5、別輸入的空格關(guān)鍵字與空選擇，可以使用“ (=(type s0) STR) ”語句4. Lisp的暫停與while的特殊使用Lisp一般在交互輸入時(shí)才會(huì)暫停，如果只需要實(shí)現(xiàn)屏幕顯示暫停，可使用grread函數(shù)，grread函數(shù)對(duì)所有合法的輸入設(shè)備均會(huì)作岀反應(yīng)，有時(shí)我們只希望對(duì)鍵盤有反應(yīng)，可使用while函數(shù)進(jìn)行循環(huán)。*(pri nc nPress ENTER to con ti nue:)(while (/= (car (grread) 2)*while用于滿足一定條件的循環(huán)，其標(biāo)準(zhǔn)語法為：(while testexpr expr.)其中expr解釋為“在testexpr 為nil之前要求值的一

6、個(gè)或多個(gè)表達(dá)式”，為可選項(xiàng)(在R14之前沒有方括號(hào)，但仍為可選項(xiàng))。正常我們使用 while時(shí)，總會(huì)有expr項(xiàng)，更多的時(shí)候，我們是為了 expr項(xiàng)才會(huì)使用這種循 環(huán) 語句，所有我們往往有expr項(xiàng)是不可缺少的感覺。這里我們使用while函數(shù)的語法是 while函數(shù)的 特例，即沒有expr項(xiàng)的情況。如果希望對(duì)鼠標(biāo)右鍵同時(shí)反應(yīng)，可以使用：*(pri nc nPress ENTER to con ti nue:)(while (and (/= (setq a(car (grread) 2);鍵盤(/= a 11);鼠標(biāo)右鍵(SHORTCUTMENU)(/= a 25);鼠標(biāo)右鍵(SHORTCUTM

7、E1NU)*5. 輸入距離Lisp語言中輸入距離的函數(shù)為getdist ，但我們有時(shí)需要輸入負(fù)值，有時(shí)需要在輸入距離的同時(shí)得到角度，使用getdist函數(shù)就顯得無能為力，這時(shí)，我們可以靈活使用其它交互輸入函數(shù) 如getpoint、getcorner等，通過計(jì)算得到我們所需要的值。例二是一段輸入長(zhǎng)度的同時(shí)得到默認(rèn)角度的代碼，使用getpoi nt函數(shù)。*例二(setq pt0 (getpoint n直線基點(diǎn)：)pt1 (getpoint pt0 n直線長(zhǎng)度：)dst (dista nee pt0 pt1) ang (an gle pt0 pt1)長(zhǎng)度及角度可用鍵盤或鼠標(biāo)定位計(jì)算長(zhǎng)度計(jì)算默認(rèn)角度a

8、ngl (geta ngle pt0 (streat n直線方向 :)*例三是可以按陣列方式輸入行列間距的代碼，輸入距離為正值，修改部分代碼可輸入負(fù)值, 使用getcorner函數(shù)，同時(shí)使用initget 的控制位128。*例三(defu n lc_dist ()(in itget 128);(setq disr (getpoi nt n指定單位單元或輸入行間距：)(if (= (type disr) LIST);(prog n(in itget 1)(setq dis (getcorner disr n指定對(duì)角點(diǎn) :);disc (abs (- (car dis) (car disr) ;d

9、isr (abs (- (cadr dis) (cadr disr) ;) ;)(if (= (type disr) STR);(if (setq dis (distof disr);(prog n(in itget 6)(setq disc (getdist n輸入列間距：)；)(prog n;(pri nc n需要正數(shù)值或兩個(gè)二維角點(diǎn)。)(lc_dist)(prog n;(princ n需要正數(shù)值或兩個(gè)二維角點(diǎn)。)(lc_dist)允許任意輸入鼠標(biāo)輸入鼠標(biāo)輸入對(duì)角正值行距正值列距計(jì)算行列間距鍵盤輸入行距判斷輸入的是否距離輸入列距鍵盤輸入格式不符返回空輸入返回)*6. 數(shù)學(xué)運(yùn)算函數(shù)的數(shù)量界限

10、在Lisp中對(duì)表中數(shù)據(jù)進(jìn)行求和、求最大值等數(shù)學(xué)運(yùn)算時(shí)，往往直觀的對(duì)表直接賦予運(yùn)算函 數(shù)，使用語句如“ (eval (cons MAX numlist)”，一般都可以進(jìn)行計(jì)算，但當(dāng)表中數(shù)據(jù)數(shù)量大于255 時(shí)，將會(huì)岀現(xiàn)錯(cuò)誤“ bad argument value: does not fit in byte: 256”。對(duì)于這種情況，我們不必對(duì)數(shù)據(jù)表進(jìn)行分段，可以直接使用函數(shù)apply，語法更簡(jiǎn)單：(applyMAX numlist) 。apply可將數(shù)據(jù)表傳送給指定的函數(shù)進(jìn)行求值而不受數(shù)據(jù)數(shù)量的影響。受表中數(shù)據(jù)數(shù)量影響的數(shù)學(xué)運(yùn)算函數(shù)有：+、-、*、/、max min、logand及l(fā)ogior。7

11、. 選擇集與表選擇集是一種特殊結(jié)構(gòu)的表，只能通過特定的函數(shù)進(jìn)行操作，但這些函數(shù)對(duì)大量重復(fù)的操作只能通過循環(huán)實(shí)現(xiàn)，顯得力不從心，不能體現(xiàn)Lisp語言表結(jié)構(gòu)的優(yōu)越性。其實(shí)我們只要通過存取實(shí)體名或?qū)嶓w句柄，將它們存為一個(gè)普通結(jié)構(gòu)的表，完全可以通過常規(guī)表操作函數(shù)實(shí)現(xiàn)對(duì)實(shí)體的操作。例四是一段使用 apply、mapcar函數(shù)聯(lián)合求文本選擇集中文本基點(diǎn)最大y值得代碼，只是一個(gè)示例，如果結(jié)合 VL-sort函數(shù)，可輕松實(shí)現(xiàn)對(duì)文本的排序。*;例四(setq sl nil i -1)(repeat (ssle ngth (setq ss (ssget (0 . TEXT)(setq i (1+ i)en (ss

12、 name ss i);sl (c ons en sl);)(setq maxy (apply max;(mapcar(lambda (x)(caddr (assoc 10 (en tget x);)sl)*選擇文本從選擇集中取岀文本構(gòu)造包含實(shí)體名的表求文本基點(diǎn)最大y值提取y值當(dāng)然，選擇集也有其優(yōu)勢(shì)的一面，比如對(duì)選擇集中實(shí)體的刪除操作非常簡(jiǎn)單、選擇集中的實(shí)體不會(huì)重復(fù)及選擇集可以與Acad命令交互使用等特征是一般表所不具備的，所以，編程時(shí)應(yīng)根據(jù)程序要求，靈活運(yùn)用8. cal的使用與加載Acad隨機(jī)附帶了一些外部定義命令，其中cal (計(jì)算器)命令是最常用的命令之一，在加載gromcal.arx

13、后cal可以在Lisp程序中像其它函數(shù)一樣使用，這就使得我們?cè)诔绦蛑袑?duì)文本的 四則 運(yùn)算處理變得簡(jiǎn)單，如“ (cal 1+2/3) ”，其中字符串1+2/3可以從圖形的文本中提取，也可以是符合cal要求格式的任一字符串(詳見Acad聯(lián)機(jī)幫助)。需要注意的是，在Acad中g(shù)romcal.arx 只能加載一次，重復(fù)加載將使 Acad以外退岀(無提示)。需要使用cal函數(shù)的Lisp程序，應(yīng)在程序尾部加上以下代碼：*(if (or (= (type c:cal) LIST);R14使用(=(type c:cal) SUBR);R2000+使用)(arxload geomcal.arx)*9. Undo

14、處理一個(gè)完善的程序應(yīng)該有較好的岀錯(cuò)處理，這是在所有Lisp教材上都提及的，但程序的Undo處理就說得很少或沒有提及。其實(shí)Undo處理對(duì)程序來說也是非常重要的，尤其對(duì)有較多輸岀的復(fù)雜程序而言，不能解決Undo問題，使用起來會(huì)極不方便。對(duì)于Undo問題的解決，一種方法是盡量少用或不用comma nd函數(shù)，即不調(diào)用原始命令，這是一種較好的方法，但必須注意的是，一段程序必須至少有一次調(diào)用comma nd函數(shù)，否則 Un do命令將取消程序運(yùn)行前的前一次命令，解決的方法是在程序運(yùn)行的起始位置加一個(gè)無謂的comma nd 女口 “ (comma nd color”)”。有時(shí)不使用comma nd函數(shù)不能達(dá)

15、到我們要求的一些功能，或使得程序過于復(fù)雜， 我們可能需要使用一些comma nd函數(shù)(原始命令)，這是就應(yīng)該在程序中進(jìn)行 Undo處理，即使用 Undo命令 的編組功能。例五是一段程序?qū)珏e(cuò)函數(shù)與Undo處理的示例。* ;例五岀錯(cuò)函數(shù)使用對(duì)話框時(shí)使用 岀錯(cuò)函數(shù)恢復(fù) 系統(tǒng)變量恢復(fù) 岀錯(cuò)函數(shù)恢復(fù)編組結(jié)束(defu n n ewerr (s);(if s(prog n(term_dialog);(if olderr (setq *error* olderr);(if oldvar (setvar . oldvar);(if olderr (setq *error* olderr);(comma nd

16、_.u ndo _e);Undo)(pr inc)(defu n c:my(/ )(setvar cmdecho 0)(comma nd _.u ndo _BE)(setq olderr *error* *error* n ewerr)(setq oldvar (getvar .)(setvar . )(setvar . oldvar)(setq *error* olderr)(comma nd _.u ndo _E)(pr inc);主程序(主函數(shù)) 取消命令回顯提示;Un do編組開始調(diào)用自定義岀錯(cuò)函數(shù) 保存相關(guān)系統(tǒng)變量 設(shè)置系統(tǒng)變量 程序段恢復(fù)系統(tǒng)變量 恢復(fù)出錯(cuò)函數(shù) 結(jié)束Undo命令編組

17、 取消程序返回值)*10. 程序調(diào)試時(shí)塊注釋的使用我們經(jīng)常會(huì)加上或屏蔽一段代碼輔助程序調(diào)試，此時(shí)最常用的是在需要暫時(shí)屏蔽的代碼前使用行注釋符號(hào) “;”，對(duì)于較多的代碼就需要使用塊注釋“ ;| I; ”，如果一段代碼需要頻繁屏蔽，將行注釋與塊注釋組合使用，可以帶來極大方便。下圖是組合使用的示例。ll_j 附帶了這個(gè)的圖片(setq a 3) (princ a)；| (if bCprinc (+ a 1)(princ (+ a 2)正常便用；(;l l;H(setq c nild(if bCprinc (+ s 寸 (princ (+ a 2) % -!l推看僮wn(setq d nilOCiF

18、bCprinc (+ a(princ (+ 占 2)昔取消-4呼(princ C* BVlisp編程技巧摘要(1).*)1. 如何獲取多義線上的所有頂點(diǎn)Code:(defu n C:getp (/ ent PLTYPE obj vtx vtxlst n ptlst)(vl-load-com)(setq ent (entsel n選取多線:n)(if ent(progn(setq PLTYPE (cdr (assoc 0 (e ntget (car e nt)(if (or (= POLYLINE PLTYPE) (= LWPOLYLINE PLTYPE)(prog n(setq obj (vl

19、ax-e name-vla-object (car en t)(setq vtx (vla-get-Coord in ates obj)(setq vtxlst (vlax-safearray-list (vlax-varia nt-value vtx)(setq n 0)(setq ptlst n il)(repeat (/ (le ngth vtxlst) 2)(setqptlst (append ptlst (list (list (nth n vtxlst) (nth (1 +n) vtxlst)(setq n (+ n 2)(if ptlst ptlst nil)(prompt n選

20、取實(shí)體不是多義線!);if);if).*)2. 在對(duì)話框的文本欄里輸入，怎樣讓它實(shí)時(shí)顯示為密碼“* ”？A.設(shè)計(jì)對(duì)話框時(shí)，控件的屬性中加：password_char = *;srt : dialog label =密碼“；:edit_box label =輸入密碼(&S):;key = password;password_char = *;fixed_width = true;width = 8;ok_only;(defu n c:srt ()(setq file name srt.dcl)(if ( (setq in dex_value (load_dialog file name) 0);

21、(progn(setq dlg name srt)(if (n ot (new_dialog dlg name in dex_value) (exit);(acti on _tile password (mypass)(action_tile ok (do ne_dialog 0)(start_dialog)(alert n不能載裝指定的DCL文件定義的對(duì)話框!);end IF(pri nc)(defu n mypass ()(setq a1 $value)B.使用DOSLib輸入密碼的函數(shù).*)3. 怎樣可以實(shí)現(xiàn)不用工具中的選項(xiàng)，來調(diào)岀屏幕菜單？;屏幕菜單切換(defu n C:pmme n

22、u ()(vl-load-com)(setq sd(vla-get-display(vla-get-prefere nces (vlax-get-acad-object)(if (= (vla-get-displayscree nmenu sd) :vlax-true)(vla-put-displayscree nmenu sd :vlax-false)(vla-put-displayscree nmenu sd :vlax-true)(vlax-release-object sd)(pri nc).*4. 怎么樣用 Vlisp來讀取AutoCAD中搜索路徑？(vla-get-supportp

23、ath(vla-get-files (vla-get-prefere nces或：(gete nv ACAD)n或：-rAi (acet-pref-supportpath-list)獲取支持路徑。.*裝載對(duì)話框顯視對(duì)話框(vlax-get-acad-object)5. 如何捕獲列表框(list_box )的雙擊操作？在 edit_box,list_box,image_button,slider 表示你執(zhí)行了什么操作。在list_box可在你的代碼中加入判斷：(action_tile listbox (fun1).)(defun fun 1()中，有一個(gè)$reason變量，用來中，雙擊的變量值是

24、 4。(if (= $reason 4).*6. 如何用 VLISP創(chuàng)建目錄？例如：A. (vl-mkdir c:hqd9639)B. (setq SYS (vlax-create-object Scripti ng.FileSystemObject)(setq FOLDER (vlax-i nvoke-method SYS CREATEFOLDER c:hqd9639).*7. 如何用(entsel)亮顯選擇物體？code:(if (setq en t (e ntsel nPick Object)(prog n(redraw (car ent) 3);(redraw (car ent) 4);不亮顯).*8. 如何隱藏選擇實(shí)體？code:(if (setq en t (e ntsel nPick Object)(prog n(redraw (car e nt) 1);隱藏實(shí)體;(redraw (car e nt) 2);顯示實(shí)體).*9. 狀態(tài)欄進(jìn)度條的設(shè)計(jì)示例(defu n c:hqd1 ()已經(jīng)完成100)(acet-ui-progress (setq x 0)(while (List hqd).*11. 如何在CAD中插