【正文】 l)圖 44 曲軸參數(shù)化對(duì)話框示意圖進(jìn)入AutoCAD的Visual lisp編輯窗口，打開對(duì)話框文件后，依次單擊進(jìn)入工具/界面工具/預(yù)覽編輯器中的對(duì)話框后，彈出“輸入對(duì)話框的名稱 ”對(duì)話框，單擊確定就出現(xiàn)如圖44 曲軸參數(shù)化對(duì)話框示意圖?？丶▓D像、加框列、編輯框、并且引用了ok_cancel控件。 對(duì)話框的程序：quzhou:dialog{ //對(duì)話框的名字為quzhou label= 曲軸參數(shù)化設(shè)計(jì)。 //對(duì)話框的標(biāo)簽為曲軸參數(shù)化設(shè)計(jì) alignment=centered。 :row{ //從第一行開始 :image{width=40。 //第一行的第一個(gè)控件是圖像 height=8。 //圖像的高度、圖像的寬度 key=image。 //圖像的關(guān)鍵字 color=2。 //圖像的背景色為AutoCAD的背景色 } :column{ //第一行的第二個(gè)控件是列 :edit_box{label=氣缸直徑amp。D(mm) ：。// 列的第一個(gè)控件是編輯框 key=D_box。 //編輯框1的關(guān)鍵字 width=12。 //編輯框1的寬度 } :edit_box{label=旋轉(zhuǎn)角amp。Angle ：。 //列的第二個(gè)控件是編輯框 key=alf。 //編輯對(duì)話框的關(guān)鍵字 width=12。 //編輯對(duì)話框的寬度 value=0。 //控件初始狀態(tài)值 } :boxed_column { //列的第三個(gè)控件是加框列 label=定位點(diǎn)。 //加列框的標(biāo)簽為定位點(diǎn) :button{ //加列框的第一個(gè)控件是屏幕取點(diǎn)按鈕 label=屏幕取點(diǎn) 。 //加列框的標(biāo)簽 key=pick。 //加列框的關(guān)鍵詞 } :edit_box{ //加列框的第二個(gè)控件是編輯框 label=amp。X(mm)：。 //加列框編輯框 1的標(biāo)簽 width=12。 //加列框的編輯框1的寬度 key=X_box。 //加列框的編輯框 1的關(guān)鍵字 } :edit_box{ //加列框的第三個(gè)控件是編輯框 label=amp。Y(mm)：。 //加列框編輯框 2的標(biāo)簽 width=12。 //加列框編輯框2的寬度 key=Y_box。 //加列框編輯框 2的關(guān)鍵詞 }} }} ok_cancel。 //OK和Cancel按鈕} 對(duì)話框的驅(qū)動(dòng)程序?qū)υ捒蛭募枋隽藢?duì)話框的結(jié)構(gòu)和外觀、所屬控件的樣式、功能及控件的布局。但是將對(duì)話框顯示到屏幕上，使對(duì)話框及其各控件發(fā)揮作用，必須靠驅(qū)動(dòng)程序。對(duì)話框的驅(qū)動(dòng)流程圖見圖45圖 45 對(duì)話框驅(qū)動(dòng)程序流程圖1）加載、卸載對(duì)話框文件 加載對(duì)話框程序 (load_dialog f:\\bishe\\duihuakuang\\dhk) 。裝入對(duì)話框文件該程序?yàn)榧虞d一個(gè)對(duì)話框文件，并指定了文件的路徑，該函數(shù)默認(rèn)AutoCAD的搜索路徑。若加載成功返回一個(gè)大于0的整數(shù)。如(setq id (load_dialog f:\\bishe\\duihuakuang\\dhk))若返回值大于0，則表示加載成功；否則加載失敗。卸載對(duì)話框程序 (unload_dialog id) 。卸載對(duì)話框文件無論卸載是否成功，返回值均為nil2） 初始化、激活、關(guān)閉對(duì)話框(new_dialog quzhou id) ，將對(duì)話框顯示到屏幕上。參數(shù)id 為load_dialog函數(shù)的返回值。(start_image image) ，激活由new_dialog 函數(shù)顯示的對(duì)話框，等待并接受用戶的操作。此后對(duì)話框一直保持著激活狀態(tài)。直到某一動(dòng)作表達(dá)式調(diào)用了done_dialog函數(shù)，該函數(shù)才返回done_dialog函數(shù)的狀態(tài)值。在調(diào)用start_image 之前一定要檢測(cè)new_dialog 函數(shù)的返回值是否為T，否則會(huì)發(fā)生不可預(yù)料的結(jié)構(gòu)。（done_dialog [status] ），隱藏對(duì)話框，參數(shù)status 是一個(gè)整數(shù)，是提供給start_image函數(shù)的返回值。該函數(shù)的返回值為一個(gè)二維點(diǎn)的坐標(biāo)。該坐標(biāo)為對(duì)話框的左上角相對(duì)于屏幕左上角的位置（以像素為單位）。3）定義控件的動(dòng)作（action_tile key action_expression），制定控件的相對(duì)動(dòng)作。參數(shù)key為控件的關(guān)鍵字，action_expression為控件的動(dòng)作表達(dá)式，另外動(dòng)作表達(dá)式可不止一個(gè)。如：(action_tile accept (getdata)(done_dialog 1)) 該函數(shù)實(shí)現(xiàn)了確認(rèn)按鈕式用于肯定用戶操作的控件。它的關(guān)鍵字屬性key固定為accept。包括：將各控件的最終數(shù)據(jù)傳遞給應(yīng)用程序；調(diào)用done_dialog 函數(shù)，并設(shè)置對(duì)話框退出時(shí)的狀態(tài)值。Getdata 是用戶定義的函數(shù)，其功能是將各控件的最終結(jié)果傳遞給應(yīng)用程序，其中1作為調(diào)用done_dialog函數(shù)的狀態(tài)參數(shù)值。4）處理控件的屬性（get_tile key ） 獲取關(guān)鍵字key的控件的值，即獲得該關(guān)鍵字控件的value屬性的值；（set_tile key value）設(shè)置關(guān)鍵字key的空間的值；(dimx_tile key) 返回關(guān)鍵字為key的控件的寬度，以像素為單位；(dimy_tile key) 返回關(guān)鍵字為key的控件的高度，以像素為單位。5）建立圖像控件（start_image key）打開key指定圖像的控件，開始對(duì)其操作。這是圖像錯(cuò)做必須用到的，而且是首先調(diào)用的函數(shù)。（slide_image x1 y1 x2 y2 sldname）在當(dāng)前打開的圖像空間上顯示一幅幻燈片。參數(shù)x1 y1 x2 y2是為確定幻燈片位置的對(duì)角點(diǎn)坐標(biāo)。（end_image ）結(jié)束當(dāng)前圖像控件的處理。這是圖像操作必須用到的，而且是最后調(diào)用的函數(shù)。6）曲軸對(duì)話框的驅(qū)動(dòng)程序本文的對(duì)話框程序及驅(qū)動(dòng)程序詳見附錄C。在程序的屏幕取點(diǎn)、ok和cancel按鈕的活動(dòng)都含有調(diào)用done_dialog 函數(shù)的表達(dá)式，因此單擊任意一個(gè)按鈕，對(duì)話框都會(huì)消失。屏幕取點(diǎn)和ok按鈕的活動(dòng)都含有調(diào)用函數(shù)getdada函數(shù)，前者以獲取的數(shù)據(jù)進(jìn)行對(duì)話框的初始化，后者用獲取的數(shù)據(jù)進(jìn)行作圖。屏幕取點(diǎn)、ok和cancel按鈕在調(diào)用done_dialog 函數(shù)時(shí)的狀態(tài)值依次是 0，也是start_dialog函數(shù)返回的并賦給 std的值，是while 循環(huán)的條件變量，std=2，仍然滿足循環(huán)的條件，因此屏幕取點(diǎn)之后重新顯示對(duì)話框而單擊ok和cancel按鈕之后不再顯示對(duì)話框。 生成應(yīng)用程序AutoCAD既可以將直接加載的AutoLISP源代碼解釋執(zhí)行，也可以通過編譯器先將其源代碼便以為可執(zhí)行程序，然后加載執(zhí)行。前者的優(yōu)點(diǎn)是可隨時(shí)測(cè)試或修改源代碼，可以利用所有的調(diào)試程序的工具；后者的優(yōu)點(diǎn)是提高了執(zhí)行的速度，并可對(duì)源代碼進(jìn)行保密，因此程序調(diào)試結(jié)束后，生成應(yīng)用程序可以對(duì)程序進(jìn)行保護(hù)。通過生成應(yīng)用程序可以生成*.vlx可執(zhí)行文件、*.fas文件，以實(shí)現(xiàn)對(duì)程序的保護(hù)。打開AutoCAD后，進(jìn)入visual lisp編輯器，在菜單欄依次打開文件/ 生產(chǎn)應(yīng)用程序/新建應(yīng)用程序向?qū)?，彈出?duì)話框，如圖46 向?qū)Ｊ剑凑諏?duì)話框依次操作即可生成應(yīng)用程序。圖 46 向?qū)Ｊ綀D 47 啟動(dòng)組 程序運(yùn)行的結(jié)果在AutaoCAD中運(yùn)行l(wèi)isp文件有很多種方法，下面兩種是比較常用的方法：方法一：打開AutoCAD后，進(jìn)入visual lisp編輯器，打開曲軸程序的主程序，在visuallisp控制臺(tái)中輸入（c：quzhou），即可啟動(dòng)了該程序，然后按照對(duì)話框的提示即可出現(xiàn)曲軸的圖形。方法二：打開AutoCAD后，在菜單欄里依次單擊工具/加載應(yīng)用程序，彈出加載/ 卸載應(yīng)用程序?qū)υ捒颍x取需要加載的文件，并且單擊加載，成功后單擊關(guān)閉，然后在AutoCAD命令行中輸入文件名，即可彈出程序的對(duì)話框，按照其提示即可繪出曲軸的圖形。如果在啟動(dòng)組里添加所需要的文件，那么在每次啟動(dòng)AutoCAD時(shí)都會(huì)自動(dòng)加載這些應(yīng)用程序。在彈出的加載/卸載應(yīng)用程序?qū)υ捒蛑?，在啟?dòng)組中單擊 “內(nèi)容”，彈出如圖47啟動(dòng)組，添加文件的路徑即可。設(shè)置結(jié)束后在命令窗口輸入“quzhou”，即可彈出如圖48 曲軸對(duì)話框所示，例如在汽缸直徑的編輯框中輸入105，旋轉(zhuǎn)角輸入0，再單擊屏幕取點(diǎn)，最后單擊確定就出現(xiàn)如圖49 4105型曲軸。即實(shí)現(xiàn)了曲軸的參數(shù)化設(shè)計(jì)。圖 48 曲軸對(duì)話框圖 49 4105 型曲軸5 結(jié)論曲軸作為內(nèi)燃機(jī)整機(jī)系統(tǒng)的一個(gè)重要組成部分，在論文期間通過對(duì)所研究對(duì)象—曲軸進(jìn)行了特征提煉、參數(shù)化后，完成了整個(gè)曲軸框架的建立，已經(jīng)達(dá)到前期選題的要求，可以實(shí)現(xiàn)作為一個(gè)CAD系統(tǒng)的基本功能。但是，由于時(shí)間有限以及對(duì)于工程設(shè)計(jì)理解上的欠缺，要想使程序真正應(yīng)用于生產(chǎn)實(shí)踐，還有許多后續(xù)工作要做。本文主要研究成果有：1. 經(jīng)過編寫簡(jiǎn)單的曲軸模型程序?qū)崿F(xiàn)了曲軸的二維設(shè)計(jì)圖紙，包括了尺寸的標(biāo)注、對(duì)話框的設(shè)計(jì)、幻燈片的設(shè)計(jì)、對(duì)話框驅(qū)動(dòng)程序的設(shè)計(jì)、應(yīng)用程序的設(shè)計(jì)等等，為以后的進(jìn)一步設(shè)計(jì)奠定了重要基礎(chǔ)；2. 經(jīng)過二次開發(fā)的參數(shù)化CAD軟件具有效率高、可靠性好的優(yōu)點(diǎn)。同時(shí)，利用實(shí)體造型技術(shù)不儀能夠?qū)π误w進(jìn)行剖切生成剖視圖，并且還可以對(duì)其體積、重心、慣性矩和慣性積等物性參數(shù)實(shí)施計(jì)算和分析．為進(jìn)行強(qiáng)度、動(dòng)平衡計(jì)算、有限元分析等提供了依據(jù)。主要不足之處與展望：1. 由于時(shí)間和水平有限只編寫了曲軸的二維結(jié)構(gòu)設(shè)計(jì)的圖，在編寫曲軸程序時(shí)對(duì)于曲軸的倒角及圓角的繪制、粗糙度的標(biāo)注等問題沒有解決。2. 程序雖然實(shí)現(xiàn)了二維圖紙的繪制，但是在實(shí)際應(yīng)用中，通過三維圖更能反應(yīng)出零件的形狀，利于對(duì)零件的分析，要真正實(shí)現(xiàn)曲軸的參數(shù)化設(shè)計(jì)應(yīng)該實(shí)現(xiàn)曲軸的三維模型的設(shè)計(jì)；3. 現(xiàn)代的制造企業(yè)要求產(chǎn)品更新周期短，產(chǎn)品種類多，以滿足消費(fèi)者對(duì)商品的個(gè)性化、快速化、實(shí)用化的要求。這就要求CAD系統(tǒng)能夠勝任諸如快速原型設(shè)計(jì)，快速建立幾何模型，工程分析，為后續(xù)的自動(dòng)化加工準(zhǔn)備數(shù)據(jù)等工作。本程序雖然完成了曲軸的結(jié)構(gòu)設(shè)計(jì)，但是曲軸的強(qiáng)度和振動(dòng)校核以及曲軸三維圖象的建模，但功能還不全面，不支持產(chǎn)品設(shè)計(jì)的全過程。這就為后續(xù)工作提出了補(bǔ)充功能模塊、加強(qiáng)CAD系統(tǒng)集成度的要求，以實(shí)現(xiàn)不同的功能模塊支持設(shè)計(jì)的不同階段，從而完成設(shè)計(jì)過程中的各種任務(wù)。謝辭經(jīng)過幾個(gè)月的忙碌和學(xué)習(xí)，本次畢業(yè)設(shè)計(jì)論文已經(jīng)接近尾聲。這里向老師們表示深深的謝意。本論文是在導(dǎo)師楊洋老師的悉心指導(dǎo)下完成的，從開始的題目選擇到設(shè)計(jì)資料篩選，再到論文的撰寫到最后的定稿，都得到了楊老師的耐心指導(dǎo)和悉心關(guān)懷。楊老師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和淵博的專業(yè)知識(shí)給我留下了深刻的印象，對(duì)我以后的工作和學(xué)習(xí)產(chǎn)生了積極的影響。楊老師的每一次點(diǎn)撥，都使我受益匪淺，正是這一次次的指導(dǎo)，使我一直很順利的進(jìn)步，并最終完成論文，在此向我的導(dǎo)師表示深深的感激。書山有路勤為徑，學(xué)海無涯苦作舟。轉(zhuǎn)眼四年的本科生生活即將結(jié)束，在這緊張而繁忙的學(xué)習(xí)期間，時(shí)時(shí)感受到老師們無私耕耘的辛勞，深得教誨的同時(shí)，也體會(huì)到知識(shí)給予的快樂。這是大學(xué)的終點(diǎn)也是人生的另一個(gè)起點(diǎn)，在以后的人生道路上我將一如既往地努力奮斗，以此報(bào)答父母的養(yǎng)育之恩和所有關(guān)心幫助我的人對(duì)我的期望。還要感謝學(xué)院的許多老師和同學(xué)，在我平時(shí)的學(xué)習(xí)和生活當(dāng)中，他們都給予了我不少的支持和幫助，在此，謹(jǐn)致以誠(chéng)摯的謝意。參考文獻(xiàn)【1】 [M].北京：中國(guó)農(nóng)業(yè)機(jī)械出版社,1980.【2】 LISP程序設(shè)計(jì)（AutoCAD 2022）[M]. 北京：清華大學(xué)出版社,2022.【3】 [M].北京：機(jī)械工業(yè)出版社，2022.【4】 李長(zhǎng)勛主編. AutoCAD Visual LISP程序開發(fā)技