1、引 言在各類機(jī)械產(chǎn)品的零件中，軸類零件占有相當(dāng)大的比重，應(yīng)用比較廣泛。因此軸類零件的設(shè)計(jì)是設(shè)計(jì)中經(jīng)常用到的。隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，軸類零件的設(shè)計(jì)正逐步從手工走向由計(jì)算機(jī)自動(dòng)完成。這樣不但提高了設(shè)計(jì)質(zhì)量，減少了設(shè)計(jì)工作量，同時(shí)為多品種、中小批量生產(chǎn)的設(shè)計(jì)提供了必要的保障手段。所以筆者選擇了該畢業(yè)設(shè)計(jì)課題。其基本實(shí)現(xiàn)過程是：先分析軸類零件的設(shè)計(jì)及繪圖特點(diǎn)，采用軸段拼接思想將軸拆分為各個(gè)具有一定特征的拼接單元，然后利用autocad自帶的autolisp編程語言，編寫各個(gè)拼接單元的參數(shù)化繪圖程序，最終實(shí)現(xiàn)齒輪軸的參數(shù)化設(shè)計(jì)。autolisp是對autocad進(jìn)行二次開發(fā)最常用最有效的手段, 相對

2、于c語言等其他編程語言來說，它使用簡單、應(yīng)用廣泛、使用者眾多，是國內(nèi)外autocad應(yīng)用軟件開發(fā)者的首選工具。所以本人選用了autolisp作為程序編寫語言。基于autolisp的齒輪軸參數(shù)化繪圖及三維造型設(shè)計(jì)摘 要： 將齒輪軸分解為若干拼接單元，在基于autolisp平臺(tái)上對每個(gè)拼接單元進(jìn)行參數(shù)化編程，并借助對話框編程語言dcl來進(jìn)行人機(jī)對話。decomposition of the gear shaft modules for a number of combinations, based on the autolisp platform modules for each splicing

3、 parameters of the program, through dialog and dcl programming language for man-machine dialogue. 關(guān)鍵詞：autolisp dcl參數(shù)化 齒輪軸1、課題意義軸、齒輪軸是工程中應(yīng)用最為廣泛的零件之一。它不是標(biāo)準(zhǔn)件，設(shè)計(jì)中必須繪制出它的零件圖。但各種齒輪軸的基本幾何特征卻很相似，如倒角、退刀槽、鍵等等。因此，開發(fā)一套能在微機(jī)上運(yùn)行的，集零件設(shè)計(jì)、校核及繪圖為一體的軟件系統(tǒng)就顯得十分重要。對于設(shè)計(jì)者可以減少工作量；對于企業(yè)可以縮短新產(chǎn)品開發(fā)時(shí)間，節(jié)省資源，降低成本，增強(qiáng)產(chǎn)品競爭力。而且當(dāng)前對軸類零件進(jìn)行

4、參數(shù)化設(shè)計(jì)研究的人員、機(jī)構(gòu)還不是很多，相關(guān)的資料、信息也相對少一些。這給本人帶來了不少鼓舞和挑戰(zhàn)。2、整體思路本課題編程的計(jì)算機(jī)語言是嵌在autocad內(nèi)部的一種lisp語言。與其它高級(jí)語言相比，lisp不僅具備各種運(yùn)算功能，而且還有非常強(qiáng)大的圖象處理功能，它可以直接調(diào)用autocad的繪圖命令。由于本人剛接觸autolisp及dcl不久，對許多命令還不是很熟悉，在短期內(nèi)設(shè)計(jì)一個(gè)比較成熟的設(shè)計(jì)系統(tǒng)亦非易事。在這里本文僅介紹了齒輪軸的參數(shù)化繪圖部分。基本前提是用戶事前已經(jīng)計(jì)算出齒輪軸的每一部分尺寸。然后加載lisp繪圖源程序，并在cad命令行輸入lisp程序的命令名（如zhou）調(diào)出對話框，如圖

5、一。（圖一）接著由設(shè)計(jì)者選擇所需的拼接單元。比如選擇“軸段一”按鈕，就會(huì)彈出軸段一的對話框，如圖二。（圖二）接著是指定繪圖拼接點(diǎn)，當(dāng)用戶沒有指出繪圖拼接點(diǎn)就按確定時(shí)，系統(tǒng)會(huì)彈出提示信息。當(dāng)確定拼接點(diǎn)后程序又回到圖二的界面讓用戶輸入數(shù)據(jù)。填寫完數(shù)據(jù)信息后按確定，程序?qū)υ捒蛲顺觯D(zhuǎn)入后臺(tái)運(yùn)算并在繪圖窗口繪出圖形，如圖三。（圖三）圖形繪制完畢后程序?qū)⒎祷刂鲗υ捒颍▓D一）。此時(shí)如果用戶對剛才所畫的圖形不滿意，可以點(diǎn)擊“清除所畫”按鈕進(jìn)行清除。如果想繼續(xù)往下拼接就點(diǎn)擊其他軸短段的按鈕。當(dāng)拼接完畢時(shí)，用戶可以點(diǎn)擊“選擇圖框”按鈕加入圖框，此時(shí)會(huì)彈出圖框設(shè)置對話框如圖四。（圖四）在對話框中選定圖紙尺寸（或自

6、定義尺寸）、圖紙布置、標(biāo)題欄形式后指定圖框插入點(diǎn)即可。3、具體實(shí)現(xiàn)3.1、齒輪軸的拆分根據(jù)各部分的特征可將齒輪軸進(jìn)行拆分。當(dāng)然，設(shè)計(jì)思路不一樣，拆分的情況也不一樣。本文的拆分情況如圖五。（圖五）拆分后就可以根據(jù)各部分的特點(diǎn)分別編寫參數(shù)化子程序了。用戶在主界面選擇不同軸段部分時(shí)就調(diào)用了不同的繪圖子程序。比如用戶選擇軸段一，就調(diào)用了子程序s1。3.2、主程序 主程序部分定義了用戶在命令行要輸入的命令名字，它激活了整個(gè)程序并依照用戶的指令調(diào)用子程序。以下是主程序的部分：(defun c:zhou() ;定義主程序命令名zhou (setq osmode(getvarosmode) cmdecho (

7、getvarcmdecho) blipmode(getvarblipmode);將一些系統(tǒng)變量存儲(chǔ)起來，以備圖形繪出后恢復(fù) (setvarosmode 0) (setvar blipmode 0) (setvar cmdecho 0);設(shè)定一些需要的系統(tǒng)變量,很多時(shí)候如果不對這些系統(tǒng)變量進(jìn)行設(shè)置，;程序就不能正常運(yùn)行 (vl-load-com);這條指令很關(guān)鍵，因?yàn)閍uotolisp是老版本的開發(fā)語言，現(xiàn)在autocad里 (command _-view _front );將視圖轉(zhuǎn)化為主視圖(command layer m 1二維繪圖層 c 7 l continuous lw 0.7 m 5齒

8、輪圖層 c 7 l continuous );新建各個(gè)圖層(setq dcl_www(load_dialog c:/zhou.dcl) (setq do_www 2) (while (= do_www 2)(if (= null (new_dialog zhou dcl_www)(prong (princ n未能顯示對話框。) (setq dialogshow nil) (exit);初始化對話框(s_img_zhou img_1)(s_img_zhou img_2)(s_img_zhou img_3)(s_img_zhou img_4)(s_img_zhou img_5)(s_img_zho

9、u img_6) (s_img_zhou img_7);填充幻燈片 (action_tile zhou_1 (done_dialog 2)(action_tile zhou_2 (done_dialog 3) (action_tile qing_7 (done_dialog 16)(action_tile cancle (exit)(action_tile accept (done_dialog 1);定義各個(gè)按鈕的動(dòng)作(setq do_www (start_dialog)(cond (= do_www 1)(command shademode g )(= do_www 2)(s1) (= d

10、o_www 3)(s2) .(= do_www 16)(shanchu_7) ) ; “定義按鈕”激發(fā)時(shí)調(diào)用給定的程序 (unload_dialog dcl_www) ;釋放對話框(command zoom e)(setvarosmodeosmode)(setvarcmdechocmdecho)(setvarblipmodeblipmode);恢復(fù)系統(tǒng)變量，不影響原有操作。 (princ);結(jié)束主程序zhou;定義各按鈕激發(fā)時(shí)調(diào)用的程序，這些程序的作用是調(diào)用各個(gè)繪圖子程序;(defun s1()(load c:/s1.lsp)(s1)(princ)(defun s2()(load c:/s2.

11、lsp)(s2)(princ).(defun s17()(load c:/s7.lsp)(c:s17)(princ);結(jié)束各個(gè)調(diào)用程序 ;定義各清除程序; (defun shanchu_1()(command erase ss1_1 tuyuan_1 san1_1 )(defun shanchu_2()(command erase tuyuan_2 san2_1 ).(defun shanchu_7()(command erase luowen_1 tuyuan_15 );結(jié)束各個(gè)清除程序;定義加載并填充幻燈片的程序;(defun s_img_zhou(m_zhou) (cond (= m_z

12、hou img_1) (setq sld_zhou c:/帶鍵軸段1.sld) (= m_zhou img_2) (setq sld_zhou c:/開口退刀槽軸段2.sld) (= m_zhou img_7) (setq sld_zhou c:/螺紋軸段7.sld) (setq tmp_x_zhou (dimx_tile m_zhou) tmp_y_zhou (dimy_tile m_zhou) (start_image m_zhou) (fill_image 0 0 tmp_x_zhou tmp_y_zhou -2) (slide_image -2 -10 tmp_x_zhou tmp_y

13、_zhou sld_zhou)(end_image);結(jié)束各個(gè)幻燈片填充程序;定義加載圖框生成程序;(defun abc()(command layer m 7圖框線層 c 7 l continuous )(load c:/tuzhi.fas)(c:tuzhi)(setq tukuang_1(ssget x (-4 . )(command _rotate3d tukuang_1 x 90 ) (princ) ;結(jié)束圖框生成程序注意：我們自己編的lisp程序不能用cad的command調(diào)用，因?yàn)閏a無法識(shí)別。只有先執(zhí)行下面這一句才可：(vlax-add-cmd 命令名 c:命令名)，意思是向au

14、tocad注冊一下,使之成為標(biāo)準(zhǔn)命令。3.3、子程序 s1、s2、s7分別為七個(gè)拼接單元的繪圖程序，為主程序提供功能支持。當(dāng)然，子程序本身也可以有自己的“子程序”，這里的“子程序”習(xí)慣叫它們子函數(shù)。一般，主程序定義的函數(shù)前都有“c：”，加載后在命令行鍵入命令名回車即可執(zhí)行，而子程序就沒有。當(dāng)一個(gè)程序文件里有多個(gè)含有“c：”的程序時(shí)怎么辦呢？可以用以下的框架去實(shí)現(xiàn)：(defun c:a() (defun c:b()(c:b). .) ;定義c:a );定義c:b以下是子程序部分： (defun s1() (defun s2() (defun s7(). . . .);定義s1 );定義s2 );

15、定義s7繪圖子程序的基本思路是先根據(jù)圖形特征定義所有繪圖點(diǎn)，然后新建圖層，接著就是用autocad的command命令進(jìn)行繪圖。另外，為了便于其它程序?qū)偛潘L的圖形進(jìn)行操作，最好設(shè)定不同的圖元集，用來存放不同類型的圖元。比如用setq設(shè)定了a、b、c、d點(diǎn)，然后用(command “pline” a b c d “c”)繪制了一個(gè)矩形。這個(gè)矩形就是一個(gè)圖元，這個(gè)時(shí)候需要將該圖元存放到一個(gè)圖元集里以便以后對它進(jìn)行諸如旋轉(zhuǎn)鏡相等操作。這次搞畢業(yè)設(shè)計(jì)才真正弄明白圖元的含義，也有人叫它圖素或像素。保存圖元有好幾種方式：方式一：(setq san1(ssadd)(ssadd(entlast)san1)

16、;新建一個(gè)名為san1的圖元集并將最后一次產(chǎn)生的圖元放到圖元集san1中；方式二：(setq san1(ssget”l”);將添加到數(shù)據(jù)庫的最后一個(gè)可見對象放到圖元集san1中；方式三：(setq san1(ssget x (-4 . );將名為“圖層名”上的所有圖元放到圖元集san1中；等等3.4、對話框程序 對話框大家都不陌生，我們登陸qq、校友錄，玩游戲，發(fā)email等等時(shí)總要與對話框打交道。對話框是目前最為流行的一種人機(jī)交互界面。本課題的程序也選擇了常用的對話框語言dcl作為人機(jī)交互界面的編寫語言。主程序和子程序的對話框程序都放在一個(gè)對話框文件里，給各個(gè)程序的對話框命不同的名，然后按名

17、調(diào)用。以下是部分對話框程序代碼：zhou:dialoglabel=軸的參數(shù)化設(shè)計(jì);:rowlabel=請選擇需要的軸段; :columnlabel=帶鍵軸段1; :image key=img_1;width=20; height=10; color=-2; ok_cancel;定義主程序?qū)υ捒騭1:dialoglabel=帶鍵軸段1; ok_cancel; .s7:dialoglabel=開口退刀槽軸段2; ok_cancel;定義子程序?qū)υ捒?.5、主要繪圖子程序介紹 3.5.1、軸段一的繪圖程序s1(defun s1()(vl-load-com);這條指令很關(guān)鍵，因?yàn)閍uotolisp是老

18、版本的開發(fā)語言，現(xiàn)在autocad里的都是vlisp了，要使用visual lisp 擴(kuò)展功能就得加這一句。 ;加載對話框的語句(s_img_zhou img_1);將幻燈片填入對話框(action_tile dt_1(set_tile $key $value)(act_1)(if( dt_1 130)(done_dialog 4) (action_tile accept (act_1)(done_dialog 1); 以上幾句設(shè)定使用按鈕的動(dòng)作 (setq do_what_1 (start_dialog) (cond (= do_what_1 5) (command osnap end,in

19、t,mid) (setq ps_1(getpoint 請輸入p200點(diǎn):) (command osnap off) (setq xx_1(car ps_1) yy_1(cadr ps_1) ) (= do_what_1 1)(setq pst_1 (list xx_1 yy_1) (= do_what_1 2) (alert l1應(yīng)小于l2n請重新輸入) (= do_what_1 3) (alert 請輸入0到90之間的數(shù)) (= do_what_1 4) (alert 您輸入的軸徑太大n請輸入0到130之間的數(shù)) );以上一段程序是多條件執(zhí)行語句，當(dāng)輸入不滿足設(shè)定的情況時(shí)就彈出提示信息框。

20、(unload_dialog dcl_id_1) (draw_1);繪圖程序子函數(shù) (princ);結(jié)束s1程序 ;以下定義繪圖程序draw_1; (defun draw_1() (vl-load-com) (setq p00 pst_1 vpt_1 (vlax-3d-point p00);創(chuàng)建與 activex 兼容的（變體）三維點(diǎn)結(jié)構(gòu) ) (cond (and ( dt_1 6)( dt_1 8)( dt_1 95)( dt_1 110)(= dt_1 130)(setq bt_1 32 t1 11.0 );根據(jù)參數(shù)dt_5的各種情況利用多條件語句自動(dòng)選擇bt_1:鍵槽寬和t1:軸上鍵槽深

21、度。vpt_1(setq d1_1 (/ dt_1 2)(setq at_1 (* pi (/ at_1 180)(setq p12 (polar p14 0 (- sl_1 b1_1)(setq p16 (polar p12 (- (* 0.5 pi)2);在 ucs 坐標(biāo)系下，利用polar函數(shù)設(shè)定各繪圖點(diǎn)。(command layer s 1二維繪圖層 );將1二維繪圖層設(shè)為當(dāng)前層(setq tuyuan_1 (ssadd);新建圖元集tuyuan_1(command pline p01 a d pt4 p02 l p03 p04 p05 p06 p07 ad pt5 p08 )(ssa

22、dd (entlast) tuyuan_1) (command line p03 p10 )(ssadd (entlast) tuyuan_1)(command line p06 p13 )(ssadd (entlast) tuyuan_1)(command pline p09 p11 a d pt6 p12 l p14 )(ssadd (entlast) tuyuan_1)(command layer m 3中心線 c 2 l center )(ssadd (entlast) tuyuan_1)(command line pt7 p00 )(ssadd (entlast) tuyuan_1)

23、(command line p15 p16 )(ssadd (entlast) tuyuan_1);以上是畫二維圖程序， (ssadd (entlast) tuyuan_1)的作用是將每次畫的圖元放到圖元集tuyuan_1里。以上畫完后的圖形如（圖六）：（圖六）(s7)(ssadd (entlast) tuyuan_1);子程序s7畫剖面，執(zhí)行完后的圖形如下（圖七）：（圖七） (s9);子程序s9畫三維圖 (princ);結(jié)束繪圖程序 draw_1 ;以下定義act_1從對話框獲取輸入值; (defun act_1()(setq sl_1(abs(atof(get_tile sl_1)(set

24、q sll_1(abs(atof(get_tile sll_1) (setq dt_1(abs(atof(get_tile dt_1)(setq at_1(abs(atof(get_tile at_1)(setq ct_1(abs(atof(get_tile ct_1)(setq rt_1(abs(atof(get_tile rt_1);結(jié)束act_1;以下定義畫剖面的子程序s7;(defun s7()(setq pt21 (polar p00 pi (/ sll_1 2) (setq ss1_1 (ssadd);定義繪圖點(diǎn)(command layer s 1二維繪圖層 );將1二維繪圖層設(shè)為

25、當(dāng)前層(command circle p700 d1_1 )(ssadd (entlast) ss1_1)(command line p702 p704 )(ssadd (entlast) ss1_1)(command line p703 p705 )(ssadd (entlast) ss1_1)(command line p702 p703 )(ssadd (entlast) ss1_1)(command trim ss1_1 p704 p705 p706 )(ssadd (entlast) ss1_1)(command layer m 3中心線 c 2 l center )(command

26、 line p707 p709 )(ssadd (entlast) ss1_1)(command line p708 p710 )(ssadd (entlast) ss1_1)(princ); 結(jié)束子程序s7;以下定義畫三維圖的子程序s9;(defun s9()(setq p900 (polar p00 (- (* 0.5 pi) juli) (setq p912 (polar p914 0 (- sl_1 b1_1) ;定義繪圖點(diǎn)(setq san1_1(ssadd)(setq san1_2(ssadd)(setq san1_3(ssadd)(command layer s 4三維繪圖層 )

27、;將4三維繪圖層設(shè)為當(dāng)前層(command pline p901 a d p9t4 p902 l p903 p904 p9t1 p900 p901 )(ssadd (entlast) san1_1)(command _revolve san1_1 p9t1 p900 360 )(ssadd (entlast) san1_1)(command pline p909 p911 a d p9t6 p912 l p914 p909 )(ssadd (entlast) san1_2)(command move san1_2 p9t1 p9t1_1 )(ssadd (entlast) san1_2)(co

28、mmand line p9t1_1 p9t1_2 )(ssadd (entlast) san1_3)(command extrude san1_2 p san1_3 )(ssadd (entlast) san1_2)(command_.subtract san1_1 san1_2 )(ssadd (entlast) san1_1)(command erase san1_3 )(command shademode g )(princ) ; 結(jié)束子程序s93.5.2、齒輪軸段的繪圖程序s5 畫齒輪程序的基本結(jié)構(gòu)與其它程序類似，前面闡述過的一些語句這里不再贅述，僅對繪圖的核心程序做必要說明。 (se

29、tq rdao_13 (* 0.3 mt_5);齒根倒圓半徑 (setq ak (* (/ pi 180) 20);分度圓的壓力角 (setq ang_13 (- (/ (sin ak) (cos ak) ak);漸開線從起點(diǎn)到分度圓處的展角 (setq rfen_13 (/ (* mt_5 zt_5) 2);分度圓半徑 (setq ha_5 mt_5);齒頂高 (setq hf_5 (* mt_5 1.25);齒根高 (setq rding_13 (+ rfen_13 ha_5);齒頂圓半徑 (setq rgen_13 (- rfen_13 hf_5);齒根圓半徑 (setq rji_13

30、(* rfen_13 (cos ak);基圓半徑 (setq p1300 (list 0 0);齒輪中心點(diǎn) (setq p1301(polar p500 (- (* 0.5 pi) 100) (setq p0_13 p1300) (setq san13_1(ssadd)(setq san13_2(ssadd)(setq san13_3(ssadd)(setq san13_4(ssadd);新建四個(gè)圖元集san13_1到san13_4。 (command layer s 5齒輪圖層 ) (setq phi 0);齒輪漸開線部分的x、y坐標(biāo)表達(dá)式中的角度變量 (setq rfen_13 rji_1

31、3) (setq x_13(* rji_13 (+ (cos phi) (* phi (sin phi);齒輪漸開線部分的x坐標(biāo)表達(dá)式 (setq y_13(* rji_13 (- (sin phi) (* phi (cos phi);齒輪漸開線部分的y坐標(biāo)表達(dá)式漸開線上任一點(diǎn)的p，如圖八：（圖八） (command pline (list x_13 y_13);漸開線起點(diǎn) (setq dian_13 (list x_13 y_13) (while ( rfen_13 rding_13) (setq phi (+ phi 0.01);設(shè)定角度變量phi的增量，其值越小圖形越精確。 (setq

32、x_13(* rji_13 (+ (cos phi) (* phi (sin phi) (setq y_13(* rji_13 (- (sin phi) (* phi (cos phi) (setq rfen_13 (sqrt (+ (* x_13 x_13) (* y_13 y_13) (command (list x_13 y_13);while循環(huán)產(chǎn)生一些漸開線的輪廓點(diǎn)并用pline連接起來。(command )(ssadd (entlast)san13_1);漸開線繪制完成，并將其放到圖元集san13_1里面。(setq p_13 (list x_13 y_13)(setq angp(

33、angle p0_13 p_13)(setq ang(/(/(* pi mt_5)2) rfen_13)(setq angb(+ (* ang_13 2)ang)(setq angp1(/ angb 2)(setq angp2(- angb angp)(setq p1_13 (polar p0_13 angp1 rding_13)(setq p2_13 (polar p0_13 angp2 rding_13)(setq p3_13 (polar dian_13 (+ pi angp1) (- rji_13 rgen_13)(setq p4_13 (polar p0_13 (- ang_13 )

34、 rgen_13)(setq p5_13 (polar p0_13 (/ (* 2 pi) zt_5) rgen_13);設(shè)定一些角度和繪圖輔助點(diǎn)(command line dian_13 p3_13 )(ssadd (entlast)san13_1);畫齒根圓倒角與漸開線之間的過度線，注意l1與l2平行，如圖九：（圖九） (setq san13_5 (list (entlast) p3_13)(command circle p0_13 rgen_13 )(setq san13_6(list (entlast) p4_13);畫齒根圓(command fillet r rdao_13 fill

35、et san13_5 san13_6 )(ssadd (entlast)san13_2);倒圓角圓角半徑為模數(shù)的0.3倍。(command _.mirror san13_1 san13_2 p0_13 p1_13 )(ssadd (entlast)san13_2);鏡像(command _.trim san13_2 san13_6 p5_13 );修剪多余部分(command arc p_13 c p0_13 p2_13 );畫齒頂圓弧，到此，一個(gè)齒輪畫完，如圖十：（圖十） (setq san13_3(ssget x (-4 . );將上面的圖元放到圖元集san13_3里。(command _

36、region san13_3 )(ssadd (entlast)san13_3);將上面的輪齒端面面域(command _extrude san13_3 sl_5 )(ssadd (entlast)san13_3) ;拉伸該面至輪齒長 (command array san13_3 p p0_13 zt_5 y);將上面的圖形陣列，數(shù)目為用戶輸入的齒數(shù)。(setq san13_3(ssget x (-4 . )(command circle p0_13 rgen_13 )(ssadd (entlast)san13_4);畫齒根圓(command _extrude san13_4 sl_5 )(s

37、sadd (entlast)san13_4);拉伸齒根圓，最終的齒輪繪制完，如圖十一：（圖十一）(command _rotate3d san13_3 san13_4 y 90 )(command move san13_3 san13_4 p0_13 p1301 )(command chprop (ssget x (8 . 5齒輪圖層) layer 4三維繪圖層 );將5齒輪圖層上的圖元轉(zhuǎn)移到4三維繪圖層上4、結(jié) 論通過本文的闡述，可以看出，對于工程上常用的一部分非標(biāo)準(zhǔn)件，可以通過編寫程序的方式去實(shí)現(xiàn)該類零件的參數(shù)化設(shè)計(jì)。當(dāng)然，編寫程序的方式多種多樣。過了計(jì)算機(jī)二級(jí)的可以用vba，過了計(jì)算機(jī)三級(jí)

38、的可以用c，c+等，而還沒學(xué)過計(jì)算機(jī)語言的也不用著急，可以用autocad自帶的lisp程序。lisp語法簡單，結(jié)構(gòu)明朗，很適合初學(xué)者學(xué)習(xí)和使用。在具體實(shí)施時(shí)還可以配合使用一些諸如dcl的對話框程序作為人機(jī)對話的窗口，使程序更加人性化。而編程的思路就因零件而異、因設(shè)計(jì)者而異了。像本文涉及的軸類零件就可以用拼接法來實(shí)現(xiàn)。在編程時(shí)應(yīng)力求在滿足所有功能的前提下盡量減少變量，減少內(nèi)存使用率，提高繪圖效率！5、設(shè)計(jì)感想5.1、收獲通過本次畢業(yè)設(shè)計(jì)的學(xué)習(xí)，我真正理解了為什么要開設(shè)基礎(chǔ)課、專業(yè)基礎(chǔ)課、專業(yè)課。在整個(gè)設(shè)計(jì)過程中，我用文獻(xiàn)檢索知識(shí)進(jìn)行基礎(chǔ)資料準(zhǔn)備，用機(jī)械設(shè)計(jì)及機(jī)械原理知識(shí)設(shè)計(jì)各部分結(jié)構(gòu)，查機(jī)械手冊填寫數(shù)據(jù)庫，查機(jī)械制圖手冊規(guī)范繪圖標(biāo)準(zhǔn)，用計(jì)算機(jī)應(yīng)用基礎(chǔ)等知識(shí)進(jìn)行程序編寫及后期制作等等。我的課題涉及這些知識(shí)，其他同學(xué)的課題涉及另外的知識(shí)。在整個(gè)設(shè)計(jì)過程中，不知不覺地就將各門課程串聯(lián)起來了。大學(xué)好在哪，她讓我們學(xué)會(huì)了方法，