二次開發(fā)及autolisp

1、第9章 二次開發(fā)及AutoLISP,? AutoCAD 二次開發(fā)在化工制圖中的應(yīng)用? AutoLISP語言基礎(chǔ)? Visual LISP 基礎(chǔ)? DCL基礎(chǔ),AutoCAD 二次開發(fā)在化工制圖中的應(yīng)用,本章目錄,二次開發(fā)的目的及必要性幾種主要的二次開發(fā)語言簡介化工AutoCAD二次軟件開發(fā)的思路及步驟,二次開發(fā)的目的及必要性 AutoCAD軟件作為CAD工業(yè)的旗幟產(chǎn)品，以其強大的功能得到廣大用戶的青睞。它具有

2、精確的坐標系，能夠完成各種圖形的精確繪制、任意縮放和修改，支持數(shù)字化儀的精確輸入。盡管如此，由于AutoCAD是作為一個通用的繪圖軟件而設(shè)計開發(fā)的，但各行各業(yè)都有自己的行業(yè)和專業(yè)標準，許多單位也有自己的技術(shù)規(guī)格和企業(yè)標準，化工行業(yè)也不例外，有著大量的各種圖紙設(shè)計標準，因而，AutoCAD不可能完全滿足每一用戶的具體應(yīng)用要求。但是，AutoCAD具有開放的體系結(jié)構(gòu)，它允許用戶和開發(fā)者在幾乎所有方面對其進行擴充和修改，同時可以利用多種開發(fā)語

3、言，開發(fā)可以自動完成某一繪制任務(wù)的軟件，可大大提高繪制速度，改善工作效率。以上工作可稱之為AutoCAD的二次開發(fā)技術(shù)。也就說AutoCAD二次開發(fā)技術(shù)主要包括兩個方面：一方面是對它的功能進行擴充和修改，如修改或增加菜單、進行各種定制工作；另一方面是利用開發(fā)工具編寫能夠完成特殊任務(wù)的自動繪制軟件，如下面將介紹的通過人機交互界面輸入必要的數(shù)據(jù)后，系統(tǒng)自動完成法蘭的繪制，就屬于這一類型，在化工繪圖中，我們需要的也是有關(guān)這一方面的開發(fā)軟件，它

4、能最大限度地滿足用戶的特殊需要，通過調(diào)用各種已經(jīng)開發(fā)好的專用零件圖繪制軟件，加快繪制速度，提高工作效率。尤其重要的是，可以將大量的計算工作交給計算機去完成。這樣，不僅提高了繪圖速度，同時也提高了繪制精度，避免了人為的計算錯誤。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,目前很多化工技術(shù)人員對AutoCAD的使用一般還僅限于它自身的各種繪圖功能，使用鼠標手工繪制各種圖件，對其強大的二次開發(fā)功能還沒有進行深入使用。如果能使用AutoCAD的

5、二次開發(fā)技術(shù)開發(fā)出一套軟件，讓AutoCAD自動繪制我們目前使用的各種圖件，就可以大大提高作圖效率，發(fā)揮出AutoCAD的強大圖形編輯、修改功能，對圖件中的各種元素進行任意修改，滿足各種不同的圖件格式和繪圖標準，由此可見，對于一個化工技術(shù)人員來說，學(xué)會自己開發(fā)AutoCAD二次應(yīng)用軟件顯得十分必要，因為這將大大減少具體的繪制工作，而可以將主要精力集中到設(shè)備的設(shè)計中去，從而加快化工設(shè)備的開發(fā)速度。 近幾年來，隨著計算機軟、

6、硬件技術(shù)的飛速發(fā)展及其應(yīng)用的普及，也帶來了化工領(lǐng)域使用計算機的浪潮。首先是各課程教學(xué)使用了CAI課件，學(xué)生們可以清楚地看到各種物質(zhì)的具體顏色，并可以看到動畫反應(yīng)，讓學(xué)生們能夠形象生動地上課。然后是各種實驗仿真軟件的出現(xiàn)，讓學(xué)生們不用親自下到工廠，也不用浪費任何原料，在沒有危險的情況下就可以完成對實驗過程或者是生產(chǎn)流程的學(xué)習(xí)和實習(xí)。同時計算機可以對反應(yīng)進行模擬，對實驗數(shù)據(jù)的擬合都大大方便了化工工作者。隨之誕生的各種化工專用軟件，給化學(xué)工業(yè)

7、的發(fā)展注入了新鮮血液，使化學(xué)工業(yè)的發(fā)展如虎添翼。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,目前，隨著化學(xué)工業(yè)的進一步向前發(fā)展，各種新的機械設(shè)備被人們設(shè)計和制造，這些設(shè)備的工程圖都是一件很大的工程。比如一個完整熱交換器圖紙，就需要一個專人1～2天的工夫才能完成。利用AutoCAD的二次開發(fā)技術(shù)，可以編出對熱交換器的圖進行批處理的程序，只需通過簡單的人機會話,計算機能自動繪制出圖紙，這也是化工技術(shù)人員學(xué)習(xí)掌握AutoCAD二次開發(fā)技術(shù)的目

8、的之所在。隨著化學(xué)工業(yè)的不斷日新月異，對設(shè)備圖紙繪制的速度要求也將越來越快，利用AutoCAD二次開發(fā)技術(shù)開發(fā)而成的軟件直接繪制各種設(shè)備的技術(shù)將在化學(xué)工業(yè)中得到更加廣泛的應(yīng)用，其開發(fā)技術(shù)必將伴著化學(xué)工業(yè)一起發(fā)展。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,幾種主要的二次開發(fā)語言簡介 ⑴AutoLISP AutoLISP語言是AutoCAD所支持的一種內(nèi)嵌式語言，它由美國Autodesk公司開發(fā)，其目的是使

9、用戶十分方便地利用AutoLISP編程語言對AutoCAD進行二次開發(fā)，它采用了與LISP語言中的Common LISP最近的語法和習(xí)慣約定，同時又針對AutoCAD增加了許多新的功能，使用戶可以直接調(diào)用幾乎全部的AutoCAD命令，因此它既具有一般高級語言的基本結(jié)構(gòu)和功能，又具有AutoCAD強大的圖形處理能力，是目前計算機輔助設(shè)計和繪圖中較廣泛采用的語言之一。 ⑵Visual LISP Visual

10、LISP（簡稱VLISP）是為加速AutoLISP程序開發(fā)而設(shè)計的強有力的工具。它提供了一個完整的集成開發(fā)環(huán)境（包括編譯器、調(diào)試器及其他工具，它可以顯著地提高自定義AutoCAD的效率）。Visual LISP提供的主要工具有：文本編輯器、格式編排器、語法檢查器、源代碼調(diào)試器、檢驗和監(jiān)視工具、文件編譯器、工程管理系統(tǒng)/快捷相關(guān)幫助與自動匹配功能和智能化控制臺等。 Visual LISP克服了AutoLISP一直以來開發(fā)中

11、所存在的諸多不便和某些局限性。從語言方面看，Visual LISP對AutoLISP語言進行了擴展，可以通過Microsoft ActiveX Automation接口與對象交互。同時，通過實現(xiàn)事件反應(yīng)器函數(shù)，還擴展了AutoLISP響應(yīng)事件的能力。 VisualLISP已經(jīng)被完整地集成到AutoCAD中。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,⑶VBAVBA（Visual Basic for Application）最早是建立在

12、Office 97中的標準宏語言，由于它在開發(fā)方面的易用性且功能強大，許多軟件開發(fā)商都將其嵌入自己的應(yīng)用程序中，作為一種開發(fā)工具提供給用戶使用。而AutoCAD VBA就是集成在AutoCAD中的Visual Basic開發(fā)環(huán)境，與VB的主要區(qū)別是VBA在與AutoCAD相同的進程空間中運行，提供了與AutoCAD關(guān)聯(lián)的快捷的編程環(huán)境，程序設(shè)計直觀快捷。它還提供了與其它可使用VBA應(yīng)用程序集成的能力，可以作為其它應(yīng)用程序如Word或Ex

13、cel的自動化控制器?？梢钥闯觯琕BA是其中編程很為快捷方便的一種，對于非計算機專業(yè)而更多熟悉VB編程語言的人來說，可以很快就掌握它。⑷ADSADS的全名是AutoCAD Development System，它是AutoCAD的C語言開發(fā)系統(tǒng)，ADS本質(zhì)上是一組可以用C語言編寫AutoCAD應(yīng)用程序的頭文件和目標庫，它直接利用用戶熟悉的各種流行的C語言編譯器，將應(yīng)用程序編譯成可執(zhí)行的文件在AutoCAD環(huán)境下運行，這種可以在Aut

14、oCAD環(huán)境中直接運行的可執(zhí)行文件叫做ADS應(yīng)用程序。ADS由于其速度快，又采用結(jié)構(gòu)化的編程體系，因而很適合于高強度的數(shù)據(jù)處理，如二次開發(fā)的機械設(shè)計CAD、工程分析CAD、建筑結(jié)構(gòu)CAD、土木工程CAD、化學(xué)工程CAD、電氣工程CAD等。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,⑸ObjectARX ObjectARX是一種嶄新的開發(fā)AutoCAD應(yīng)用程序的工具，她以C++為編程語言，采用先進的面向?qū)ο蟮木幊淘恚峁┛膳cAutoC

15、AD直接交互的開發(fā)環(huán)境，能使用戶方便快捷地開發(fā)出高效簡潔的AutoCAD應(yīng)用程序。ObjectARX并沒有包含在AutoCAD中，可在AutoDESK公司網(wǎng)站中去下載，其最新版本是ObjectARX for AutoCAD 2005，它能夠?qū)utoCAD的所有事務(wù)進行完整的、先進的、面向?qū)ο蟮脑O(shè)計與開發(fā)，并且開發(fā)的應(yīng)用程序速度更快、集成度更高、穩(wěn)定性更強。⑹ActiveX AutomationActiveX技術(shù)來源于 OLE（O

16、bject Linking and Embedding）技術(shù)。OLE最初是對象鏈接與嵌入，后來發(fā)展成為復(fù)合文檔技術(shù)，包括文字、圖片、聲音、動畫片和視頻等媒體可以共同存在于一個文檔中。它們可以由不同的應(yīng)用程序產(chǎn)生，同時也可以在該文檔中編輯。如果應(yīng)用程序支持OLE文檔，則在不同應(yīng)用程序之間的切換由OLE自動完成。OLE技術(shù)和其它技術(shù)共同作用，從而實現(xiàn)不同應(yīng)用程序之間的無縫鏈接。自動化技術(shù)（Automation）允許一個應(yīng)用程序驅(qū)動另外一個

17、程序。驅(qū)動程序被稱為自動化客戶，另一個為自動化服務(wù)器。自動化技術(shù)后來發(fā)展成為ActiveX Automation。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,⑺Visual Java Java是最早由Sun公司創(chuàng)建的一種頗具魅力的程序設(shè)計語言，她是針對嵌入系統(tǒng)而設(shè)計的。像許多開發(fā)語言一樣，Java是一組實時庫的集合，可為軟件開發(fā)者提供多種工具來創(chuàng)建軟件、管理用戶接口、進行網(wǎng)絡(luò)通訊、發(fā)布應(yīng)用程序等。對AutoCAD用戶和開發(fā)者而言，Ja

18、va代表著新一代的編程語言，它主要用于開發(fā)出全新的優(yōu)秀產(chǎn)品。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,化工AutoCAD二次軟件開發(fā)的思路及步驟 化工AutoCAD二次軟件的開發(fā)和其它軟件的開發(fā)一樣，均需遵循一定的規(guī)律。一般來說，一個完善的AutoCAD二次軟件開發(fā)過程可以分成4個階段的內(nèi)容，它們分別是系統(tǒng)規(guī)劃、系統(tǒng)開發(fā)、系統(tǒng)運行與維護、系統(tǒng)更新。而系統(tǒng)規(guī)劃又可以分成3個方面的內(nèi)容，它們分別是戰(zhàn)略規(guī)劃、需求分析、資源分

19、配。在這個階段，我們主要任務(wù)是確定所需要開發(fā)軟件的目的、使用對象、使用者的要求、開發(fā)者目前的能力及擁有的資源。軟件開發(fā)的第二階段是系統(tǒng)開發(fā)，它包括系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實施。這時的主要任務(wù)根據(jù)第一階段已經(jīng)做的工作基礎(chǔ)上，提出所開發(fā)軟件的邏輯方案、確定系統(tǒng)開發(fā)中每一步的內(nèi)容和任務(wù)，在此基礎(chǔ)上，再進行系統(tǒng)總體結(jié)構(gòu)設(shè)計，提出系統(tǒng)總體布局的方案。至此，軟件開發(fā)工作還停留在邏輯開發(fā)狀態(tài)，尚未進入具體的編碼工作。 軟件開發(fā)完成第二

20、階段的系統(tǒng)設(shè)計后，就進入了實質(zhì)性的編碼工作，也就是說進入了系統(tǒng)的實施階段，這時要完成各種編碼工作，完善系統(tǒng)各個接口之間的聯(lián)絡(luò)，改善界面的友好程度，對整個軟件進行組裝及調(diào)試，最后完成交付使用前的各項工作。如該保密的部分需要進行封裝；可以公開的部分需要做好友善的人機界面。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,軟件開發(fā)的第三階段是運行和維護階段，一般對于規(guī)模較小的軟件，對這方面的考慮就比較少。比如我們自己經(jīng)常開發(fā)一些小軟件來解決一些實際

21、問題，就較少考慮以后的維護，一般只要滿足目前的應(yīng)用就可以了。但對于一個完善的軟件來說，就需要考慮實際運行過程中出現(xiàn)的各種情況，并有解決方案及維護方法。這樣，就會使得一個看上去較小的軟件，也會變得復(fù)雜起來，但這種復(fù)雜為使用和維護帶來了方便，提高了軟件對付外來情況的能力，提高了軟件的使用壽命，實際上等于節(jié)約了軟件使用成本。 任何一個軟件，總有它更新的時候，此時，進入了軟件開發(fā)的第4階段，即系統(tǒng)更新階段，在新的情況下，對原有的

22、系統(tǒng)進行更新開發(fā)。,AutoCAD二次開發(fā)在化工制圖中的應(yīng)用,AutoLISP語言基礎(chǔ),本章目錄,基本運算基本函數(shù)編程中常用的分支及條件判斷函數(shù)常用的繪圖命令A(yù)utoLISP命令調(diào)用過程,⑴加法 格式：(+ …) 功能：求出所列數(shù)的總和實例：(+ 20 30) 結(jié)果為50 (+ 15 -10) 結(jié)果為5⑵減法 格式：(- …) 功能：求出第一個

23、數(shù)逐次減去后面數(shù)的差實例：(- 120 30 50) 結(jié)果為40 (- 15 -10) 結(jié)果為25⑶乘法格式：(* …) 功能：求出所列數(shù)的乘積實例：(* 20 30) 結(jié)果為600 (* 1.5 -10 2) 結(jié)果為-30⑷除法格式：(/ …)功能：求出第一個數(shù)逐次除以后面數(shù)的商實例：(/ 20 )

24、 結(jié)果為20 (/ 130 2) 結(jié)果為65 (/ 3 30) 由于表中的兩個元素均為整型數(shù)，結(jié)果也為整型數(shù)，故結(jié)果為0 (/ 3.0 30) 結(jié)果為0.1 (/ 30 (/ 6 9)) 系統(tǒng)顯示被0除，原因在于表（/ 6 9）的值為0,AutoLISP語言基礎(chǔ),基 本 運 算,⑸自然數(shù)求冪格式：(exp )功能

25、：求e的次冪值，e=2.71828實例：(exp 2.0 ) 結(jié)果為7.3890561 (exp 0) 結(jié)果為1⑹普通數(shù)求冪格式：（expt ）功能：求的 次方值實例：（expt 2 3） 結(jié)果為8⑺求自然對數(shù)格式：（log ）功能：求的自然對數(shù)，要求必須大于零實例：（log 10.0） 結(jié)果為2.3025851⑻求平方根格式：（sqrt ）

26、功能：求的平方根，要求必須大于零實例：（sqrt 4.0） 結(jié)果為2.0,AutoLISP語言基礎(chǔ),基 本 運 算,⑼求絕對值格式：（abs ）功能：求的絕對值實例：（abs -3） 結(jié)果為3⑽求最大值格式：(max …)功能：求， …的最大值實例：（max 2 3 4 10） 結(jié)果為10⑾求余數(shù)格式：(rem …)功能：求整除的余數(shù)，若參數(shù)多于兩個，

27、則將整除后的余數(shù)再整除，求出余數(shù)，以此類推。實例：(rem 50 9 4) 結(jié)果為1,AutoLISP語言基礎(chǔ),基 本 運 算,AutoLISP語言基礎(chǔ),⑴正弦函數(shù)SIN格式：(sin ) ，其中 用弧度表示功能：求的正弦值實例：(sin (/ pi 2)) 結(jié)果為1⑵余弦函數(shù)COS格式：(cos ) ，其中 用弧度表示功能：求余弦值實例：(cos (/ pi

28、2)) 結(jié)果為0⑶正切TAN格式：(tan ) ，其中 用弧度表示功能：求正切值實例：(tan (/ pi 4)) 結(jié)果為1⑷反正切函數(shù)ATAN格式：(atan ) 功能：求反正切值，單位為弧度，為[-π/2，π/2]實例：(atan (1)) 結(jié)果為0.785398 ， 即(π/4) 實例：(cos (/ pi 2)) 結(jié)果為0,基 本

29、 函 數(shù),⑸取整函數(shù)FIX格式：(fix )功能：求的整數(shù)部分，相當于高級語言中的“INT(數(shù))”語句。實例：(fix 7.8) 結(jié)果為7 (fix -7.8) 結(jié)果為-7 (fix 9) 結(jié)果為9⑹實型化函數(shù)FLOAT格式：(float )功能：求轉(zhuǎn)化為實型數(shù)，不考慮該數(shù)原來的類型實例：(float 3)

30、 結(jié)果為3.0 (float 3.3) 結(jié)果為3.3⑺賦值函數(shù)SETQ格式：(setq [ ]…)功能：將表達式的值賦給變量，變量和表達式需成對出現(xiàn)實例：(setq a 10) 結(jié)果 a=10 (setq s “it” ) 結(jié)果 s=“it” (setq b 123 c 10

31、 d 45) 結(jié)果 b=123 c=10 d=45 (setq t (+ 34 45)) 結(jié)果 t=79 (setq P1‘( 34 45)) (setq p1 '(30 40)) //確定點P1的坐標 (setq p2 '(300 400)) //確定點P2的坐標 (comman

32、d “l(fā)ine” p1 p2 “”) //繪制從P1點到P2點的直線,AutoLISP語言基礎(chǔ),基 本 函 數(shù),⑻取表中第一元素CAR函數(shù) 格式：(car )，表必須為引用表而非標準表，但可以是簡單表，也 可以是嵌套表。 功能：提取的頂層第一個元素 實例：(car ‘(1 3 5)) 結(jié)果為1 (car ‘(（1 3）6 5)) 結(jié)果為（1 3）

33、 ⑼取表中除第一元素外其它元素的CDR函數(shù) 格式：(cdr )，表必須為引用表而非標準表，但可以是簡單表，也可以是嵌套表。 功能：提取的除頂層第一個元素外的其它元素 實例：(cdr ‘(1 3 5)) 結(jié)果為（3 5） (cdr ‘(（1 3）6 5)) 結(jié)果為（6 5） ⑽CAR和CDR的組合函數(shù) CAR和CDR可以任意組合，

34、其組合深度可達4層，執(zhí)行時從右到左依次執(zhí)行，若搞錯次序，其結(jié)果必然出錯。4個層次的組合形式為CAR、CXXR、CXXXR、CXXXXR，其中X既可以是A也可以是D，例如： (cadr '(2 (1 2 3) 34 )) 結(jié)果為（1 2 3） (caadr '(2 ((11 6) 2 3) 34 )) 結(jié)果為（11 6） (caaadr '(2 ((11 6)

35、 2 3) 34 )) 結(jié)果為11 (caaddr '(2 ((11 6) 2 3) (3 4) )) 結(jié)果3,AutoLISP語言基礎(chǔ),基 本 函 數(shù),⑾LAST函數(shù) 格式：(last )，表必須為引用表而非標準表，但可以是簡單表，也可以是嵌套表。 功能：提取的頂層中最后一個元素 實例：(last '(1 2 3)) 結(jié)果為3 (

36、last ‘(12 3 (4 5))) 結(jié)果為（4 5） ⑿NTH函數(shù) 格式：(nth )，表必須為引用表而非標準表，但可以是簡單表，也可以是嵌套表。 功能：提取中第個元素，注意第一個元素的序號為0號，以此類推。 實例：(nth 2 '(2 3 (4 5) 5)) 結(jié)果為（4 5） (nth 3 '(2 3 (4 5) 5)) 結(jié)果為5

37、 ⒀LIST函數(shù) 格式：(list …… ) 功能：將所有的按原位置構(gòu)成新表，可用于確定點的坐標位置。 實例：(list 2 3 '(5 6)) 結(jié)果為（2 3 （5 6）） (list 2 3) 結(jié)果為（2 3） 下面是一個利用list確定點的位置，繪制圓的小程序： (setq p1 (list 22

38、2 33)) (setq p2 (list 200 300)) (command "circle" p2 160) (command "circle" p1 160),AutoLISP語言基礎(chǔ),基 本 函 數(shù),⒁ATOF函數(shù)格式：(atof )功能：將轉(zhuǎn)換成實型數(shù)，返回實型數(shù)實例：(atof "23")

39、 返回結(jié)果為23.0⒂ASCII函數(shù)格式：(ascii )功能：將中第一個字符轉(zhuǎn)換成ASCII碼，并返回該值實例：(ascii "b c") 返回結(jié)果為98⒃CHR函數(shù)格式：(chr )功能：將ASCII碼為的轉(zhuǎn)換成相應(yīng)字符，并返回該字符實例：(chr 69) 返回結(jié)果為"E" (chr 80) 返

40、回結(jié)果為"P“⒄ITOA函數(shù)格式：(itoa )功能：將轉(zhuǎn)換成整數(shù)字符串實例：(itoa 5) 返回結(jié)果為"5“,AutoLISP語言基礎(chǔ),基 本 函 數(shù),⒅ATOI函數(shù)格式：(atoi )功能：將轉(zhuǎn)換成整數(shù)，返回值截去小數(shù)部分實例：(atoi "45.4") 返回結(jié)果為45 (atoi "-5.6")

41、 返回結(jié)果為-5 (atoi "7") 返回結(jié)果為7 (atoi "34.6ac") 返回結(jié)果為34 (atoi "df43")45 返回結(jié)果為0說明：當數(shù)字串中有非數(shù)字字符時，則轉(zhuǎn)換到第一個非數(shù)字原子時終止。⒆STRCAT函數(shù)格式：(strcat …… )功能：將按先后順序頭尾相連起來，組成一

42、個新的字符串。實例：(strcat "bc" "etr" "ty") 返回結(jié)果為"bcetrty",AutoLISP語言基礎(chǔ),基 本 函 數(shù),(20)SUBSTR函數(shù)格式： (substr []功能：從中提取一個子串，該子串從起點的字符位置開始，由連續(xù)個字符組成，若缺省，則到字符串結(jié)束。實例： (substr "b

43、212c" 2 3) 返回結(jié)果為"212" (substr "b2er12c" 2) 返回結(jié)果為"2er12c“(21)READ函數(shù)格式： (read )功能：將轉(zhuǎn)化成表或原子，文件處理時經(jīng)常使用實例：(read "ad") 返回結(jié)果為AD (read "b")

44、 返回結(jié)果為B (read "(a b)") 返回結(jié)果為(A B) (read "(3 4)") 返回結(jié)果為(3 4),AutoLISP語言基礎(chǔ),基 本 函 數(shù),編程中常用的分支及條件判斷函數(shù) 在程序編寫中經(jīng)常會用到一些條件判斷函數(shù)及循環(huán)函數(shù)，沒有這些函數(shù)，就難以完成一個理想的程序，下面將一些在編程中使用程度較高的

45、函數(shù)介紹一下。 ⑴關(guān)系運算函數(shù) 關(guān)系運算函數(shù)是編程中分支及條件判斷函數(shù)的基礎(chǔ)，它對數(shù)值型表達式的大小進行比較，表達式可以是兩個或兩個以上，其返回值是邏輯變量。比較運算成立，則返回T；不成立則返回nil，常作為條件用于條件判斷語句和循環(huán)判斷語句中，這一點將在下面講解中提到。AutoLISP共有6種關(guān)系運算函數(shù)，它們分別是“=”等于、“/=”不等于、“”大于、“=”大于等于。其中等于的關(guān)系函數(shù)，其表達式只能兩

46、個，下面是6種關(guān)系函數(shù)的實際例子：,AutoLISP語言基礎(chǔ),( 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，只比較前面兩個表達式(= 5 5 1)

47、 返回結(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

48、 a b) 返回結(jié)果T，由于前面給a、b賦了值(and ( 3 5)) 返回結(jié)果nil(or 1 2 a b) 返回結(jié)果T，只要有一個表達式為真，則返回T(or (> 4 2) ( 6 9)) 返回結(jié)果T⑶二分支條件函數(shù)IF格式： (if )功能：對進行運算，若成立，則執(zhí)行，否則，執(zhí)行，兩

49、者必居其一，所以稱之為二分支條件函數(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")

50、 測試式不成立，但無第二個表達式，返回nil(if 1 "yes" "no") 測試表達式為1，雖然不為T，但也不為nil，仍執(zhí)行第一表達式，返回“yes”,AutoLISP語言基礎(chǔ),⑷多分支條件函數(shù)COND前面二分支條件函數(shù)只能解決兩種結(jié)果中選一種的條件判斷，若有多個條件中選一，則需用COND函數(shù)。格式：（cond （ ）

51、 （ ） ： ： （ ） ） 該函數(shù)的參數(shù)為任意數(shù)目的表，每個表有兩個元素，第一

52、個元素為測試式，第二個元素為結(jié)果。功能：對每一個支表中的依次進行運算，若成立，則執(zhí)行該支表對應(yīng)的，停止后面的測試工作；否則，繼續(xù)執(zhí)行，直到最后一個分支條件。,AutoLISP語言基礎(chǔ),⑸順序控制函數(shù)PROGN常和IF函數(shù)一起使用，使其在某一條件下，順序執(zhí)行多個表達式。格式：（progn ：

53、 ： ）功能：按順序執(zhí)行多個表達式，并返回最后表達式求值結(jié)果，表達式需為標準表。⑹常見測試函數(shù)ZEROP函數(shù)用于判斷測試項是否為零，若為零，則返回T，否則返回nil。MINUSP函數(shù)用于判斷測試項是否為負，若為負，則返回T，否則返回nil。NUMBERP函數(shù)用于判斷測試項是否為數(shù)，若為數(shù)，則返回T，否則返回nil。ATOM函數(shù)用于判斷測試項是否為原子，若為原子數(shù)，則返回T，否則返回nil。LISTP函數(shù)

54、用于判斷測試項是否為表，若為表，則返回T，否則返回nil。,AutoLISP語言基礎(chǔ),⑺循環(huán)函數(shù)在各種程序編寫中，循環(huán)語句是不可缺少的，AutoLISP的兩種主要循環(huán)函數(shù)是WHILE函數(shù)和REPEAT函數(shù)，下面分別介紹之。①WHILE函數(shù)格式：（while [標準表1] [標準表2] : ）功能:先對測試表達式進行測試，若其

55、值不為nil，則依次執(zhí)行下面的各個 [標準表]，執(zhí)行完各 [標準表]后，再返回來對測試表達式進行測試，直至測試表達式為nil，停止循環(huán)執(zhí)行。 ②REPEAT函數(shù)格式：（repeat [標準表1] [標準表2] : ）功能:按該定的次數(shù)進行循環(huán)計算式為nil，停止循環(huán)執(zhí)行。,AutoLISP語言基礎(chǔ),常用的繪圖命令 ⑴常用的交互命令 在

56、程序編寫中經(jīng)常要用到一些交互式命令，通過交互命令，可提高程序的人機對話能力。AutoLISP也提供了一些常見的交互命令，下面分別介紹。 ①輸入整型數(shù)GETINT 格式：（getint[提示]） 功能：該函數(shù)提示用戶輸入一個整型數(shù)，并返回該數(shù)，常和賦值函數(shù)SETQ合用 實例：（setq n （getint“n=”）） //等待用戶輸入一個整型數(shù)，并將該數(shù)賦值給n。

57、 ②輸入實型數(shù)GETREAL 格式：（getreal[提示]） 功能：該函數(shù)提示用戶輸入一個整型數(shù)，并返回該數(shù)，常和賦值函數(shù)SETQ合用 實例：（setq a（getreal“a=”）） //等待用戶輸入一個實型數(shù)，并將該數(shù)賦值給a。 ③輸入字符串GETSTRING 格式：（getstring[提示]） 功能：該函數(shù)提示用戶輸入一個字符串

58、，并返回該數(shù)，常和賦值函數(shù)SETQ合用 實例：（setq m （getstring“your name”）） //等待用戶輸入一個字符串，并將該字符串賦值給m，若輸入xiaodong ，返回“xiaodong”。需要注意的是輸入字符串時，千萬別用空格鍵，否則只把空格鍵以前的內(nèi)容作為輸入的字符串。,AutoLISP語言基礎(chǔ),④輸入點GETPOINT 格式：（getpoint[基點] [提示]）

59、 功能：該函數(shù)提示用戶輸入一個點，若有基點，這將從基點到輸入的點之間畫一條直線拖動直線，但命令執(zhí)行過后消失。 實例：(setq P1 (getpoint ‘(40 50) “第二點”)) //等待用戶從鍵盤輸入點或用光標選點。 ⑤輸入距離值GETDIST 格式：（getdist [提示]） 功能：該函數(shù)提示用戶輸入一個距離值。 實例：(setq tsp

60、ac (getdist “輸入距離”)) //等待用戶從鍵盤輸入某一數(shù)值。 ⑵點的確定 確定點的位置，是進行各種繪制工作的基礎(chǔ)，除了前面介紹的用getpoint函數(shù)外，還可以用下面幾種方法確定點（通過繪制直線的小程序加以說明驗證）。 實例：(setq p1 '(30 40)) //用禁止求值表，確定P1點的位置 (setq p2 

61、9;(300 400)) (command "line" p1 p2 "") ⑶直線的繪制LINE 格式：（command “l(fā)ine” P1 P2 P3…………[條件]） 功能：將P1、P2、P3…….等點用直線連接起來，其中[條件]可缺省，若條件中輸入“c“，則繪制的將是封閉曲線。,AutoLISP語言基礎(chǔ)

62、,⑷多義線繪制格式：（command “pline” “w” …… [條件]）功能：將P1、P2、P3…….等點用各種曲線連接起來，其中[條件]可缺省，若條件中輸入“c“，則繪制的將是封閉曲線。 ⑸矩形繪制格式：（command“rectang” [倒角(C)/標高(E)/圓角(F)/厚度(T)/寬度(W)] [尺寸(D)] ）功能：繪制符合格式中定義的矩形。⑹圓的繪制格式：（command“c

63、ircle” [三點(3P)/兩點(2P)/相切、相切、半徑(T)] ） 功能：繪制符合格式中定義的圓，默認的輸入方式是圓心、半徑，其它輸入方式需根據(jù)具體選定的形式而定。⑺交點的確定格式：（inters []）功能：求和所確定的直線和和所確定的直線的交點，若存在則返回交點，若不存在，則返回nil。如果有任選項，且該項為nil，則可求延長線的交點。,AutoLISP語言基礎(chǔ),⑻圖層的設(shè)置格式：(command “l(fā)

64、ayer” “m” “c” “l(fā)” “l(fā)w” "" )功能： 設(shè)置和格式中描述相符合的圖層，除圖層名為不可缺省外，其它均可采用默認值，當調(diào)用圖層時，可只采用格式中的前4項。⑼剖面線繪制格式：（command “batcht” [] [] ） 功能：將 按格式中定義的要求進行填充，其中[]和[]可默認，有多種獲取方法，如果是填充剛繪制好的實體，則可用entlast命令。⑽尺寸標注格式：（com

65、mand “dim” ）[ ]） 功能：和 之間按標注模式標注尺寸，若標注內(nèi)容缺省，則按默認方式標注。⑾文本書寫格式：(command “text” [] )功能：將文字內(nèi)容按格式中的定義書寫出來，如缺省[]則以左下角為起點。,AutoLISP語言基礎(chǔ),AutoLISP命令調(diào)用過程 首先將AUTOLISP的程序用任何一種ASCII碼文本編輯器來編輯，在DOS環(huán)境下可采用EDIT編輯，在WIN

66、DOWS環(huán)境下可用附件中的記事本編輯，并注意在保存時以.LSP為后綴，一般的調(diào)用過程如下。 ①用編輯器編寫好，以*.LSP存盤。 ②在AutoCAD中的命令中輸入： (Load“盤符/子目錄/文件名”)，回車。 ③輸入: (文件名、參數(shù)1、參數(shù)2 ……)[注意參數(shù)和參數(shù)之間不要加逗號]，回車。 ④在AutoCAD的界面上自動生成圖。,AutoLISP語言基礎(chǔ),Visual LISP 基礎(chǔ),本章目錄,安裝

67、啟動編輯調(diào)試,安裝 Visual LISP無需單獨安裝，我們在安裝AutoCAD 2004時已經(jīng)將其捆綁按安裝在一起，只要在使用時調(diào)用它即可，這為我們省了不少安裝軟件過程中的麻煩，同時也使得該軟件和AutoCAD之間的關(guān)系更加緊密。尤其是Visual LISP中的部分Auto LISP程序幾乎可以移植到任何版本的AutoCAD中，而不受版本先后的影響。,Visual LISP 基礎(chǔ),啟動 啟動Visu

68、al LISP有兩種方法，但都需首先啟動AutoCAD軟件。第一種方法是從AutoCAD菜單中選擇“工具”>>“AutoLisp”>>“Visual Lisp編輯器”；第二中方法是在AutoCAD命令行中輸入“vlisp”，啟動Visual Lisp編輯器。,Visual LISP 基礎(chǔ),編輯 Visual LISP的程序在編輯窗口進行編輯，編輯時，系統(tǒng)會自動進行一些識別，并將其顯示成不同的顏色。

69、如括號是紅色；函數(shù)是藍色，如果想輸?shù)氖歉鞣N函數(shù)，一般為表中第一項，但輸完后系統(tǒng)沒有自動變成藍色，則說明你輸錯了；雙引號內(nèi)的繪圖命令為粉紅色，包括雙引號本身；各種變量是黑色；數(shù)字是綠色。掌握這些規(guī)律對減少編程中的錯誤很有幫助。在編程過程中，如果遇到一些較為生疏的函數(shù)，可以通過系統(tǒng)的幫助功能加以解決。,Visual LISP 基礎(chǔ),調(diào)試 調(diào)試是編程工作中一項十分重要又非常繁重的工作。在沒有Visual LISP之前，Auto

70、 LISP程序的調(diào)試是十分困難的，常常找不到問題之所在。幸好有了Visual LISP，使調(diào)試工作有了質(zhì)的飛躍。利用其提供的調(diào)試工具和專用工具，一般可以較快地找到問題。系統(tǒng)調(diào)試中最常見的錯誤是缺少括號或有多余括號；其次是錯誤函數(shù)或命令，常常是繪圖命令輸錯，因為若函數(shù)錯誤，在編寫中可以根據(jù)顏色判斷；還有列表缺陷，被零除及函數(shù)被取消。對函數(shù)被取消這種現(xiàn)象有點特殊，因為它并不是當前所編的程序有問題，而是在上一次調(diào)試過程中，所編程序存在缺陷，使