【正文】 if (= error_flag 1)(mode_tile “accept” 1)) )注釋：該段代碼功能是控制齒輪結(jié)構(gòu)的下拉列表框，決定幻燈片的顯示及選擇，函數(shù)命名為s_gear_stru。(defun help_information() (alert”使用方法： 程序載入后，鍵入gear運(yùn)行對(duì)話框程序。\n 請(qǐng)先選擇齒輪的基本參數(shù)，再選擇齒輪的基本形式，確定后自動(dòng)繪圖\n 備注： 本程序所繪制的齒輪均為一般用途的標(biāo)準(zhǔn)齒輪，故壓力角選擇20度，\n ，齒頂高系數(shù)選擇1，請(qǐng)輸入大于17的齒數(shù)?！? ))注釋：該段代碼是顯示幫助信息，幫助用戶快速掌握該系統(tǒng)的使用方法。(defun gear_wheel() (mand “l(fā)ayer” “n” “1” “c” 7 “1” “n” “2” “c” 2 “2” “n” “3” “c” 1 “3” “l(fā)” “dashed” “3” “n” “4” “c” 1 “4” “l(fā)” “center” “4” “n” “5” “c” 1 “5” “l(fā)” “phantom” “5” “n” “6” “c” 3 “6” “n” “7” “c” 4 “7” “n” “8” “c” 5 “8” “s” 7 “” ) 。選擇所畫齒輪類型 (cond ((= index_last_stru 0) (szgear)) ((= index_last_stru 1) (fzgear)) ((= index_last_stru 2) (lzgear)) ((= index_last_stru 3) (sxgear)) ((= index_last_stru 4) (fxgear)) ((= index_last_stru 5) (lxgear)) ) )注釋：該段代碼是對(duì)圖層進(jìn)行設(shè)置，根據(jù)用戶的要求調(diào)用相應(yīng)的繪圖程序。 (defun szgear() (setq a1 39。(40 160) a2 (list (+ b 60) 160) a0 (list (+ (car a2) 50) 160) a3 (list (+ (car a0) (/ da 2) 20) 160) a4 (list (car a0) (+ 160 (/ da 2) 20)) a5 (list (car a0) ( 160 (/ da 2) 20)) p0 (list 50 (+ 160 (+ (/ d1 2) t1 ))) p1 (list 50 (+ 160 (/ dg 2))) p2 (list 50 (+ 160 (/ d 2))) p3 (list 50 (+ 160 (/ ( da 3) 2))) p4 (list 53 (+ 160 (/ da 2))) p5 (list (+ 47 b) (+ 160 (/ da 2))) p6 (list (+ 50 b) (+ 160 (/ ( da 3) 2))) p7 (list (car p6) (+ 160 (/ d 2))) p8 (list (car p6) (+ 160 (/ dg 2))) p9 (list (car p6) (+ 160 (+ (/ d1 2) t1 ))) p10 (list (car p6) (+ 160 (+ (/ d1 2) 3))) p11 (list (+ 47 b) (+ 160 (/ d1 2))) p12 (list 53 (+ 160 (/ d1 2))) p13 (list 50 (+ 160 (+ (/ d1 2) 3))) p14 (list 50 ( 160 (+ (/ d1 2) 3))) p15 (list 53 ( 160 (/ d1 2))) p16 (list (+ 47 b) ( 160 (/ d1 2))) p17 (list (car p6) ( 160 (+ (/ d1 2) 3))) p18 (list (car p6) ( 160 (/ dg 2))) p19 (list (car p6) ( 160 (/ d 2))) p20 (list (+ 50 b) ( 160 (/ ( da 3) 2))) p21 (list (+ 47 b) ( 160 (/ da 2))) p22 (list 53 ( 160 (/ da 2))) p23 (list 50 ( 160 (/ ( da 3) 2))) p24 (list 50 ( 160 (/ d 2))) p25 (list 50 ( 160 (/ dg 2))) b0 (list (car a0) (+ (/ d1 2) 160 t1)) b1 (list (+ (car a0) (/ bj 2)) (+ (/ d1 2) 160 t1)) b2 (list (+ (car a0) (/ bj 2)) (+ (sqrt ( (* (/ d1 2) (/ d1 2)) (* (/ bj 2) (/ bj 2)))) 160)) b3 (list (car a0) ( 160 (/ d1 2))) b4 (list (car a0) ( 160 (+ (/ d1 2) 3))) b5 (list (+ (car a0) (/ bj 2)) (+ (sqrt ( (* (/ (+ d1 3) 2) (/ (+ d1 3) 2)) (* (/ bj 2) (/ bj 2)))) 160)) b6 (list (car a0) ( 160 (/ dg 2))) b7 (list (car a0) (+ 160 (/ dg 2))) b8 (list (car a0) ( 160 (/ d 2))) b9 (list (car a0) (+ 160 (/ d 2))) b10 (list (car a0) ( 160 (/ da 2))) b11 (list (car a0) (+ 160 (/ da 2))) ) 。畫中心線 (mand layer s 4 ) (mand line a1 a2 ) (mand line a0 a3 ) (mand line a4 a5 ) 。繪制實(shí)心直齒輪主視圖 (mand layer s 1 ) (mand line p1 p2 p3 p4 p5 p6 p7 p8 ) (mand layer s 4 ) (mand line p2 p7 ) (mand layer s 1 ) (mand line p1 p8 ) (setq ss1 (ssget L)) (mand line p8 p9 ) (setq ss2 (ssadd (entlast))) (mand line p9 p0 ) (setq ss3 (ssadd (entlast))) (mand line p0 p1 ) (setq ss4 (ssadd (entlast))) (mand layer s 6 ) (mand hatch ansi31 1 0 ss1 ss2 ss3 ss4 ) (mand layer s 1 ) (mand line p9 p10 p11 p12 p13 p0 ) (mand line p10 p17 ) (mand line p11 p16 ) (mand line p12 p15 ) (mand line p13 p14 ) (mand line p14 p15 ) (setq ss5 (ssget L)) (mand line p15 p16 ) (setq ss6 (ssadd (entlast))) (mand line p16 p17 ) (setq ss7 (ssadd (entlast))) (mand line p17 p18 ) (setq ss8 (ssadd (entlast))) (mand line p18 p25 ) (setq ss9 (ssadd (entlast))) (mand line p25 p14 ) (setq ss10 (ssadd (entlast))) (mand layer s 6 ) (mand hatch ansi31 1 0 ss5 ss6 ss7 ss8 ss9 ss10 ) (mand layer s 1 ) (mand line p18 p20 p21 p22 p23 p25 ) (mand layer s 4 ) (mand line p19 p24 )。繪制實(shí)心直齒輪側(cè)視圖 (mand _arc c a0 b8 b9 ) (mand layer s 1 ) (mand _arc c a0 b10 b11 ) (mand _arc c a0 b6 b7 ) (mand _arc c a0 b3 b2 ) (mand _arc c a0 b4 b5 ) (mand line b0 b1 b2 )。實(shí)心式直齒輪尺寸標(biāo)注 (mand layer s 2 ) (mand _dimlinear p1 p25 t %%c 39。(37 160) ) (mand _dimlinear p24 p2 t %%c 39。(30 160) ) (mand _dimlinear p22 p4 t %%c 39。(22 160) ) (mand _dimlinear b0 b1 (list (car a0) (+ (/ d1 2) 165 t1)) ) (mand _dimlinear p11 p16 t %%c (list (+ b 65) 160) ) (mand _dimlinear p23 p20 (list (+ 50 (/ b 2)) ( 150 (/ da 2))) ) (mand _dimlinear b0 b3 (list (+ (car a2) 40) 160) )。插入圖幅中其他要求 (mand insert 技術(shù)要求 (list (+ (car a0) (/ da 2) 15) 130) 1 1 0 ) (mand insert cuzao 39。(300 230) 0 ) (mand insert gc (list 50 ( 150 (/ da 2))) 1 1 0 ) (mand insert gcy1 (list (+ 50 b) ( 150 (/ da 2))) 1 1 0 ) (mand insert gcy (list (+ 40 b) (+ 160 (/ da 2))) 1 1 0 ) (mand insert jizhun 39。(41 157) 1 1 0 ) (mand insert cz (list 60 (+ 160 (/ da 2))) 1 1 0 ) (mand insert cz (list 60 ( 160 (/ d1 2))) 1 1 0 ) (mand zoom a ) )注釋：該段代碼是齒輪繪制程序，包括：實(shí)心式直齒輪（szgear）、實(shí)心式斜齒輪(sxgear)、腹板式直齒輪(fzgear)、腹板式斜齒輪(fxgear)、輪輻式直齒輪(lzgear)、輪輻式斜齒輪(lxgear)。因篇幅有限，無法將所有程序附上，故選用實(shí)心式直齒輪為例。 齒輪機(jī)構(gòu)的類型 按照一對(duì)齒輪在傳動(dòng)時(shí)的相對(duì)運(yùn)動(dòng)是平面運(yùn)動(dòng)還是空間運(yùn)動(dòng)，圓形齒輪機(jī)構(gòu)又可以分為平面齒輪機(jī)構(gòu)和空間齒輪機(jī)構(gòu)。平面齒輪機(jī)構(gòu)按傳遞運(yùn)動(dòng)的不同可分為傳遞平行軸運(yùn)動(dòng)的外嚙合齒輪機(jī)構(gòu)(按照齒形的不同分：直齒、斜齒、人字齒)、傳遞平行軸運(yùn)動(dòng)的內(nèi)嚙合齒輪機(jī)構(gòu)、齒輪齒條機(jī)構(gòu)、傳遞相交軸運(yùn)動(dòng)的外嚙合圓錐齒輪機(jī)構(gòu)(直齒、斜齒、曲齒)，傳遞相交軸運(yùn)動(dòng)的外嚙合齒輪機(jī)構(gòu)(斜齒，蝸桿渦輪)。 齒輪基本參數(shù)的選擇 齒輪的設(shè)計(jì)準(zhǔn)則 就齒輪材料的性能及熱處理工藝的不同，輪齒有較脆（如經(jīng)整體淬火、齒面硬度很高的鋼齒輪或鑄鐵齒輪）或較韌（如經(jīng)調(diào)質(zhì)、?；膬?yōu)質(zhì)碳鋼及合金鋼齒輪）。齒面有較硬（輪齒工作面的硬度大于350HBS或38HRC，并稱為硬齒面齒輪）或較軟（