Luận văn Thạc sỹ Bộ môn CNCTM LI CAM OAN Lun thc s: Xõy dng phn mm tớnh toỏn thit k gỏ gia cụng ct gt sn xut hng lot c hon thnh bi tỏc gi Nguyn Thnh Trung, hc viờn cao lp Cao hc Ch to mỏy, khúa 2009-2011, Vin C khớ-Trng i hc Bỏch khoa H Ni Tụi xin cam oan õy l cụng trỡnh nghiờn cu ca riờng tụi, kt qu nờu lun ny l hon ton trung thc v cha c cụng b bt k cụng trỡnh no khỏc H Ni, ngy 26 thỏng 07 nm 2011 Tỏc gi lun Nguyn Thnh Trung Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM LI CM N Tụi xin c by t s cm n chõn thnh ti thy giỏo hng dn PGS.TS.Trn Xuõn Vit Nhng gi ý v giỳp la chn ti lun tt nghip, s hng dn tn tỡnh, ng h thng xuyờn cng nh s ng viờn ca thy quỏ trỡnh thc hin l c s tụi hon thnh hon thnh lun ny Bờn cnh ú thy cng ó a nhng ỏnh giỏ tng kt sõu sc v gi m hng phỏt trin ca ti nghiờn cu tng lai cho tụi Tụi cng chõn thnh gi li cm n ti tt c cỏc thy, cụ giỏo ó tham gia ging dy tt c cỏc mụn hc ca chng trỡnh cao hc Cỏc thy, cụ ó cung cp cho tụi tt c nhng kin thc cn thit lm nờn tng cho tụi cú th hon thnh tt ni dung ca lun tt nghip ny Tỏc gi xin chõn thnh cm n s hng dn v giỳp rt tn tỡnh ca PGS.TS.Trn Xuõn Vit v cỏc thy, cụ b mụn Cụng ngh Ch to mỏyVin C khớ- Trng i hc Bỏch khoa H Ni ó giỳp tỏc gi hon thnh lun ny Cui cựng, tụi mun gi li cm n c bit ti nhng ngi thõn gia ỡnh, bn bố v ng nghip bi s quan tõm, ng viờn v ng h nhit tỡnh ca h i vi tụi sut thi gian thc hin ti ny Trong sut quỏ trỡnh thc hin lun khụng th trỏnh nhng sai sút, tỏc gi rt mong nhng ý kin úng gúp, phờ bỡnh ca cỏc thy cụ v cỏc bn ng nghip H Ni, Thỏng 07 nm 2011 Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM Nguyn Thnh Trung MC LC Trang LI CAM OAN LI CM N DANH MC CC CH VIT TT H THNG DANH MC CC BNG H THNG DANH MC CC HèNH V M U CHNG I: TNG QUAN V TO LP V NG DNG CC PHN MM MY TNH TRONG C KH CHNG II THIT K G GIA CễNG C KH 12 2.1 Trang b cụng ngh c khớ 12 2.1.1 Khỏi nim 12 2.1.2 Trang b cụng ngh v quỏ trỡnh sn xut 12 2.2 gỏ 13 2.2.1 Cụng dng ca gỏ 13 2.2.2 Cu to chung ca gỏ 14 2.2.3 Yờu cu i vi gỏ 14 2.3 Vt liu ch to cỏc chi tit c bn ca gỏ 15 2.4 Phõn loi gỏ 17 2.4.1 Phõn loi theo nhúm mỏy 18 2.4.2 Phõn loi theo mc chuyờn mụn hoỏ 18 2.5 Thit k gỏ 20 2.5.1 Phng phỏp thit k gỏ 20 2.5.2 Ti liu ban u v thit k gỏ 21 2.5.3 Thit k quy trỡnh cụng ngh: 21 2.5.4 Thit k gỏ 22 2.5.5 Nhng tớnh toỏn cn thit thit k gỏ 23 CHNG III PHN TCH C S D LIU V LA CHN PHN MM NG DNG XY DNG C S D LIU THIT K G 26 3.1 D liu cn thit: 27 3.1.1 D liu hỡnh nh 27 3.1.2 D liu chung 29 3.2 Phõn tớch c s d liu 29 3.2.1.Phõn tớch v la chn d liu hỡnh nh 29 3.2.1.Phõn tớch v la chn d liu cỏc thụng s: 31 Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM 3.3.Chn phn mm xõy dng c s d liu: 32 CHNG IV PHN NHểM CC CHI TIT CA G GIA CễNG C KH 42 4.1 Chi tit v c cu nh v 42 4.1.1 Chun l mt phng: 42 4.1.2.Chun l mt tr ngoi 42 4.1.3.Chun l mt tr 42 4.1.4 Chun l l tõm 43 4.2.Nhúm cỏc chi tit v c cu kp cht 43 4.2.1 Chi tit v c cu sinh lc 43 4.2.2 Chi tit, c cu truyn lc 43 4.3 Nhúm cỏc chi tit dn hng, so dao 44 4.3.1. gỏ phay 44 4.3.2. gỏ khoan 44 CHNG V XY DNG C S D LIU 3D BNG SOLIDWORKS S DNG TIN CH DESIGN TABLE 45 5.1 Xõy dng s khi, cu trỳc cõy menu cho cỏc chi tit gỏ thụng dng gia cụng c khớ 45 5.1.1 Chi tit v c cu nh v 45 5.1.2.Chi tit v c cu kp cht 47 5.1.3.Chi tit dn hng, so dao trờn gỏ gia cụng 49 5.2 Lp b nh cu to cho cỏc chi tit gỏ thụng dng gia cụng c khớ 49 5.2.1 Chi tit v c cu nh v 49 5.2.2.Chi tit v c cu kp cht 61 5.2.3.Chi tit dn hng, so dao : 81 CHNG VI: XY DNG GIAO DIN PHN MM V KT NI CSDL VI PHN MM 85 6.1.K thut lp trỡnh API: 85 6.2 Tng quan v lp trỡnh API ca SolidWorks: 86 6.3 Kt ni vi SolidWorks: 87 6.4 Thao tỏc vi th vin chi tit 89 6.4.1 Cu trỳc d liu: 90 6.4.2 Gii thut : 92 KT LUN V KIN NGH 96 TI LIU THAM KHO 98 PH LC 99 Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM DANH MC CC CH VIT TT CSDL :C s d liu VSXCK : n v sn xut c khớ CAD :Computer Aided Design VB :Visual Basic API :Application Programming Interface VBA :Visual Basic for Applications Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM H THNG DANH MC CC BNG Bng 2.1 Vt liu ch to cỏc chi tit thụng dng ca gỏ .17 Bng 2.2 Lng mũn n v ca mt s nh v .24 Bng 3.1 D liu v kớch thc ca cht tr v cht trỏm 29 Bng 5.1 nh chi tit v c cu nh v 61 Bng 5.2 nh cỏc chi tit sinh lc 65 Bng 5.3 chi tit, c cu truyn lc .80 Bng 5.4 Chi tit dn hng, so dao .84 H THNG DANH MC CC HèNH V Hỡnh 2.1 Quỏ trỡnh chun b cụng ngh gia cụng c khớ .22 Hỡnh 3.1 Hỡnh biu din chi tit cht trỏm 2D .27 Hỡnh 3.2 Hỡnh biu din chi tit cht trỏm 3D .28 Hỡnh 3.3.La chn c s d liu 2D 30 Hỡnh 3.4 La chn c s d liu 3D .31 Hỡnh 3.5 Tng hp la chn c s d liu cho phn mm 32 Hỡnh 3.6 Sn phm 3D thc hin bng ngụn ng AutoLisp 36 Hỡnh 3.7 Xõy dng phin t SolidWorks .38 Hỡnh 3.8 S dng cụng c Design Table SolidWorks 39 Hỡnh 3.9.Nhp cỏc thụng s ca chi tit vo bng Excel 40 Hỡnh 3.10 Kt qu sau hon thnh 40 Hỡnh 5.2.Chi tit v c cu sinh lc gỏ gia cụng 47 Hỡnh 5.3.Chi tit v c cu truyn lc gỏ gia cụng .49 Hỡnh 5.4.Chi tit dn hng, so dao trờn gỏ gia cụng phay, khoan 49 Hỡnh 6.1 Giao din la chn chi tit tiờu chun 90 Hỡnh 6.2 Gii thut tng quỏt .93 Hỡnh 6.3 Gii thut lu d liu 96 Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM M U t nc Vit Nam ca chỳng ta ang giai on cụng nghip hoỏ v hin i hoỏ Cỏc cụng ty, doanh nghip v cỏc n v sn xut c khớ (VSXCK) chu sc ộp ngy cng gia tng ca th trng cnh tranh Cỏc VSXCK mun tn ti v phỏt trin bt buc phi thc hin cỏc chin lc nõng cao nng sut, h giỏ thnh sn phm cng nh m bo cht lng sn phm theo yờu cu ngy cng cao ca ngi tiờu dựng Trong cỏc chin lc ú, song song vi vic trang b cỏc thit b hin i vi cụng ngh gia cụng tiờn tin v vic gim ti thiu thi gian, thỡ vic tin dn n t ng húa cụng tỏc thit k quy trỡnh cụng ngh v trang b cụng ngh gia cụng c khớ l yờu cu rt cn thit v bt buc quỏ trỡnh sn xut Cụng tỏc thit k quy trỡnh cụng ngh gia cụng c khớ trờn mỏy vi tớnh hin nc ta cũn khỏ mi Cha cú mt th vin thay i c kớch thc c th tr giỳp cho cụng tỏc thit k Hin gim ti thiu thi gian, n gin hoỏ v tin dn n t ng húa cụng tỏc thit k quy trỡnh cụng ngh gia cụng c khớ thỡ vic nghiờn cu to mt th vin a c s d liu (CSDL) phc v cho cụng tỏc thit k quy trỡnh cụng ngh gia cụng c khớ vi s ng dng cụng ngh thụng tin v cụng ngh c khớ l nhu cu cp thit Vy nờn, cun lun Xõy dng phn mm tớnh toỏn thit k gỏ gia cụng ct gt sn xut hng lot nghiờn cu cỏch khc phc hin trng ú Vi thi gian cú hn, lun trung vo xõy dng c s d liu v truy cp mỏy tớnh v: " Cỏc chi tit thụng dng ca gỏ gia cụng c khớ" C th l: - Xõy dng CSDL 3D cho cỏc chi tit gỏ gia cụng c khớ thụng dng - Xõy dng CSDL mt s mỏy gia cụng c khớ vi cỏc thụng s chớnh ca mỏy Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM Phn mm cú giao din ting Vit giỳp ngi dựng tra cu v s dng nhanh, tin dng quỏ trỡnh thit k Gúp phn gim thiu thi gian, n gin hoỏ cụng tỏc thit k qui trỡnh cụng ngh v trang b cụng ngh gia cụng c khớ Ni dung ca lun c trỡnh by thnh cỏc chng nh sau: Chng I: Tng quan v to lp v ng dng cỏc phn mm mỏy tớnh c khớ Chng II : Thit k gỏ gia cụng c khớ Chng III : Phõn tớch c s d liu v la chn phn mm ng dng xõy dng c s d liu thit k gỏ Chng IV: Phõn nhúm cỏc chi tit ca gỏ gia cụng c khớ Chng V : Xõy dng c s d liu 3d bng solidworks s dng tin ớch Design Table Chng VI: Xõy dng giao din phn mm v kt ni CSDL vi phn mm Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM CHNG I: TNG QUAN V TO LP V NG DNG CC PHN MM MY TNH TRONG C KH Ngy nay, vi s phỏt trin vt bc ca ngnh cụng ngh thụng tin, hu ht cỏc cụng ty xớ nghip u trang b cho lc lng k s thit k ca mỡnh v mỏy tớnh v phn mm thit k chuyờn dng ng thi ta cng thy mt xu hng ph bin khụng ch nc m c trờn th gii ú l vic s dng cỏc phn mm 3D phc v cụng vic thit k, ch to Bi nú mang li cho ngi dựng tớnh trc quand quan sỏt, iu chnh, ngoi nh nhng thnh tu to ln cỏc lnh vc mỏy tớnh, toỏn hc, Nhng cụng c phn mm ny ngy cng úng gúp ln gim bt thi gian tớnh toỏn t ý tng n a vo sn xut sn phm, ng thi ti u húa cỏc quỏ trỡnh ny Trờn th trng hin cú rt nhiu phn mm 3D ca cỏc hóng khỏc nh: - CATIA l h thng CAD/CAM/CAE 3D hon chnh v rt mnh hin nay, hóng Dassault Systems phỏt trin CATIA cú kh nng gii quyt hng lot cỏc bi toỏn ln nhiu lnh vc khỏc nh: xõy dng, c khớ, t ng húa, cụng nghip ụ tụ, tu thy v cao hn l cụng nghip hng khụng Nú gii quyt cụng vic mt cỏch trit , t khõu thit k mụ hỡnh CAD (Computer Aided Design), n khõu sn xut da trờn c s CAM (Computer Aided Manufacturing), kh nng phõn tớch tớnh toỏn, ti u húa li gii da trờn chc nng CAE(Computer Aid Engineering) ca phn mm CATIA - Unigraphics NX c phỏt trin bi Siemens PLM Software ca on Siemens Unigraphics NX6 l mt tng th cỏc gii phỏp CAD/CAM/CAE linh hot, ti u, ng b, mnh m Thờm vo vic mua t I-DEAS (mt t i CAD/CAM) giỳp cho unigraphics NX t mt phn mn sinh sau mun ú lờn thnh i gia s mt lnh vc CAD/CAM - Solidworks: õy l mt nhng sn phm ni ting ca hóng Dassault systems, bờn cnh mt sn phm ni ting khỏc ca hóng ny l Catia Nguyễn Thành Trung Hà Nội Tr-ờng ĐH Bách khoa Luận văn Thạc sỹ Bộ môn CNCTM Phn mm ny cú u im l giao din p, thõn thin, kh nng thit k nhanh hn cỏc phn mm khỏc rt nhiu nh vo s xp xp v b trớ cỏc toolbar mt cỏch cú h thng v hp lý Phn mm ny khụng cú nhiu modul nh Catia hay unigraphics l nhng phn mm ln thit k nhiu lnh vc nh ụ tụ, hng khụng, in t, Solidworks ch yu c dng c khớ chớnh xỏc, in t, ụ tụ, thit k c khớ, to khuụn, thit k kim loi tm Núi chung, SolidWorks l mt phn mm hng trung nhng hin chng trỡnh o to cng nh sn xut va v nh nú ang c s dng khỏ rng rói Bờn cnh ú, mt nhng xu hng ó, ang v s cũn c phỏt trin rt mnh tng lai ú l ngnh t ng húa Trong ú cú th núi t ng húa quỏ trỡnh thit k l mt nhng quỏ trỡnh khú v phc nht nc ta, chỳng ta cha cú nhõn lc u t xõy dng v phỏt trin phn mm thit k ln, vỡ nhu cu thc t nờn nhiu n v thit k v o to ó t xõy dng cỏc phn mm t ng hoỏ thit k phc v cho mỡnh Mt s ú l Vin c khớ nng lng v m ó nghiờn cu xõy dng b phn mm cụng c t ng x lý cỏc chi tit mỏy thụng dng, phc v cụng tỏc thit k v ch to cỏc sn phm c khớ; cỏc k s ca Khataco Khỏnh ho cng ó xõy dng t ng v cỏc chi tit mỏy c tớch hp trờn phn mm AutoCAD, chng trỡnh c xõy dng bng ngụn ng AutoLISP; th vin cỏc chi tit c khớ tin s Nguyn Hu Lc xõy dng, c vit bng ngụn ng AutoLISP v c tớch hp trờn phm mm AutoCAD , Cụng ty phn mm t ng thit k (CADPro)cng ó cú nhng phn mm thng mi t ng hoỏ thit k, nhiờn cha c ng dng rng rói giỏ thnh cũn khỏ cao Xut phỏt t nhn thc trờn v gii hn v thi gian ginh thc hin lun thc s, ni dung ca lun ny cú trng tõm l nghiờn cu ng dng cỏc phn mm SolidWorks2011, Visual Basic 2008 to lp h c s d liu Nguyễn Thành Trung khoa Hà Nội 10 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM Chi tit kp cht Cam lch tõm trũn N/A \Data\Parts\SolidWorks Part\PNo1.SLDPRT Bng 8.41-S tay cụng ngh ch to mỏy 2, NXB KHKT 2005 [2] Cam lch tõm trũn loi Chi tit kp cht Cam lch tõm trũn N/A \Data\Parts\SolidWorks Part\PNo2.SLDPRT Bng 8.41-S tay cụng ngh ch to mỏy 2, NXB KHKT 2005 [3] Cc kp hỡnh thc th loi Chi tit kp cht Cc kp hỡnh thc th N/A \Data\Parts\SolidWorks Part\PNo3.SLDPRT Bng 8.36-S tay cụng ngh ch to mỏy 2, NXB KHKT 2005 [4] Nhng lu ý, ghi chỳ cho cỏc dũng s c bt u bng du chm phy ;; 6.4.2 Gii thut : Hỡnh di l gii thut tng quỏt thc hin vic xut mt tin 3D ca chi tit da trờn cỏc s liu u vo m ngi dựng nhp Nguyễn Thành Trung khoa Hà Nội 92 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM Hỡnh 6.2 Gii thut tng quỏt V giao din ca phn la chn chi tit ta ó trỡnh by mc 6.4 (cng nh Hỡnh 6.1) Quỏ trỡnh thc hin c miờu t mt cỏch chi tit di: Bt u : c danh sỏch cỏc chi tit hin cú v ti lờn vựng la chn chi tit c thụng tin t tin d liu vo mng gl_Part() Vi mi phn t gl_Part(), thờm tờn chi tit v nhúm chi tit vo TreeView (hm AddNode(NodeName,TreeView)) Tỡm kim d liu cho chi tit: d liu u vo: tờn chi tit Duyt qua mng gl_Part() tỡm kim d liu cho chi tit Private Sub frmPartSelection_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 'c thụng tin v cỏc chi tit nh v v dn hng CSDL Nguyễn Thành Trung khoa Hà Nội 93 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM Dim sDataFile As String = Application.StartupPath & FigGuideLib Dim dtObj As DatFile.DatFile = New DatFile.DatFile(sDataFile) Dim PartID() As String = dtObj.ReadKeyList() If PartID Is Nothing Then Exit Sub ReDim gl_Part(0 To PartID.Length - 1) Dim s() As String = Nothing For i = To PartID.Length - s = dtObj.ReadKey(PartID(i)) With gl_Part(i) nID = PartID(i) sName = s(0) sGroupName = s(1) sSubGroupName = s(2) s2DFile = s(3) s3DFile = s(4) sRef = s(5) End With Next 'Cp nht treeview Dim sTemp As String = "" For i = To gl_Part.Length - If gl_Part(i).sSubGroupName "N/A" Then sTemp = gl_Part(i).sGroupName & "\" & gl_Part(i).sSubGroupName & "\" & gl_Part(i).sName Else sTemp = gl_Part(i).sGroupName & "\" & gl_Part(i).sName End If AddNode(sTemp, TreeView1) Next RadioButton1.Checked = True 'Dn dp CSDL 'If Not gl_Part Is Nothing Then 'Dim File3D(gl_Part.Length - 1) As String ' Dim File2D(gl_Part.Length - 1) As String 'For i = To gl_Part.Length - ' File2D(i) = Application.StartupPath & gl_Part(i).s2DFile ' File3D(i) = Application.StartupPath & gl_Part(i).s3DFile ' Next ' CleanDataBase(File3D, File2D) ' End If End Sub Hin th d liu lờn giao din: bao gm cỏc bc Ti lờn minh 2D Ti lờn minh 3D c d liu v cỏc kớch thc ca chi tit Private Sub DisplayPart() Nguyễn Thành Trung khoa Hà Nội 94 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM 'Kim tra d liu u vo Dim currentNode As TreeNode = TreeView1.SelectedNode If currentNode Is Nothing Then Exit Sub If currentNode.Nodes.Count > Then Exit Sub End If If Me.Text.Contains(currentNode.Text) = True Then Exit Sub 'Kim tra xem cú tỡm thy d liu hay khụng? Dim found As Integer = PosInPartArr(currentNode.Text, 1) If found = -1 Then Exit Sub Me.Text = "Thit k chi tit - " & currentNode.Text p = ProgressWaitForm.ShowProgress(Me) Me.Cursor = Cursors.WaitCursor p.UpdateProgress(10, "Tỡm kim CSDL") 'Tỡm kim d liu ca tin If gl_Part(found).s2DFile "N/A" Then s2DFile = Application.StartupPath & gl_Part(found).s2DFile Else s2DFile = "N/A" End If s3DFile = Application.StartupPath & gl_Part(found).s3DFile 'Ti hỡnh nh 2D If File.Exists(s2DFile) = True Then Try p.UpdateProgress(25, "Ti hỡnh nh chi tit") PictureBox1.Image = Image.FromFile(s2DFile) Catch ex As Exception MsgBox(ex.Message) End Try Else PictureBox1.Image = Nothing End If 'Ti hỡnh nh 3D If File.Exists(s3DFile) = True Then 'on mó copy file gc sang tin tm thi 'If File.Exists(Application.StartupPath & "\" & Path.GetFileName(s3DFile)) = False Then 'File.Copy(s3DFile, Application.StartupPath & "\" & Path.GetFileName(s3DFile), True) 'End If 's3DFile = Application.StartupPath & "\" & Path.GetFileName(s3DFile) ' While File.Exists(s3DFile) = False 'Threading.Thread.Sleep(100) ' End While p.UpdateProgress(45, "Cp nht mụ hỡnh 3D chi tit") axApp.OpenDoc(s3DFile, False, False, True, "") 'c danh sỏch cỏc cu hỡnh v load lờn LstView ConnectSldWorks() Else p.UpdateProgress(100, "Khụng tỡm thy kt qu no") Nguyễn Thành Trung khoa Hà Nội 95 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM p.CloseProgress() Me.Cursor = Cursors.Default End If End Sub Lu d liu : gii thut c mụ t nh hỡnh bờn Ngoi ra, c s d liu ca chi tit c thit k m, cho phộp ngi dựng cú th thờm vo chi tit mi hoc chnh sa thụng tin ca chi tit c Hỡnh 6.3 Gii thut lu d liu KT LUN V KIN NGH ti Xõy dng phn mm tớnh toỏn thit k gỏ gia cụng ct gt sn xut hng lot ó lp c c s d liu ng 3D v xõy dng c mụ un tra cu thụng s ca mt s mỏy gia cụng c khớ thụng dng Chng trỡnh ny l mt cng c tr giỳp c lc cho cỏc k s c khớ Ch to mỏy vic tra cu d liu, tớnh toỏn v lp bn v thit k quy trỡnh cụng ngh Nguyễn Thành Trung khoa Hà Nội 96 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM v trang b cng ngh gia cụng cỏc sn phm c khớ Ngoi cng to iu kin thun li cho cỏc sinh viờn c khớ cỏc trng cao ng, i hc tham kho thit k ỏn cụng ngh ch to mỏy Chng trỡnh ny l mt nhng phn mm ng dng tin hc vic t ng thit k cỏc chi tit mỏy m tỏc gi lun ó v ang lp, nhm mc ớch t ng hoỏ c nhiu nht cho cụng tỏc thit k v ch to cỏc sn phm c khớ, phc v cho nghnh cụng nghip Ch to mỏy Th vin gỏ gia cụng c khớ giỳp cho vic tra cu nhanh, ng dng vic t ng hoỏ thit k c khớ l mt chng trỡnh ln, ũi hi cụng sc v trớ tu ca th v cn c thc hin thi gian di Vi thi gian thc hin lun cú hn nờn khụng th trỏnh nhng thiu sút, v li tt c nhng gỡ ó lm c ch l kt qu bc u Do ú cũn nhng cn nghiờn cu v hon chnh cng nh cn phỏt trin tip theo ngh cỏc b mụn chuyờn ngnh o to Cụng ngh Ch to mỏy, Vin C khớ, trng i hc bỏch khoa H Ni tip tc cho nghiờn cu v hon chnh nhng ni dung sau: - Tip tc nghiờn cu v thờm vo c s d liu nhng gỏ chuyờn dựng trờn mỏy ct kim loi nng thụng thng - B sung thờm cỏc d liu v mỏy cng c, dng c ct phc v cho vic thit k quy trỡnh cụng ngh v gỏ - Tớch hp thờm phn tra cu ch ct vo phn mm, bi vỡ quỏ trỡnh thit k quy trỡnh cụng ngh cú th núi cỏc phn tra cu gm: cỏc b phn xõy dng gỏ ( nh v, kp cht, so dao ); mỏy; dao v ch ct - Tip tc nghiờn cu c s d liu v nhng gỏ chuyờn dựng, trang b cụng ngh dựng trờn dõy chuyn sn xut gia cụng linh hot v t ng húa (FMS) vi cỏc mỏy gia cụng CNC, robot cụng nghip - Sau hon thnh phn mm tra cu cỏc thụng s cn thit cn dựng thit k quy trỡnh cụng ngh ( Mỏy, dao, nh v, kp cht, c so dao ) ngi lp trỡnh nờn nghiờn cu thờm v thit k quy trỡnh gia cụng cỏc chi tit in hỡnh Nguyễn Thành Trung khoa Hà Nội 97 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM c bit l vic tỡm cỏch mó húa v nhn bit cỏc dng chi tit (nh vo vic nhn bit cỏc dng b mt, chớnh xỏc ca chỳng vic ny hon ton lm c t phn mm 3D), sau ú a c ớt nht mt phng ỏn cụng ngh gia cụng chi tit ny - Cú phng ỏn u t nghiờn cu mt cỏch ng b xõy dng c s d liu gỏ gia cụng c khớ trờn mng phc v tra cu cú th ph bin rng rói cho nhiu i tng nhiu vựng khỏc trờn ton quc khai thỏc c s d liu ny phc v cho vic o to v sn xut - M rng i tng xut d liu nhiu nh dng khỏc ngoi SolidWorks TI LIU THAM KHO PGS H Vn Vui, Nguyn Ch Sỏng, Phan ng Phong S tay thit k c khớ, Nh xut bn khoa hc k thut - H Ni 2004 Nguyễn Thành Trung khoa Hà Nội 98 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM GS.TS Nguyn c Lc, PGS TS Lờ Vn Tin, PGS TS Ninh c Tn, PGS TS Trn Xuõn Vit S tay cụng ngh ch to mỏy Nh xut bn khoa hc k thut-H Ni 2006 H Vit Bỡnh, Lờ ang Honh, Nguyn Ngc o (Khoa c khớ ch to mỏy, i hc s phm k thut Tp.HCM) gỏ gia cụng c khớ: Tin Phay - Bo Mi Nh xut bn Nng 2000 PGS PTS Lờ Vn Tin, GS TS trn Vn ch, PGS TS Trn Xuõn Vit gỏ c khớ v t ng húa Nh xut bn khoa hc k thut H Ni 1999 GS TS Trn Vn ch S tay v Atlas gỏ Nh xut bn khoa hc k thut H Ni 2000 GS TS Trn Vn ch Thit k ỏn cụng ngh ch to mỏy Nh xut bn khoa hc k thut H Ni 2007 Th.Nguyn Danh Phng Xõy dng chng trỡnh to c s d liu phc v cụng tỏc thit k cụng ngh gia cụng c khớ Lun Thc s - i hc Bỏch Khoa H Ni 2009 PH LC PH LC : LP THAO TC VI TP TIN D LIU õy l lp (class) dựng thao tỏc vi cỏc tin ini ó ci tin cú th lu d liu dng Unicode Nguyễn Thành Trung khoa Hà Nội 99 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM Tờn lp: DatFile Cỏc bin v thuc tớnh : Private sFileName As String Lu ng dn tin ini Public ReadOnly Property GetFileName() As String Tr v tờn tin ini Cỏc hm thc thi: Sub New (DataFileName as String) Hm to lp, truyn vo giỏ tr tin cho bin Me.sFileName Function ReadKey(KeyName As String) As String() c giỏ tr ca khúa KeyName Function ReadKeyList() As String() c danh sỏch cỏc khúa (tờn cỏc phn) cú tin Function DeleteKey(KeyName As String) As Boolean Xúa giỏ tr ca khúa KeyName, tr v True nu thnh cụng, False nu khụg thnh cụng hoc khúa khụng tn ti Function AppendKey(KeyName As String, Values() As String) As Boolean Thờm vo mt khúa, ú KeyName l tờn khúa, Values() l mng cha cỏc giỏ tr cn thờm Function ReplaceLines(OldLines() As String, NewLines() As String) As Boolean : thay th mt s dũng c bng cỏc dũng mi Function WritePartData(data As PART_DATA) As Boolean Ghi giỏ tr ca kiu d liu v thụng s chi tit Function WriteClampData(data As CLAMP_DATA) As Boolean Ghi giỏ tr ca kiu d liu v c cu kp cht Function GetFilesInFolder(FolderName As String, FileExtension As String) As String() : c danh sỏch cỏc tin cú phn m rng l [FileExtension] th mc [FolderName] Nguyễn Thành Trung khoa Hà Nội 100 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM PH LC 2: THUT TON LEVENSHTEIN Trong cỏc thut toỏn ca b mụn khoa hc mỏy tớnh, khỏi nim Khong cỏch Levenshtein th hin khong cỏch khỏc bit gia chui kớ t Khong cỏch Levenshtein gia chui S v chui T l s bc ớt nht bin chui S thnh chui T Nguyễn Thành Trung khoa Hà Nội 101 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM thụng qua phộp bin i : xoỏ kớ t; thờm kớ t v thay kớ t ny bng kớ t khỏc Khong cỏch ny c t theo tờn Vladimir Levenshtein, ngi ó khỏi nim ny vo nm 1965 Nú c s dng vic tớnh toỏn s ging v khỏc gia chui, nh chng trỡnh kim tra li chớnh t ca Microsoft Word Vớ d: Khong cỏch Levenshtein gia chui "kitten" v "sitting" l 3, vỡ phi dựng ớt nht ln bin i : kitten -> sitten (thay "k" bng "s") sitten -> sittin (thay "e" bng "i") sittin -> sitting (thờm kớ t "g") Cỏc bc ca thut toỏn Levenshtein: Bc : Khi to n l chiu di ca chui s, m l chiu di ca chui t Nu n = thỡ tr v m v kt thỳc thut toỏn Nu m = thỡ tr v n v kt thỳc thut toỏn Khi to mt ma trn gm [0 m] dũng v [0 n]ct Bc 2: Khi to dũng u tiờn mang giỏ tr t n n ; ct u tiờn mang giỏ tr t n m Bc 3: Duyt cỏc ký t cú chui s (t s(i) to s(n)) Bc 4: Duyt cỏc ký t cú chui t (t t(i) to t(n)) Bc : Nu s = s[t] thỡ t cost=0 Nu s s[t] thỡ t cost=1 Bc 6: Thit lp ụ d[i,j] ca ma trn bng ca: Giỏ tr ụ phớa trờn cng 1: d[j-1,j]+1 Giỏ tr ụ bờn trỏi cng 1: d[i,j-1]+1 Giỏ tr ụ trờn bờn trỏi cng cost: d[i-1,j-1]+ cost Sau hon thnh cỏc bc trờn, giỏ tr ca d[n,m] chớnh l khong cỏch Levenshtein ging ca chui s v t s bng = (1 LD(s,t))/ di ln nht ca (s,t) Nguyễn Thành Trung khoa Hà Nội 102 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM Bờn di l chng trỡnh minh thut toỏn Levenshtein : Function LD(ByVal s As String, ByVal t As String, ByVal UpcaseCompare As Boolean) As Integer If UpcaseCompare = True Then s = s.ToUpper t = t.ToUpper End If Dim s_i As String ' lu kớ t ca xõu s Dim t_j As String ' lu kớ t ca xõu t Dim cost As Integer ' cost Dim n As Integer = s.Length chiu di xõu s Dim m As Integer = t.Length chiu di xõu t Bc If n = Then Return m If m = Then Return n Dim d(0 To n, To m) As Integer For i = To n Bc d(i, 0) = i Next i For j = To m d(0, j) = j Next j For i = To n Bc s_i = s.Substring(i - 1, 1) For j = To m Bc t_j = t.Substring(j - 1, 1) If s_i = t_j Then Bc cost = Else Nguyễn Thành Trung khoa Hà Nội 103 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM cost = End If Bc d(i, j) = System.Math.Min(System.Math.Min((d((i - 1), j) + 1), (d(i, (j - 1)) + 1)), (d((i - 1), (j - 1)) + cost)) Next j Next i Return d(n, m) End Function PH LC 3: LP KT NI VI SOLIDWORKS Nguyễn Thành Trung khoa Hà Nội 104 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM Tờn lp : MySldWorks Cỏc bin v thuc tớnh Private swPartFileName As String Private swApp As SldWorks Private swModel As ModelDoc2 Public Structure PARAM Tờn tin SldWorks cn thao tỏc i tng hin thc húa API i tng i din cho bn SolidWorks Cu trỳc lu giỏ tr thụng s Dim ParamName As String Dim ParamValue As String End Structure Cỏc hm v th tc : Sub New(swFileName As String, ByVal Visible As Boolean) : hm to swFileName : tờn tin SolidWorks Visible : hin th mn hỡnh lm vic SolidWorks hay khụng? Function OpenDoc(filename As String) As Boolean : m tin SolidWorks cú ng dn l filename Function SelectConfigutation(ConfigurationName As String) As Boolean Thit lp cu hỡnh hin ti l cu hỡnh cú tờn l ConfigurationName Function CreateNewConfiguration(ConfName As String, Params() As String, Values() As String) As Boolean : to mt cu hỡnh mi bng cỏch thờm vo DesignTable, ú Params l mng tờn cỏc thụng s DesignTable, Values l mng cỏc giỏ tr ca nú Function GetConfigurationName() As String() : tr v danh sỏch tờn cỏc cu hỡnh hin cú tin Function GetConfigurationValue(ConfName As String) As PARAM() : tr v giỏ tr cỏc thụng s ca cu hỡnh cú tờn l ConfName Sub Save() : lu d liu ca tin hin ti m khụng úng tin Nguyễn Thành Trung khoa Hà Nội 105 Tr-ờng ĐH Bách Luận văn Thạc sỹ Bộ môn CNCTM Sub Close(ByVal CloseAll As Boolean) : úng ca s ang thao tỏc Nu CloseAll l true thỡ s úng tt c ca s lm vic, False thỡ s úng ca s lm vic hin thi Function RemoveConfiguration(ConfName As String) As Boolean : xúa cu hỡnh cú tờn ConfName danh sỏch cỏc cu hỡnh 10 Function SaveConfiguration(ConfName As String,bRemainAllConfiguration As Boolean) As Boolean : lu tin vi cu hỡnh ConfName Nu bRemainAllConfiguration l True thỡ hm s kớch hot cu hỡnh ConfName l cu hỡnh hin thi, nu t l False thỡ hm ny s xúa ht cỏc cu hỡnh cũn li, ch lu cu hỡnh ConfName Nguyễn Thành Trung khoa Hà Nội 106 Tr-ờng ĐH Bách ... lng cỏc gỏ chuyờn dựng, ú rỳt ngn thi gian chun b sn xut chuyn sang loi sn phm mi gỏ chuyờn mụn hoỏ c dựng ph bin sn xut hng v hng lot ln 2.4.2.4 gỏ chuyờn dựng gỏ chuyờn dựng la loi gỏ ch... theo yờu cu ngy cng cao ca ngi tiờu dựng Trong cỏc chin lc ú, song song vi vic trang b cỏc thit b hin i vi cụng ngh gia cụng tiờn tin v vic gim ti thiu thi gian, thỡ vic tin dn n t ng húa cụng... nh v b phn thay i B phn c nh l phn c s dựng cho mi chi tit gia cụng khỏc B phn thay i l nhng chi tit ca gỏ c dựng tu theo hỡnh dng v kớch thc ca chi tit gia cụng Nguyễn Thành Trung khoa Hà Nội