【正文】 n drawing with hands, but due to the different sizes and similar shape of these spares need to draw repeated which greatly reduced efficiency. At this time, we can use the Lisp language to draw in parameter procedure. We can map put the corresponding drawings directly in accordance with different parameters. So we can greatly improve the speed and efficiency of mapping. We can set the bearings of deep groove ball for example, and introduce the programming design of the Lisp language in briefly. Key words: CAD, Lisp language, develop the AutoCAD in the second time, bearings of deep groove ball 第一章 概論 引言 AutoLisp是當(dāng)今世界上應(yīng)用最為廣泛的微機(jī) CAD系統(tǒng) 軟件，它的用途遠(yuǎn)遠(yuǎn)多于其它任何 CAD系統(tǒng)。但它最大的優(yōu)點(diǎn)莫過于其體系結(jié)構(gòu)的開放性，其內(nèi)嵌式程序設(shè)計(jì)語(yǔ)言 AutoLisp語(yǔ)言是人們對(duì)它進(jìn)行二次開發(fā)的最好工具，無(wú)論什么專業(yè)都可以根據(jù)本專業(yè)的特點(diǎn)開發(fā)出適合本專業(yè)需要的 CAD應(yīng)用軟件。為人們更好地開發(fā)適合本專業(yè)的 CAD系統(tǒng)提供了更便利條件 LISP(List Processing Language)是一種計(jì)算機(jī)的表處理語(yǔ)言 ， 是在人工智能 學(xué)領(lǐng)域廣泛應(yīng)用的一種程序設(shè)計(jì)語(yǔ)言。使用 AutoLISP可直接調(diào)用幾乎全部AutoCAD命令。 1． AutoLisp語(yǔ)言概述 語(yǔ)言又稱為符號(hào)語(yǔ)言、函數(shù)式語(yǔ)言。 (1)AutoLisp是 AutoCAD的內(nèi)嵌式編程語(yǔ)言．即 AutoCAD本身支持的，在AutoCAD內(nèi)容中運(yùn)行的高級(jí)語(yǔ)言， AutoCAD是 Command Lisp的一個(gè)擴(kuò)展了的子集，它擴(kuò)充了若干有關(guān) AutoCAD繪圖及 AutoCAD圖形數(shù)據(jù)庫(kù)操作的函數(shù)，使其成為一種使用方便、功能極強(qiáng)的開發(fā)工具，可以用來開發(fā)具有專業(yè)特點(diǎn)的實(shí)用化的 CAD軟件。 (3)由于 Lisp初始的設(shè)計(jì)目的，所以易于設(shè)計(jì)專家系統(tǒng)，且具有極其簡(jiǎn)單的語(yǔ)法規(guī)則，比較易于掌握，其解釋程序可以僅由幾個(gè)函數(shù)來實(shí)現(xiàn)，用戶程序可以編寫的非常短小精干 (4)Auto Lisp擅長(zhǎng)處理具有不同存儲(chǔ)容量的各類數(shù)據(jù)對(duì)象。簡(jiǎn)單的使用 AutoCAD的繪圖命令進(jìn)行繪圖，雖然速度較之手工繪圖有所提高，但是針對(duì)不同尺寸、不同結(jié)構(gòu)的軸，我們就需要進(jìn)行重復(fù)的繪制，還是大大降低了工作效率。輸入設(shè)計(jì)零部件的參數(shù)，由 CAD系統(tǒng)自動(dòng)輸出相應(yīng)零部件的工程圖紙，這樣可以減少大量的重復(fù)勞動(dòng)，減輕設(shè)計(jì)工作量，并充分體現(xiàn)出參數(shù)化技術(shù)在許多通用零部件設(shè)計(jì)上的簡(jiǎn)便易行的優(yōu)勢(shì)。通過對(duì)對(duì)話框控制語(yǔ)言 DCL和可編程對(duì)話框函數(shù)的編輯，可以解決以上那些問題。 第二章 Auto lisp 對(duì)話框設(shè)計(jì) 1． Auto LISP使用方法 在 Auto CAD下拉菜單中選擇工具 ?Auto LISP?Visual LISP編輯器 點(diǎn)擊即可進(jìn)入 Auto LISP。 圖 2 路徑的選擇 進(jìn)入 Auto LISP系統(tǒng)后點(diǎn)擊打開 ，選擇你所設(shè)計(jì)的 LISP文件。 圖 3 Visual LISP的用戶界面 ． 對(duì)話框的特點(diǎn) 對(duì)話框是用 AutoCAD提供的 DCL語(yǔ)言 （ Dialog Control Language） 定義 ， 對(duì)話框形象、直觀，可以隨意輸入、隨時(shí)修改，鼠標(biāo)、鍵盤并用，是一種深受用戶歡迎的界面。 其可以在 AutoCAD內(nèi)嵌的 VisualLisp編輯器中編寫， VisualLisp編輯器 提供直觀預(yù)覽 DCL文件所定義的對(duì)話框界面?？丶梢允前粹o、切換開關(guān)、編輯框、列表或圖像等 圖 4 對(duì)話框的組成 控件是構(gòu)造對(duì)話框的元件。每一種控件屬于一種類型。每個(gè)屬性都有一個(gè)名字和值。一個(gè)控件具有哪些屬性是由它的類型所決定的。 ． 可以定義動(dòng)作行為的常用 控件 這類控件具有動(dòng)作行為 (action)的屬性，動(dòng)作行為是用 AutoLISP的函數(shù)或表達(dá)式表示定義的，用鼠標(biāo)單擊這樣的控件時(shí)，就會(huì)執(zhí)行相應(yīng)的函數(shù)或表達(dá)式。每個(gè)對(duì)話框至少包含一個(gè) OK按鈕（或功能相當(dāng)?shù)目丶?。?action、 alignment、 fixed_height、 fixed_width、height、 is_cancel、 is_default、 is_enabled、 is_tab_stop、 key、 label、mnemonic、 width 共 13個(gè)屬性。 若要?jiǎng)?chuàng)建與 OK等價(jià)的控件，其關(guān)鍵字必須為 accept，并將其屬性is_default設(shè)定為 true（真）。 key=pick。它的類型是 edit_box。其標(biāo)簽顯示在該框的左邊，它的默認(rèn)寬度為 12個(gè)字符，當(dāng)輸入的字符多于 12時(shí)，文本自動(dòng)向左滾動(dòng)，框內(nèi)的字符串即為編輯框的值（ value）。 key=A。 } 3．圖像按鈕 (Image Button) 圖像按鈕將圖像顯示在按鈕上。它的類型是image_button。 圖像按鈕很有用的一個(gè)特性是，通 過 AutoLISP程序可以獲取被單擊時(shí)的位置，從而根據(jù)不同的位置設(shè)計(jì)相應(yīng)的動(dòng)作。 :image_button{ key=scr1。 width=25。 } 4. 列表框（ List Bbox） 列表框的類型是 list_box。列表內(nèi)含有若干行可供 選擇的文本，當(dāng)表的內(nèi)容超出表的范圍時(shí)，將自動(dòng)在表的右側(cè)出現(xiàn)一個(gè)滑動(dòng)條。} :list_box{ key=list。 edit_width=32。 tabs=9。單擊框內(nèi)箭頭，將彈出一個(gè)列表，選取表內(nèi)文本之后，列表自動(dòng)關(guān)閉，在編輯框內(nèi)顯示選中的內(nèi)容。 如： :popup_list{key=popup_list。 edit_width=40。 } ． 2組合類控件 組合類控件可以將相關(guān)的控件組合在一起，使得對(duì)話框的布局更加美觀、合理，操作更加 方便。 加框列的類型是 boxed_bolumn。 如： :row{ :boxed_column{ :popup_list{label=比例 :。 edit_width=8。 } :edit_box{label=插入角度 :。 edit_width=。 spacer。 key=pick。 加框行的類型是 boxed_row。 如： :boxed_row{:edit_box{label=d:。 edit_width=4。 key=dxin。 } :edit_box{label=D:。 edit_width=4。 key=t1。 } } :spacer{width=。它的類型是 dialog，有initial_focus、 label、 value 3個(gè)屬性。屬性 value也可以作為標(biāo)題，這樣的標(biāo)題在程序運(yùn)行時(shí)可以被改變。 控件的外觀和功能是由該控件的屬性確定的。屬性的值有整型、實(shí)型和字符串類型，有的屬性值只 能是預(yù)定義的保留字。字符串是由雙引號(hào)括起的文本，與 AutoLISP一樣，用 \做轉(zhuǎn)義符。 AutoLISP程序在運(yùn)行中可以改變控件的一些屬性。有些屬性在所有的控件中的含義是相同的，有些屬性在不同的控件中含義也不同。 在這里我們只選一些常用的給大家介紹一下 。表達(dá)式 中不能含有 AutoCAD的命令。 AutoLISP驅(qū)動(dòng)程序可以設(shè)置控件的一些屬性，且覆蓋 DCL定義時(shí)的該屬性。 默認(rèn)值：無(wú) 2. alignment 確定控 件自身的定位方式。 相關(guān)的控件有：全部控件。 相關(guān)的控件有： edit_box、 image_button、 list_box 默認(rèn)值： false 4. aspect_ratio 圖像控件的寬與高之比，與寬、高之一確定圖像控件的大小。 相關(guān)的控件有： image、 image_button 默認(rèn)值：無(wú) 5. edit_limit 確定編輯框可容納的最多字符數(shù)，最大值為 256。 默認(rèn)值： 132 6. edit_width 確定編輯框的寬度，以字符為單位。 相關(guān)的控件有： edit_box、 popup_list 默認(rèn)值：擴(kuò)充到整個(gè)可用空間。單位為屏幕字符的最大高度。通常，不需指定該值，系統(tǒng)能自動(dòng)采用合適的數(shù)值（圖像及圖像按鈕除外）。 默認(rèn)值：無(wú) 確定控 件的最小寬度，數(shù)值類型是整數(shù)或?qū)崝?shù)型。如果屬性 fixed_width的值為 ture， width是控件的實(shí)際寬度，否則，在自動(dòng)布局時(shí)，控件的實(shí)際寬度會(huì)超出該值。 相關(guān)的控件有：全部控件。普通顏色與 AutoCAD的標(biāo)準(zhǔn)顏色名（ red、yellow等）和顏色號(hào)所定義的顏色含義相同，此外還有表 121所示的特殊顏色。 默認(rèn)值： 7（白色） 10. key 確定控件的關(guān)鍵字，關(guān)鍵字是控件的標(biāo)識(shí)，在一個(gè)對(duì)話框中的關(guān)鍵字必須是唯一的。 AutoLISP程序根據(jù)控件的關(guān)鍵字施加相應(yīng)控件的操作。 默認(rèn)值：無(wú) 11. list 確定列表框或下拉列表 框內(nèi)的初始內(nèi)容（字符串），行之間用 \n分隔，行內(nèi)用制表符 \t分隔。 默認(rèn)值：無(wú) 12. tabs 確定列表框或下拉列表框內(nèi)的制表符 \t停止的位置（字符個(gè)數(shù)）。在參數(shù)后 , 可以使用一個(gè)“ /”符號(hào)和一個(gè)或一個(gè)以上的 sym 區(qū)域性符號(hào)。同時(shí) , 要隔一個(gè)空格。 Setq：這是 AutoLISP 中最基本的設(shè)定函數(shù)。 Setvar：變量設(shè)定函數(shù)，變量名稱一定要以雙引號(hào)括起。 Command：調(diào)用執(zhí)行 AutoCAD 命令。當(dāng)某一函數(shù)只允許您使用一個(gè)表達(dá)式時(shí)，您就可以使用 progn 函數(shù)來一次執(zhí)行好幾個(gè)表達(dá)式。 Cond： AutoLISP 語(yǔ)言中基本的條件函數(shù)。然后再運(yùn)算此測(cè)試成功的表達(dá)式 , 并返回最后子表表達(dá)式值。 (cond (test1 result1...)...)。 Atof：（ atof 字符串）返回：字符串轉(zhuǎn)成實(shí)數(shù)值。 Mapcar：將作為本函數(shù)參數(shù)的一個(gè)或多個(gè)表的各個(gè)元素提供給指定函數(shù)進(jìn)行求 值，并將由求值結(jié)果構(gòu)成的表返回 Pi：常數(shù) ? ，其值約為 。 Pline：畫多段線 。 Arc：畫圓弧，先定義起點(diǎn)。 Strcat：此函數(shù)將用來連接字符串，并返回最后得到的字符串。 Ridius：半徑。 2. 數(shù)學(xué)運(yùn)算功能函數(shù) （十 數(shù)值 數(shù)值?）返回：累計(jì)實(shí)數(shù)或整數(shù)數(shù)值 （一 數(shù)值 數(shù)值?）返回：差值 （ * 數(shù)值 數(shù)值?）返回：所有數(shù)值乘積 （ / 數(shù)值 數(shù)值?）返回：第一個(gè)數(shù)值除以第二個(gè)以后數(shù)值的商 （ cos 角度）返回：角度的余弦值，角度值為弧度 （ max 數(shù)值 數(shù)值?）返回：數(shù)值中的最大值 （ min 數(shù)值 數(shù)值?）返回：數(shù)值中的最小值 （ sin 角度）返回：角度的正旋值，角度值為弧度 （ sqrt 數(shù)值）返回：數(shù)值的平方根 3. 檢驗(yàn)與邏輯運(yùn)算功能函數(shù) （ = 表達(dá)式 1 表達(dá)式 2）比較表達(dá)式 1 是否等于式 2，適用數(shù)值及字符串 （／ = 表達(dá)式 1 表達(dá)式 2）比較表達(dá)式 1是否大于等于表達(dá)式 2 （＜ 表達(dá)式 1 表達(dá)式