Mặt xoắn vít ứng dụng và tạo hình

bộ giáo dục đào tạo trờng đại học bách khoa hà nội - luận văn thạc sĩ khoa học Mặt xoắn vít ứng dụng tạo hình ngành : kỹ thuật 3898 Trần hòa Ngời hớng dẫn khoa học : PGS.TS Phan văn đồng Hà Nội 2009 LI CM N Vi tỡnh cm chõn thnh ca mỡnh tụi xin by t lũng bit n ti Lónh o trng, Vin o to sau i hc, Khoa C khớ, B mụn C s thit k mỏy v rụbụt -Trng i hc bỏch khoa H Ni Xin chõn thnh cm n Lónh o c quan ch qun Trng i hc s phm K thut Vinh v cỏc thy cụ giỏo ging dy hng dn tụi sut quỏ trỡnh hc tp, nghiờn cu nhm nõng cao trỡnh , ỏp ng ngy cng tt hn yờu cu nhim v c bit tụi xin chõn thnh cm n PGS.TS Phan Vn ng ó tn tỡnh giỳp tụi sut quỏ trỡnh thc hin hon thnh bn lun ny Xin chõn thnh cm n nhng tỡnh cm bn bố, ngi thõn ó ng viờn, giỳp to iu kin tt nht tụi hon thnh khúa hc Trong quỏ trỡnh thc hin lun tt nghip, bn thõn ó thc s n lc vi s giỳp tn tỡnh ca thy giỏo hng dn PGS.TS Phan Vn ng nờn ó tng hp c nhng ni dung cn thit ti liu tham kho, kt hp vi nhng kin thc ó c hc, ng dng vo ti c giao hon thnh ni dung t Tuy nhiờn trỡnh v thi gian cú hn cho nờn ni dung ca lun s khụng trỏnh c nhng thiu sút, hn ch Rt mong nhn c s quan tõm, gúp ý ca quý Thy, Cụ giỏo v cỏc bn ng nghip lun c hon chnh hn v cú hng khc phc nghiờn cu tip theo Xin chõn thnh cm n! H ni ngy 20 thỏng nm 2009 Trn Thanh Hũa LI CAM OAN Tụi xin cam oan ni dung ca lun cao hc khụng chộp ca tỏc gi khỏc m cỏ nhõn tham kho t cỏc ti liu liờn quan cú trớch dn v t tham quan thc tin hon thnh bn lun ny Cú gỡ sai sút tụi xin chu hon ton trỏch nhim theo quy ch Tỏc gi: Trn Thanh Hũa MC LC TT NI DUNG TRANG TRANG PH BèA LI NểI U 3 LI CAM OAN 4 Chng I: TRèNH BY TNG QUT V B MT XON VT- CC NG DNG I Lch s phỏt trin v hng nghiờn cu v b mt xon vớt I.1 Lch s phỏt trin v nghiờn cu b mt xon vớt I.2 Cỏc hng nghiờn cu v b mt xon vớt hin I.3 Gii thiu cỏc b mt xon vớt in hỡnh II ng dng ca b mt xon vớt 5 II.1.Trong nhúm kp cht II.2.Trong truyn ng II.3.Trong cỏc dng c ct 10 II.4.Trong cỏc mỏy múc cụng tỏc 10 Chng II:CC PHNG PHP CễNG NGH TO 11 HèNH B MT XON VT I Tin 11 II Cỏn 11 III Phay 12 IV Mi 12 V C rng 14 Chng III: HèNH HC CC B MT XON VT- Mễ 14 PHNG I Phng trỡnh b mt xon vớt 14 II.Thit din cỏc kiu xon vớt 19 III.Xõy dng b mt xon vớt 36 Chng IV: THIT K B MT NGUYấN DNG C 42 TO HèNH I Cỏc phng phỏp to hỡnh b mt vớt 42 I.1 Phng phỏp bao hỡnh 47 I.2 Phng phỏp phõn tớch tng hp chuyn ng 49 I.3 Phng phỏp tia vớt 51 I.4 Phng phỏp lỏt ct 53 I.5 Phng phỏp vộc t c trng tip xỳc 55 I.6 Phơng pháp bao hình động học 57 II Tớnh mt nguyờn dng c to hỡnh mt vớt 57 III To mt xon vớt bng kiu dng c n gin 65 Chng V: XC NH B MT XON VT ME BI PHAY 66 MI BNG DAO XUYN A TIT DIN TRềN I Gii thiu v mt xon vit me bi 66 II Thit lp phng trỡnh b mt vớt v dng c 68 II.1 Phng trỡnh dng c sang phng trỡnh chi tit 68 II.1 Phng trỡnh chi tit sang phng trỡnh dng c 72 KT LUN V KIN NGH 84 10 TI LIU THAM KHO 85 11 PH LC 86 TH T Hỡnh 1.1 Hỡnh 1.2 Hỡnh 1.3 Hỡnh 1.4 Hỡnh 1.5 Hỡnh 1.6 Hỡnh 1.7 Hỡnh 2.1 Hỡnh 2.2 Hỡnh 2.3 Hỡnh 2.4 Hỡnh 2.5 Hỡnh 3.1 Hỡnh 3.2 Hỡnh 3.3 Hỡnh 3.4 Hỡnh 3.5 Hỡnh 3.6 Hỡnh 3.7 Hỡnh 3.8 Hỡnh 3.9 Hỡnh 3.10 Hỡnh 3.11 Hỡnh 3.12 Hỡnh 3.13 Hỡnh 3.14 Hỡnh 3.15 Hỡnh 3.16 Hỡnh 3.17 Hỡnh 3.18 HèNH BIU DIN ng dng c cu kp ng dng truyn ng trc vớt- bỏnh vớt Vớt me bi Dng c ct Bm vớt ng dng bm vớt nhiu trc ng dng dn ng mỏy CNC S nguyờn lý tin b mt xon vớt S nguyờn lý cỏn ren vớt S nguyờn lý dao phay ngún phay mt xon vớt S nguyờn lý phay a phay b mt xon vớt S nguyờn lý mi b mt xon vớt Phng trỡnh b mt xon vớt Mt xon vớt Acsimet Thit din mt xon vớt Thit din mt xon vớt ct bi Q Thit din mt xon vớt cỏc giỏ tr khỏc Thit din mt xon vớt cỏc giỏ tr khỏc Thit din mt xon vớt cỏc giỏ tr khỏc Thit din convolute Thit din convolute cỏc giỏ tr k khac Thit din convolute cỏc giỏ tr k khac Thit din convolute cỏc giỏ tr k khac Thit din convolute cỏc giỏ tr k khac Mt vớt thõn khai Mt vớt lừm Mt vớt cung trũn Hỡnh minh mt vớt cung trũn Thit din mt vớt cung trũn Thit din cung trũn cỏc giỏ tr TRANG 10 11 11 12 13 14 15 16 16 17 18 19 20 22 24 25 27 28 31 31 32 32 32 34 34 37 40 40 40 44 Hỡnh 3.19 Hỡnh 4.1 Hỡnh 4.2 Hỡnh 4.3 Hỡnh 4.4 Hỡnh 4.5 Hỡnh 4.6 Hỡnh 4.7 Hỡnh 4.8 Hỡnh 4.9 Hỡnh 4.10 Hỡnh 5.1 Hỡnh 5.2 Hỡnh 5.3 Hỡnh 5.4 Thit din mt u chớnh L Phng phỏp bao hỡnh dng mt helicoit Phng phỏp bao hỡnh dng mt trũn xoay Phng phỏp bao hỡnh mt tr ng sinh S ng tớnh mt nguyờn dng c Vộc t c trng ca b xon B mt dng c kiu mt phng B mt dng c kiu mt tr trũn B mt dng c kiu mt nún B mt dng c kiu mt nún B mt dng c kiu mt xuyn Cỏc dng tit din vớt me bi S ng dao-chi tit dng xuyn a H ta dao dng xuyn a cung trũn H ta dao dng xuyn a cung trũn 47 56 57 57 60 63 67 69 69 71 72 75 76 76 76 LI NểI U Xut phỏt t thc t b mt xon vớt c s dng rt rng rói cỏc thit b v sn xut Thc t hin b mt xon vớt c s dng rng ri cỏc lnh vc cụng nghip nụng nghip, ti, thit b nghnh sn xut vt liu xõy dng ó cú nhiu nh khoa hc cng nh nhiu ti nghiờn cu, phm vi lun ny tỏc gi hng n : Kho sỏt hot ng ca cỏc b mt cú s dng b mt xon vớt, a cỏc tiờu chun hng dn thit k, s dng Vn to hỡnh b mt xon vớt cỏc iu kin khỏc vi cỏc cp chớnh xỏc khỏc t ú hỡnh thnh cỏc lnh vc nghiờn cu h thng v cỏc to hỡnh cỏc b mt xon vớt Trong vi xõy dng cỏc b mt xon vớt da trờn lý thuyt v i tip v n khp, mt lnh vc m nhiu tỏc gi nghiờn cu v t c nhiu thnh qu c gii húa v sn xut nh : tỏc gi Nguyn Xuõn lc, Nguyn Thin Phỳc, Bựi Xuõn Liờm, Phan Vn ng Trong cỏc phng phỏp to hỡnh ú tỏc gi la chn xõy dng mt b mt xon vớt in hỡnh- ú l mt xon vớt me bi Vi mt xon vớt ny c dung rt rng ri v ph bin c bit l dn ng ca mỏy CNC Trờn phng din ca lun tỏc gi xõy dng phng trỡnh ca dng c t ú xõy dng phng trỡnh ca chi tit c gia cụng bi dng c ú v ngc li T ú dng lờn biờn dng ca b mt chi tit v biờn dng ca b mt dng c 10 CHNG I: TRèNH BY TNG QUT V B MT XON VT-CC NG DNG I Lch s phỏt trin nghiờn cu v b mt xon vớt I.1 Lch s phỏt trin v nghiờn cu b mt xon vớt I.2 Cỏc hng nghiờn cu v phỏt trin nghiờn cu v b mt xon vớt hin Khi lý thuyt v nguyờn lý to hỡnh b mt xon vớt ó c hỡnh thnh v nghiờn cu, cng nh s a dng ng dng ca b mt xon vớt hin mi lnh vc ng dng cú nhng yờu cu v mt k thut khỏc thỡ hin hng nghiờn cu c bn trung vo mt s yờu cu: + Kho sỏt hot ng ca cỏc b mt cú s dng b mt xon vớt, a cỏc tiờu chun hng dn thit k, s dng + Vn to hỡnh b mt xon vớt cỏc iu kin khỏc vi cỏc cp chớnh xỏc khỏc t ú hỡnh thnh cỏc lnh vc nghiờn cu h thng v cỏc to hỡnh cỏc b mt xon vớt + Nõng cao kh nng cụng ngh gia cụng b mt xon vớt t c hiu qu cao s dng cng nh t yờu cu v k thut cng cao + Cỏc gii phỏp cụng ngh gia cụng b mt xon vớt I.3 Cỏc b mt xon vớt a Mt vớt acsimet b Mt vớt Convolut c Mt vớt thõn khai d Mt vớt lừm e Mt vớt cung trũn II ng dng ca b mt xon vớt II.1 Trong nhúm kp cht Hỡnh 1.1 11 II.2 Trong truyn ng a Trc vớt- Bỏnh vớt Hỡnh 1.2 b Vớt me bi Hỡnh 1.3 90 PH LC Ph lc : chng trỡnh v Helicoit convolut ;;; CONVOLUTHELICOIT.LSP ;;; -; (defun myerror (s) ; If an error (such as CTRL-C) occurs ; while this command is active (if (/= s "Function cancelled") (princ (strcat "\nError: " s)) ) (setvar "cmdecho" ocmd) ; Restore saved modes (setvar "blipmode" oblp) (setq *error* olderr) ; Restore old *error* handler (princ) ) (defun cspiral (ntimes bpoint hfac lppass strad vfac / ang dist ainc dhinc dvinc circle dv) (setvar "blipmode" 0) ; turn blipmode off (setvar "cmdecho" 0) ; turn cmdecho off (setvar "surftab1" 200) (setvar "surftab2" 200) (setq circle (* 3.141596235 2)) (setq ainc (/ circle lppass)) (setq dhinc (/ hfac lppass)) 91 (if vfac (setq dvinc (/ vfac lppass))) (setq ang 0.0) (if vfac (setq dist strad dv 0.0) (setq dist 0.0) ) (if vfac (command "3dpoly") ; start spiral (command "pline" bpoint) ; start spiral from base point and ) (repeat ntimes (repeat lppass (setq (polar bpoint (setq ang (+ ang ainc)) (setq dist (+ dist dhinc)) ) ) (if vfac (setq (list (car tp) (cadr tp) (+ dv (caddr tp))) dv (+ dv dvinc) ) ) (command tp) (setq ch tp) ; continue to the next point ) ) (command "") (princ) ; until done 92 ) ;;; ;;; Interactive spiral generation ;;; (defun C:SPIRAL (/ olderr ocmd oblp nt bp cf lp) (setq olderr *error* *error* myerror) (setq ocmd (getvar "cmdecho")) (setq oblp (getvar "blipmode")) (setvar "cmdecho" 0) (initget 1) ; bp must not be null (setq bp (getpoint "\nCenter point: ")) (initget 7) ; nt must not be zero, neg, or null (setq nt (getint "\nNumber of rotations: ")) (initget 3) ; cf must not be zero, or null (setq cf (getdist "\nGrowth per rotation: ")) (initget 6) ; lp must not be zero or neg (setq lp (getint "\nPoints per rotation : ")) (cond ((null lp) (setq lp 30))) (cspiral nt bp cf lp nil nil) (setvar "cmdecho" ocmd) (setvar "blipmode" oblp) (setq *error* olderr) (princ) ; Restore old *error* handler 93 ) ;;; ;;; Interactive spiral generation ;;; (defun C:CONHeli (/ olderr ocmd oblp nt bp hg vg sr lp) (setq olderr *error* *error* myerror) (setq ocmd (getvar "cmdecho")) (setq oblp (getvar "blipmode")) (setvar "cmdecho" 0) (initget 1) ; bp must not be null (setq bp '(0 0)) (initget 7) : nt must not be zero, neg, or null (setq nt (getint "\nNumber of rotations: ")) (initget 7) ; sr must not be zero, neg, or null (setq sr (getdist bp "\nMax radius: ")) (setq sr1 (getdist bp "\nMin radius: ")) (setq Lang (getANGLE "\Enter angle of line about xoy: ")) (initget 1) ; cf must not be zero, or null (setq hg (getdist "\nHorizontal growth per rotation: ")) (initget 3) ; cf must not be zero, or null (setq vg (getdist "\nVertical growth per rotation: ")) (initget 6) ; lp must not be zero or neg (setq lp (getint "\nPoints per rotation : ")) (cond ((null lp) (setq lp 30))) 94 (setq ch '(0 0)) (cspiral nt bp hg lp sr1 vg) (setq ch1 ch) (setvar "cmdecho" ocmd) (setvar "blipmode" oblp) (setq *error* olderr) ; Restore old *error* handler (command "ucsicon" "OR") (setq h (* (sqrt (- (* sr sr) (* sr1 sr1))) (/ (sin lang) (cos lang)))) (command "Line" bp (list (car bp) (cadr bp) (+ (* H) (caddr bp))) "") ; (setq sr sr1) (setq bp (list (car bp) (cadr bp) (+ H (caddr bp)))) (command "ucs" "3" '(0 0) (list sr (sqrt (- (* sr sr) (* sr1 sr1))) 0.0) "") (cspiral nt bp hg lp sr vg) (setq ch2 ch) (setq ch0 (trans ch1 1)) (command "vpoint" '(1 -1 1)) (command "zoom" "a") (command "rulesurf" ch0 ch2) (command "UCS" "") (princ) ) ;;; -; (princ "\n\t C:CONheli loaded ") (princ) Ph lc 3: Chng trỡnh v Helicoit thõn khai 95 ;;; HELICOIT than khai.LSP ;;; ; (defun myerror (s) ; If an error (such as CTRL-C) occurs ; while this command is active (if (/= s "Function cancelled") (princ (strcat "\nError: " s)) ) (setvar "cmdecho" ocmd) ; Restore saved modes (setvar "blipmode" oblp) (setq *error* olderr) ; Restore old *error* handler (princ) ) (defun cspiral (ntimes bpoint hfac lppass strad vfac / ang dist ainc dhinc dvinc circle dv) (setvar "blipmode" 0) ; turn blipmode off (setvar "cmdecho" 0) ; turn cmdecho off (setvar "surftab1" 200) (setvar "surftab2" 200) (setq circle (* 3.141596235 2)) (setq ainc (/ circle lppass)) (setq dhinc (/ hfac lppass)) (if vfac (setq dvinc (/ vfac lppass))) (setq ang 0.0) (if vfac 96 (setq dist strad dv 0.0) (setq dist 0.0) ) (if vfac (command "3dpoly") ; start spiral (command "pline" bpoint) ; start spiral from base point and ) (repeat ntimes (repeat lppass (setq (polar bpoint (setq ang (+ ang ainc)) (setq dist (+ dist dhinc)) ) ) (if vfac (setq (list (car tp) (cadr tp) (+ dv (caddr tp))) dv (+ dv dvinc) ) ) (command tp) (setq ch tp) ; continue to the next point ) ) (command "") (princ) ) ;;; ; until done 97 ;;; Interactive spiral generation ;;; (defun C:SPIRAL (/ olderr ocmd oblp nt bp cf lp) (setq olderr *error* *error* myerror) (setq ocmd (getvar "cmdecho")) (setq oblp (getvar "blipmode")) (setvar "cmdecho" 0) (initget 1) ; bp must not be null (setq bp (getpoint "\nCenter point: ")) (initget 7) ; nt must not be zero, neg, or null (setq nt (getint "\nNumber of rotations: ")) (initget 3) ; cf must not be zero, or null (setq cf (getdist "\nGrowth per rotation: ")) (initget 6) ; lp must not be zero or neg (setq lp (getint "\nPoints per rotation : ")) (cond ((null lp) (setq lp 30))) (cspiral nt bp cf lp nil nil) (setvar "cmdecho" ocmd) (setvar "blipmode" oblp) (setq *error* olderr) (princ) ) ;;; ; Restore old *error* handler 98 ;;; Interactive spiral generation ;;; (defun C:tkHeli (/ olderr ocmd oblp nt bp hg vg sr lp) (setq olderr *error* *error* myerror) (setq ocmd (getvar "cmdecho")) (setq oblp (getvar "blipmode")) (setvar "cmdecho" 0) (initget 1) ; bp must not be null (setq bp '(0 0)) (initget 7) : nt must not be zero, neg, or null (setq nt (getint "\nNumber of rotations: ")) (initget 7) ; sr must not be zero, neg, or null (setq sr (getdist bp "\nMax radius: ")) (setq sr1 (getdist bp "\nMin radius: ")) (setq Lang (getANGLE "\Enter angle of line about xoy: ")) (initget 1) ; cf must not be zero, or null (setq hg (getdist "\nHorizontal growth per rotation: ")) (initget 3) ; cf must not be zero, or null (setq vg (* (sqrt (- (* sr sr) (* sr1 sr1)) (/ (sin lang) (cos lang)))) (initget 6) ; lp must not be zero or neg (setq lp (getint "\nPoints per rotation : ")) (cond ((null lp) (setq lp 30))) (setq ch '(0 0)) (cspiral nt bp hg lp sr1 vg) (setq ch1 ch) 99 (setvar "cmdecho" ocmd) (setvar "blipmode" oblp) (setq *error* olderr) ; Restore old *error* handler (command "ucsicon" "OR") (setq h (* (sqrt (- (* sr sr) (* sr1 sr1))) (/ (sin lang) (cos lang)))) (command "Line" bp (list (car bp) (cadr bp) (+ (* H) (caddr bp))) "") ; (setq sr sr1) (setq bp (list (car bp) (cadr bp) (+ H (caddr bp)))) (command "ucs" "3" '(0 0) (list sr (sqrt (- (* sr sr) (* sr1 sr1))) 0.0) "") (cspiral nt bp hg lp sr vg) (setq ch2 ch) (setq ch0 (trans ch1 1)) (command "vpoint" '(1 -1 1)) (command "zoom" "a") (command "rulesurf" ch0 ch2) (command "UCS" "") (princ) ) ;;; -; (princ "\n\t C:tkHeli loaded ") (princ) Ph lc 4: Chng trỡnh v Helicoit cung trũn ;;;ARCHelicoit.lsp (defun cspiral (ntimes bpoint lppass strad vfac 100 / ang dist ainc dvinc circle dv pt1) (setvar "blipmode" 0) ; turn blipmode off (setvar "cmdecho" 0) ; turn cmdecho off (setvar "surftab1" 200) (setvar "surftab2" 200) (setq circle (* 3.141596235 2)) (setq ainc (/ circle lppass)) (setq dvinc (/ vfac lppass)) (setq dist strad dv dvinc) (setq ang 0.0) (setq pt1 (polar bpoint 0.0 dist)) (command "3dpoly" pt1) (repeat ntimes (repeat lppass (setq (polar bpoint (setq ang (+ ang ainc)) dist) ) (setq (list (car tp) (cadr tp) (+ dv (caddr tp))) dv (+ dv dvinc) ) (command tp) (setq ch tp) ; continue to the next point ) ) (command "") (princ) ) ; until done 101 (defun c:ARCheli() (setq p0 '(0 0)) (setq R (getreal "\nEnter Radius of center:")) (setq (getreal "\nEnter Radius of ARC:")) (setq tv (getreal "\nEnter step per rotation:")) (setq n 1) (setq lp 100) (setvar "CMDECHO" 0) (command "UCSICON" "OR") (command "color" "red") (command "vpoint" '(1 -1 1)) (setq x R) (setq y 0) (setq z 0) (setq pt (list x y z)) (command "arc" "C" PT (POLAR PT 0.0 ra) (POLAR PT PI ra)) (setq ent1(entlast)) (setq ss1(ssadd)) (ssadd ent1 ss1) (rotate3d SS1 "" '(0 0) '(1 0) 90.0) (repeat lp (command "copy" "I" "" '(0 0) '(0 0)) (command "move" "L" "" '(0 0) (list 0 (/ tv lp))) (setq ent(entlast)) (setq ss(ssadd)) (ssadd ent ss) 102 (rotate3d SS "" '(0 0) '(0 1) (/ 360.0 lp)) (setq ss nil) (command "REDRAW") ) (cspiral n p0 lp (+ R ra) tv) (cspiral n p0 lp R tv) (cspiral n p0 lp (- R ra) tv) (command "zoom" "all") ) (princ "\n\t C:ARCheli loaded ") (princ) Ph lc 5: Tớnh dng c gia cụng mt Helicoit (defun vedt (A r p gma / Xd Yd Zd i j k m u circle step pt) (SETVAR "SURFTAB1" 20) (SETVAR "SURFTAB2" 20) (SETVAR "LUPREC" 8) (SETVAR "AUPREC" 8) (command "viewres" "y" 20000) (COMMAND "UCSICON" "or") (COMMAND "COLOR" 2) (COMMAND "PLINE" '(0 0) '(0 30) "W" '(0 32) "" ) (COMMAND "PLINE" '(0 0) '(30 0) "W" '(32 0) "" ) (COMMAND "VPOINT" '(1 -1 1)) (COMMAND "UCS" "3" '(0 0) '(0 1) '(0 0)) (COMMAND "PLINE" '(0 0) '(30 0) "W" '(32 0) "" ) (COMMAND "COLOR" 7) (COMMAND "ARC" "C" '(20 10) '(20 10 10) '(20 -10 10)) 103 (COMMAND "LINE" '(20 10) '(20 -10) "") (COMMAND "ZOOM" "c" '(0 0) 60) (COMMAND "TABSURF" '(20 -10 10) '(20 10)) (COMMAND "UCS" "W") (command "ucs" "z" (/ (* gma 180) pi)) (COMMAND "UCS" "3" '(0 0) '(0 1) '(1 0)) (COMMAND "UCS" "OR" '(20 0)) (COMMAND "COLOR" 1) (setq circle (* 3.141596235 2)) (setq step (/ circle 200)) (setq u pi) (command "3dpoly") (repeat 201 (SETQ Xd (* r (cosu)) Zd (* r (sinu))) (setq i (/ (sinu) (cosu))) (setq j (* (* (+ Xd A) (sin gma)) -1) ) (setq k (* p (cos gma))) (setq m (* Zd (sin gma))) (setq Yd (/ (+ (* i (+ j k)) m) (cos gma))) (setq pt (list Xd Yd Zd)) (command pt) (setq u (+ u step)) ) (command) (command "redraw") (SETVAR "SURFTAB1" 10) 104 (SETVAR "SURFTAB2" 10) (command "hide") ) (defun Nhapdl() (setq KCTruc (getdist "\nNhap khoang cach truc A:")) (setq BKDao (getdist "\nNhap ban kinh dao Rd:")) (setq Buoc (getdist "\nNhap buoc xoan p:")) (setq Goc (getangle "\nNhap goc gamma:")) ) (defun thaygoc() (setq Goc (getangle "\nNhap goc gamma:")) (setq (/ (* goc 180) pi)) (setq LA (rtos 0)) (command "LAYER" "M" LA "OFF" "*" "y" "") (command "layer" "on" LA "") (command "ucs" "W") (command "ucs" "z" (/ (* goc 180) pi)) (vedt kctruc bkdao buoc goc) (command "layer" "on" "*" "") ) (defun ve() (nhapdl) (vedt KCTruc BKDao Buoc Goc) ) (princ "\n\t DTRU loaded ") (princ) ... trờn mỏy phay nng hoc mỏy phay CNC - S dng dng c ct l dao phay a hoc dao phay ngún - Phụi thc hin chuyn ng quay trũn, bn mỏy chuyn ng dc - u dao chuyn ng quay trũn -Trờn hỡnh v minh quỏ trỡnh gia... I Tin Hỡnh 2.1 - Phụi c gỏ trờn mõm cp v mt u c chng tõm - Chi tit quay trũn, dao chuyn ng tnh tin ngang v c gỏ trờn bn dao II Cỏn Phụi Bn Ren S S Bn Ren2 Hỡnh 2.2 17 III Phay - Tin hnh gia cụng... ngún Hỡnh a- Thc hin gia cụng trờn dao phay ngún Dng c dao phay ngún Phụi Hỡnh 2.3 18 Dng c dao phay a Phụi Hỡnh 2.4 IV Mi - Tin hnh gia cụng trờn mỏy phay mi nng hoc mỏy mi CNC - S dng dng