bảng từ viết tắt - NC (Numerical Control): Điều khiển số - CNC (Computer Numerical Control): Máy gia công điều khiển số có trợ giúp máy tính việc vận hành lập trình gia công - CL (Cutter Location) tập hợp giá trị tọa độ X, Y, Z vị trí mũi dao qui ớc, cosin phơng I, J, K véc tơ trục dụng cụ hệ tọa độ phôi - CC (Cutter Contact) điểm tiếp xúc dao cụ với bề mặt gia công - CAD (Computer Aided Design): Thiết kế với trợ giúp máy tính - CAM (Computer Aided Manufacturing): Lĩnh vực sử dụng máy tính để tạo chơng trình điều khiển hệ thống sản xuất, kể trực tiếp điều khiển thiết bị, hệ thống đảm bảo vật t, kỹ thuật mục lục lời nói đầu .4 chơng tổng quan tính toán quỹ đạo gia công mặt cong 1.1 Mở đầu 1.2 Phơng pháp đẳng nhấp nhô bề mặt 1.3 Phơng pháp đẳng phẳng 1.4 Phơng pháp đẳng tham số chơng tính toán quỹ đạo chạy dao theo phơng pháp đẳng phẳng 15 2.1 Mở đầu 15 2.1.1 Tìm hiểu mô hình CAD dạng lới tam giác 16 2.1.2 Giao tiếp Visual Basic với Excel 18 2.1.3 Giao tiếp Visual Basic với AutoCAD 19 2.2 Thuật toán tính toán mô quỹ đạo chạy dao mặt STL 22 2.2.1 Giao tuyến mặt phẳng song song với mặt lới STL 22 2.2.2 Sắp xếp đoạn giao tuyến theo thứ tự liên tiếp giao tuyến 30 2.2.3 Offset giao tuyến để sinh đờng CL 33 2.2.4 Xử lý tợng chồng chéo (Overlap) đờng offset 38 2.2.5 Xử lý tợng đứt quãng (Gap) đờng offset 43 2.2.6 Tính điểm CL đờng offset 44 2.2.7 Xuất G code 46 2.2.8 Mô quỹ đạo chạy dao 47 chơng Tính toán quỹ đạo chạy dao theo phơng pháp đẳng tham số .48 3.1 Tìm hiểu mặt cong Bezier 48 3.1.1 Mặt cong bezier ứng dụng thực tiễn 48 3.1.2 Phơng trình toán học đờng mặt Bezier 48 a) Phơng trình toán học đờng Bezier 48 b) Phơng trình toán học đờng Bezier hữu tỉ 50 d) Đờng mặt cong tự tổng quát 53 3.2 Sử dụng Visual Basic viết chơng trình hiển thị mặt cong Bezier 56 3.2.1 Thuật toán xây dựng điểm CC mặt cong 56 a) Cơ sở lý thuyết 56 b)Thuật toán xây dựng mặt cong tự tổng quát 58 3.2.3 Mô hiển thị mặt cong gia công 63 3.3 Tính điểm CL 64 3.3.1 Thuật toán tính toán điểm CL 64 3.3.2 Thiết lập đờng chạy dao từ điểm CL, mô AutoCAD 65 3.4 Xác định mã lệnh G 66 File G code thu đợc có dạng: 68 chơng gia công mẫu .69 4.1 Gia công mẫu sử dụng phơng pháp đẳng phẳng 69 4.2 Gia công mẫu sử dụng phơng pháp đẳng tham số 71 kết luận 74 Ti liệu tham khảo 75 phụ lục 76 Phụ luc Chơng trình tính toán quỹ đạo chạy dao theo phơng pháp đẳng phẳng 76 Phụ lục Chơng trình tính toán quỹ đạo chạy dao theo phơng pháp đẳng tham số 117 lời nói đầu Ngày khoa học công nghệ lĩnh vực sản xuất khí phát triển nhanh với nhiều tiến Đặc biệt với đời trung tâm gia công CNC đa suất chất lợng sản xuất khí đợc nâng lên cao Các trung tâm CNC trở thành phần tất yếu hệ thống sản xuất khí đại Các nhà máy, phân xởng sản xuất phải trang bị cho máy CNC để đáp ứng yêu cầu suất chất lợng sản xuất Đi với hệ thống CNC phần mềm CAD/CAM Sản phẩm đợc thiết kế, tính toán phân tích module CAD, sau CAM lựa chọn công cụ tính toán đờng chạy dao thông số công nghệ cho sản xuất Tuy nhiên phần mềm CAM đợc nhà sản xuất đóng gói, chúng hộp đen mà ta can thiệp trực tiếp vào chơng trình Đặc biệt gia công mặt cong phức tạp ta kiểm soát đợc sai số phần mềm gây Một vấn đề đặt phải đa phơng pháp tính toán trực tiếp đờng chạy dao gia công mặt cong phức tạp Đồ án Tính toán trực tiếp quỹ đạo chạy dao CNC trục mặt cong phức tạp nhằm sinh đợc đờng chạy dao CNC trục sử dụng cho gia công mặt cong phức tạp Nội dung đồ án gồm chơng: Chơng Tổng quan tính toán quỹ đạo gia công mặt cong Do học viên Chu Ngọc Tùng Bùi Bách Tuấn Anh thực Chơng Tính toán quỹ đạo chạy dao theo phơng pháp đẳng phẳng Do học viên Chu Ngọc Tùng thực Chơng Tính toán quỹ đạo chạy dao theo phơng pháp đẳng tham số Do học viên Bùi Bách Tuấn Anh thực Chơng Gia công mẫu Do học viên Chu Ngọc Tùng Bùi Bách Tuấn Anh thực Trong trình làm đồ án cố gắng nhng hạn chế kiến thức thời gian nên không tránh đợc thiết sót Chúng em mong đợc góp ý, bổ xung, đóng góp ý kiến thầy cô bạn đọc để đồ án hoàn thiện Chúng em xin trân thành cảm ơn Thạc sỹ Vơng Xuân Hải Nghiên cứu sinh thuộc môn Cơ điện tử chế tạo máy đặc biệt thầy cô môn Cơ điện tử chế tạo máy đặc biệt - Khoa Hàng không vũ trụ tân tình giúp đỡ, bảo, tạo điều kiện suốt thời gian qua để chúng em hoàn thành đồ án Hà Nội, Ngày tháng Năm 2009 Học viên thực Chu Ngọc Tùng Bùi Bách Tuấn Anh chơng tổng quan tính toán quỹ đạo gia công mặt cong 1.1 Mở đầu Tính toán đờng chạy dao phần quan trọng trình lập kiểm tra chơng trình NC Đờng chạy dao có ảnh hởng lớn tới độ xác bề mặt gia công, thời gian gia công, lực cắt tuổi thọ dao Do ảnh hởng tới suất chất lợng trình sản xuất Cái cần tập hợp liệu dao, bao gồm vị trí mũi dao hớng trục dao Đờng chạy dao phải đảm bảo cho số lỗi chơng trình sinh chạy nhỏ giá trị cho phép, thời gian gia công nhỏ nhất, tốc độ cắt lớn lực cắt phải nằm giá trị cho phép Khi tính toán đờng chạy dao phải ý yếu tố sau: + Sai số bề mặt gia công phải nằm giới hạn cho phép + Đặc tính hình học mặt gia công + Đặc tính hình học mặt cắt + Sự va chạm dao bề mặt gia công + Hớng trục dao + Tốc độ cắt + Tuổi thọ dao Có nhiều phơng pháp đợc đa để tính toán đờng chạy dao nhng phổ biến phơng pháp nh đẳng phẳng, đẳng tham số đẳng nhấp nhô bề mặt Trong giới hạn đồ án chúng em tìm hiểu đa thuật toán để tính toán đờng chạy dao theo phơng pháp đẳng phẳng đẳng tham số 1.2 Phơng pháp đẳng nhấp nhô bề mặt Phơng pháp đẳng nhấp nhô bề mặt phơng pháp sinh đờng chạy dao CNC Đờng chạy dao đẳng nhấp nhô bề mặt giữ cho chiều cao nhấp nhô bề mặt không đổi theo suốt chiều ngang bề mặt gia công Việc tính toán sinh đờng chạy dao đẳng nhấp nhô bề mặt cho CNC trục phức tạp nhiều so với máy trục, có nhiều loại dao đợc sử dụng hớng dao thay đổi suốt trình gia công 1.3 Phơng pháp đẳng phẳng Đờng chạy dao đẳng phẳng đợc định nghĩa đờng cong giao tuyến bề mặt chi tiết tập hợp mặt phẳng song song Khoảng cách mặt phẳng cắt liên tiếp đợc tính toán theo chiều cao cho phép nhấp nhô bề mặt Phơng pháp có khả sinh đờng chạy dao nhiều loại mô hình khác chi tiết nh mô hình dạng mặt tham số, mô hình dạng solid, mô hình dạng mặt implicit mô hình dạng mặt STL (mô hình lới tam giác) Năm 1985 ông Bobrow trình bày ý tởng tính toán đờng chạy dao đẳng phẳng ý tởng thực tính toán đờng chạy dao mô hình dạng solid Đầu tiên thuật toán cắt mô hình mặt phẳng, đờng cong giao tuyến mặt phẳng với bề mặt chi tiết đợc tạo Theo hớng cắt định, thuật toán tạo đờng giao tuyến liên tiếp từ bên sang bên bề mặt chi tiết; sau mặt phẳng cắt đợc offset sang mặt phẳng liền kề Quá trình đợc lặp lại mặt cắt cuối đợc xác định Các đờng giao tuyến đờng CC dao Một phơng pháp tính toán đờng chạy dao đẳng phẳng mô hình dạng bề mặt tham số đợc Lartigue giới thiệu vào năm 2001 Trong phơng pháp ông thực tính toán cho trình gia công sử dụng dao phay đầu cầu Khác với ý tởng Bobrow nêu năm 1985, Lartigue định nghĩa đờng chạy dao tập hợp đờng cong giao tuyến offset bề mặt chi tiết với mặt phẳng cắt Khoảng cách offset bán kính dao ý tởng nội suy giao điểm đờng cong B-spline bậc Đờng cong đờng chạy dao cần tính.Trong phơng pháp khoảng cách đờng chạy dao đợc tính toán cho chiều cao nhấp nhô bề mặt lớn thoả mãn chiều cao cho phép Đặc biệt sử dụng mặt cong NURBS có sai số tích luỹ đáng kể, nguyên nhân trình offset bề mặt; trình cắt mặt phẳng với bề mặt chi tiết trình xử lý điểm CC Vào năm 2002 Tam đa cách tính toán đờng chạy dao trực tiếp mô hình dạng bề mặt implicit Đờng chạy dao trực tiếp đợc tính toán dựa theo tốc độ trục chiều cao nhấp nhô bề mặt lớn cho phép Để sinh đờng chạy dao mô hình dạng bề mặt lới tam giác phơng pháp đẳng phẳng đợc sử dụng Ví dụ nh năm 2002 Xu sử dụng mặt phẳng cắt để cắt mặt lới kết tạo đoạn giao tuyến mặt phẳng cắt với mặt lới chi tiết Sau đoạn giao tuyến đợc xử lý theo vị trí hớng dao Hơn nữa, Jun trình bày nghiên cứu vấn đề đờng chạy dao mô hình dạng bề mặt lới Trong cách tiếp cận này, Các đoạn đờng cong mặt cắt đợc xử lý để sinh đờng chạy dao Thuật toán đa đờng CL có dạng đờng cong Bezier hữu tỉ bậc Trong phơng pháp cắt, dãy mặt phẳng song song cắt phần offset bề mặt chi tiết Kết phần offset đợc cắt lần lợt mặt cắt Các đoạn giao tuyến đợc lu lại riêng theo mặt phẳng tơng ứng Sự giao mặt phẳng với tam giác lới đợc xác định dễ dàng từ giao điểm mặt phẳng với cạnh tam giác Tập hợp đoạn thẳng giao tuyến đợc gọi đờng CL 1.4 Phơng pháp đẳng tham số Đờng chạy dao máy trục (CL tool path) giống nh đờng cong qua điểm CL (hình 1.1) Các điểm CL đợc tính toán theo điểm CC, vec tơ pháp tuyến đơn vị bề mặt, kích thớc dao cắt, độ nghiêng dao cắt Ngoài có cách tính đờng chạy dao theo phơng pháp không truyền thống phơng pháp phi tuyến Hình 1.1: Đờng chạy dao Để dẫn hớng mũi dao hai điểm CL cho trớc ta phải dịch tâm quay dao đồng thời dịch chuyển tọa độ phôi gia công Vì mũi dao di chuyển hệ tọa độ chi tiết gia công theo quỹ đạo phi tuyến Trên thực tế nhiều phơng pháp tính toán đờng chạy dao đợc đa nhng phơng pháp đẳng tham số đợc sử dụng nhiều Đờng chạy dao theo phơng pháp đẳng tham số đờng cong đợc định nghĩa nh tập hợp đoạn thẳng mặt tham số S(u, v), tơng ứng với tập hợp số u, v Chú ý, mặt S(u, v) hiểu nh ánh xạ r(u, v) từ miền tham số P(u, v) R2 tới không gian chiều W(x, y, z) E3 Trong thực tế liên tiếp điểm CC theo phơng hớng u v, lựa chọn phụ thuộc vào hình dạng mặt gia công loại máy gia công Dao cắt di chuyển tiến lên phía trớc ngợc lại theo hớng lựa chọn Hình 1.2 minh họa phơng pháp đẳng tham số, đờng cong r(u, v1) r(u, v2), v1 v2 hai số tơng ứng Sự dịch chuyển điểm CC đợc chọn theo phơng u, nh tập hợp {r(u, v1), r(u, v2), r(u, v3),} tạo lên đờng CC hoàn chỉnh Ngợc lại, điểm CC đợc chọn theo phơng v tập hợp {r(u1, v), r(u2, v), r(u3, v),} tạo lên đờng CC hoàn chỉnh z r v r(u,v1) r(u,v2) S(u,v) P v2 v1 u y x Hình 1.2: Phơng pháp đẳng tham số Thông thờng sử dụng phơng pháp này, phơng u đợc chọn làm phơng CC Khi sử dụng phơng pháp phải giải hai vấn đề : Tính toán bớc tiến ( u ) hớng u để định vị điểm CC Tính toán bớc nhảy ( v ) để định vị đờng CC kế bên từ đờng có trớc Vấn đề để định vị xác điểm CC liên tiếp cho thỏa mẵn độ lệch hai điểm CC kề bên (phơng trình 1.2) Vấn đề thứ hai để xác định khoảng cách đờg CC cạnh Bớc tiến 10 excelsheet3.cells(i, 14) = t(i).y excelsheet3.cells(i, 15) = t(i).z i=i+1 End If j=j+1 Wend End Sub Private Sub CmdKetThuc_Click() End End Sub Private Sub CmdTest_Click() Call delta_v End Sub Private Sub CmdVemat_Click() Dim u_parameter As Single Dim v_parameter As Single Dim point1(2) As Single Dim Point2(2) As Single Dim points() As Double Dim lineObj As AcadLine Dim meshObj As AcadPolygonMesh Dim i As Integer Dim step_n, step_m As Single Dim k As Integer Dim l As Integer Dim Cur_Points(200, 200) As c_point Dim Neta As Single Dim H_vector As c_point Dim IsoLength As Single IsoLength = step_m = / (mSize - 1) step_n = / (nSize - 1) point1(0) = 0: point1(1) = 0: point1(2) = u_parameter = 0: v_parameter = i=0 ReDim points(mSize * nSize * - 1) 119 For k = To mSize u_parameter = For l = To nSize If u_parameter > Then u_parameter = End If If v_parameter > Then v_parameter = End If Call xuat_diem(u_parameter, v_parameter) excelsheet3.cells((k - 1) * nSize + l, 5) = S.x excelsheet3.cells((k - 1) * nSize + l, 6) = S.y excelsheet3.cells((k - 1) * nSize + l, 7) = S.z points(i) = S.x: points(i + 1) = S.y: points(i + 2) = S.z u_parameter = u_parameter + step_n i=i+3 excelsheet4.cells(l + (k - 1) * nSize, 1) = S.x excelsheet4.cells(l + (k - 1) * nSize, 2) = S.y excelsheet4.cells(l + (k - 1) * nSize, 3) = S.z Next v_parameter = v_parameter + step_m Next Set meshObj = dra.ModelSpace.Add3DMesh(mSize, nSize, points) Dim NewDirection(0 To 2) As Double NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = dra.ActiveViewport.Direction = NewDirection dra.ActiveViewport = dra.ActiveViewport meshObj.Update meshObj.Color = 60 ZoomAll dra.SendCommand "_shademode" & vbCr & "g" & vbCr End Sub Private Sub Form_initialize() Call khoi_dau Call CutterParameterSet(5, 5, 0, 0, 10) Call diem_dieu_khien 120 End Sub Option Explicit Public u(100) As Single Public v(100) As Single Public Const n = Public Const m = Public Const p = Public Const q = Public funs_u(100), funs_v(100) As Single Type c_point x As Single y As Single z As Single End Type Type cw_point x As Single y As Single z As Single w As Single End Type Public diem_dau(0 To 2) As Double Public diem_cuoi(0 To 2) As Double Public u_cc(0 To 50000) As Single Public v_cc(0 To 50000) As Single Public i As Integer Public j As Integer 'Public step_u As Single 'Public step_v As Single Public Const h0 = 0.1 Public Const R = 0.8 Public Skl(5, 5) As c_point Public l As Single Public excelsheet As Object Public excelsheet1 As Object Public excelsheet2 As Object Public excelsheet3 As Object 121 Public excelsheet4 As Object Public excelsheet5 As Object Public excelsheet6 As Object Public Const mSize = 75 Public Const nSize = 36 Public S As c_point Public dra As AcadDocument Public CP(10, 10) As cw_point Public Sw As cw_point Public thamso_u As Single Public thamso_v As Single Public startpoint As c_point Public khoangcach As Single Public endpoint As c_point Public Sub khoang_cach(a As c_point, b As c_point) khoangcach = ((a.x - b.x) ^ + (a.y - b.y) ^ + (a.z - b.z) ^ 2) ^ / End Sub Public Sub khoi_dau() On Error Resume Next Set excelapp = GetObject("C:\CNC\Dau_vao.xls") Set excelsheet = excelapp.activesheet Set excelsheet1 = excelapp.worksheets("sheet1") Set excelsheet2 = excelapp.worksheets("sheet2") Set excelsheet3 = excelapp.worksheets("sheet3") Set excelsheet4 = excelapp.worksheets("sheet4") Set excelsheet5 = excelapp.worksheets("sheet5") Set excelsheet6 = excelapp.worksheets("sheet6") Set acadapp = GetObject(, "autocad.application") Set dra = acadapp.ActiveDocument acadapp.Visible = True End Sub '================Cac ham cho ve mat phang=========== Public Sub CutterParameterSet(R1_val As Single, R2_val As Single, Beta1_val As Single, Beta2_val As Single, L_val As Single) R1 = R1_val R2 = R2_val 122 Beta1 = Beta1_val * 3.141592 / 180 Beta2 = Beta2_val * 3.141592 / 180 Lt = L_val e = R1 - R2 * Cos(Beta2) h = R2 * Cos(Beta1) + R2 * Sin(Beta1) * Tan(Beta1) + e * Tan(Beta1) End Sub ' ==========Ham tinh cac diem S.x,S.y,S.z nho vao S(u,v)======= Public Sub xuat_diem(u_val As Single, v_val As Single) Dim uspan, vspan, uind, vind, i, j As Integer Dim temp As cw_point uspan = FinSpan_u(u_val) vspan = FinSpan_v(v_val) Call BasisFuns_u(FinSpan_u(u_val), p, u_val) Call BasisFuns_v(FinSpan_v(v_val), q, v_val) uind = uspan - p Sw.x = 0: Sw.y = 0: Sw.z = 0: Sw.w = S.x = 0: S.y = 0: S.z = For i = To q temp.x = 0: temp.y = 0: temp.z = 0: temp.w = vind = vspan - q + i For j = To p temp.x = temp.x + funs_u(j) * CP(uind + j, vind).x temp.y = temp.y + funs_u(j) * CP(uind + j, vind).y temp.z = temp.z + funs_u(j) * CP(uind + j, vind).z temp.w = temp.w + funs_u(j) * CP(uind + j, vind).w Next Sw.x = Sw.x + funs_v(i) * temp.x Sw.y = Sw.y + funs_v(i) * temp.y Sw.z = Sw.z + funs_v(i) * temp.z Sw.w = Sw.w + funs_v(i) * temp.w If Sw.w Then S.x = Sw.x / Sw.w: S.y = Sw.y / Sw.w: S.z = Sw.z / Sw.w Else S.x = Sw.x: S.y = Sw.y: S.z = Sw.z End If Next End Sub 123 ' ==================De quy tham so u============ Public Function FinSpan_u(Parameter As Single) As Integer Dim low, high As Integer Dim mid As Integer If Parameter = u(n + 1) Then FinSpan_u = n Else low = p: high = n + mid = Int((low + high) / 2) While (Parameter < u(mid) Or Parameter >= u(mid + 1)) If Parameter < u(mid) Then high = mid Else low = mid End If mid = Int((low + high) / 2) Wend FinSpan_u = mid End If End Function ' =====================De quy tham so v=========== Function FinSpan_v(Parameter As Single) As Integer Dim low, high As Integer Dim mid As Integer If Parameter = v(m + 1) Then FinSpan_v = m Else low = q: high = m + mid = Int((low + high) / 2) While (Parameter < v(mid) Or Parameter >= v(mid + 1)) If Parameter < v(mid) Then high = mid Else low = mid End If mid = Int((low + high) / 2) Wend 124 FinSpan_v = mid End If End Function '=====================Tinh Ni,p(u)================= Public Sub BasisFuns_u(i As Integer, p1 As Integer, Parameter As Single) Dim temp, leftt(5), rightt(5), saved As Single funs_u(0) = Dim j, i1 As Integer For j = To p1 leftt(j) = Parameter - u(i + - j) rightt(j) = u(i + j) - Parameter saved = For i1 = To j - temp = funs_u(i1) / (rightt(i1 + 1) + leftt(j - i1)) funs_u(i1) = saved + rightt(i1 + 1) * temp saved = leftt(j - i1) * temp Next funs_u(j) = saved Next End Sub '=====================Tinh Nj,q(v)================ Public Sub BasisFuns_v(i As Integer, p1 As Integer, Parameter As Single) Dim temp, leftt(5), rightt(5), saved As Single funs_v(0) = Dim j, i1 As Integer For j = To p1 leftt(j) = Parameter - v(i + - j) rightt(j) = v(i + j) - Parameter saved = For i1 = To j - temp = funs_v(i1) / (rightt(i1 + 1) + leftt(j - i1)) funs_v(i1) = saved + rightt(i1 + 1) * temp saved = leftt(j - i1) * temp Next funs_v(j) = saved Next 125 End Sub '================Input cac diem dieu khien tu Exel========= Public Sub diem_dieu_khien() Dim i, j As Single Dim scl As Single slc = 200 / 18 For i = To n For j = To m CP(i, j).x = excelsheet2.cells(4 * i + 4, j + 17) CP(i, j).y = excelsheet2.cells(4 * i + 5, j + 17) CP(i, j).z = excelsheet2.cells(4 * i + 6, j + 17) CP(i, j).w = excelsheet2.cells(4 * i + 7, j + 17) CP(i, j).x = slc * CP(i, j).x * CP(i, j).w CP(i, j).y = slc * CP(i, j).y * CP(i, j).w CP(i, j).z = slc * CP(i, j).z * CP(i, j).w Next Next i=0 While i [...]... đờng chạy dao theo kiểu zigzag Ví dụ một mặt phẳng cắt các tam giác thành các đoạn giao tuyến nh hình 2. 15 Hình 2. 15: Các đoạn giao tuyến trên cùng một đờng giao tuyến trớc khi sắp xếp Trên hình 2. 15 thì tên của các đoạn giao tuyến đợc đánh dấu theo vị trí toạ độ của nó đợc lu trên bảng tính của file Excel Từ nhỏ đến lớn 30 (A1B1 đến A6B6 ) tơng ứng vị trí toạ độ của nó đợc lu từ trên xuống dới trên một... dài của đờng cong đỉnh là ít hơn chiều dài của đờng cong đáy, và hớng của dao cắt là hớng từ đáy lên đỉnh Đồng thời, nếu đờng chạy dao đợc tính toán cho các bề mặt bậc cao, độ lệch trung bình giữa các điểm CC liên tiếp có thể khác rất nhiều từ 13 trị số cực đại thực sự Độ lệch cực đại đợc tính toán cũng có thể khác rất nhiều từ trị số cực đại thực sự khi một đờng cong CC xấp xỉ nh một đờng cong Bezier... đờng chạy dao, và Sv Sv chiều dài của một đờng thuộc mặt đang tính tại một giá trị uc , chính là chiều dài của đờng cong r (uc , v) Từ đó Sv biến thiên theo sự thay đổi của uc , chiều dài của cung Sv đợc tính tại uc=0-> 0. 25- >0 .5- > 0. 75 và 1 tơng ứng Giá trị lớn nhất đợc tính sao cho giá trị đạt đợc của sai số nằm trong giới hạn nhỏ nhất Từ giới hạn của chiều cao nhấp nhô ho và bán kính của dao cắt... tính toán đờng chạy dao - Quá trình thực hiện tính toán đờng chạy dao trên bề mặt lới tam giác chúng ta phải xử lý một lợng dữ liệu khá lớn Đó là toạ độ đỉnh của các tam giác lới, toạ độ của các giao điểm, của các điểm trên đờng offset Dữ liệu này có cấu trúc dạng bảng Vì vậy để thuận tiện ta có thể sử dụng các bảng tính của Excel để ghi và đọc dữ liệu của các quá trình tính toán 15 - Để lập trình tính... các đờng chạy dao l đợc tính: l = 2(h0 (2 R h0 )) 1 2 (1 .5) Tóm lại, sử dụng phơng pháp đẳng tham số hoàn toàn đơn giản và thích hợp trong thực tế vì sử dụng dễ dàng Tuy nhiên phơng pháp có thể gây ra sự chồng chéo trong gia công giữa hai đờng chạy dao liên tiếp Số lợng các chồng chéo này phụ thuộc vào hình học của bề mặt gia công Ví dụ, một mặt đợc ghép bởi bốn đờng cong đợc gia công trên máy Việc... Sai Đúng Ghi toạ độ giao điểm trên cạnh BC và AB Các tam giác đợc k.tra xong Đúng Sai MP cắt cuối đợc xử lý Đúng Kết thúc Hình 2.14: Sơ đồ thuật toán sinh ra các giao tuyến 29 2.2.2 Sắp xếp các đoạn giao tuyến theo thứ tự liên tiếp trên một giao tuyến Trên một file STL thì giá trị toạ độ của các tam giác lới không đợc sắp xếp theo một thứ tự nhất định Với mỗi tam giác trên bề mặt lới chúng ta không... chạy dao đẳng phẳng trên mô hình dạng bề mặt STL - Hiện nay có rất nhiều ngôn ngữ lập trình có thể đợc sử dụng để tính toán đờng chạy dao Trong đó Visual Basic là một ngôn ngữ lập trình rất mạnh Ngời lập trình có thể khai thác khả năng tự động của Visual Basic để viết chơng trình một cách nhanh chóng và thuận tiện Hơn nữa Visual Basic có giao diện khá thân thiện với ngời sử dụng Từ những u điểm trên. .. chơng trình sẽ lấy cửa sổ đầu tiên trong Windows Running Object Table 20 - Để mô phỏng kiểm tra các quá trình tính toán trên AutoCAD thì ta sử dụng lệnh vẽ đờng thẳng: Vẽ Line: SetLineObject=Object.AddLine(StartPoint, EndPoint) StartPoint EndPoint ( 0, 0, 0 ) Hình 2 .5: Đờng thẳng đợc vẽ trên AutoCAD Bảng 2.1: Kiểu dữ liệu của đờng thẳng Tên Kiểu dữ liệu Miêu tả Mảng 3 hần tử kiểu Double là toạ độ StartPoint... tra các quá trình tính toán xử lý dữ liệu dã đúng theo yêu cầu hay cha, phát hiện ra lỗi sai của chơng trình và nguyên nhân gây ra lỗi; có thể mô phỏng đờng chạy dao một cách trực quan 21 2.2 Thuật toán tính toán và mô phỏng quỹ đạo chạy dao trên mặt STL 2.2.1 Giao tuyến của các mặt phẳng song song với mặt lới STL Để sinh ra các đờng giao tuyến ta sử dụng một dãy các mặt phẳng song song cắt mô hình lới... dụ với mặt cong trong hình 2.2 ta thu đợc kết quả các giao tuyến nh sau: Hình 2.11: Tập hợp các đờng giao tuyến 26 Toạ độ của các giao điểm sau khi tính đợc sẽ đợc ghi lại vào bảng tính của file Excel Các toạ độ sẽ đợc ghi lần lợt trên bảng tính tơng ứng với từng giao tuyến, hết giao tuyến này tới giao tuyến khác Kết quả thu đợc nh sau: Hình 2.12: Dữ liệu của các đờng giao tuyến đợc lu trên file Excel ... 50 d) Đờng mặt cong tự tổng quát 53 3.2 Sử dụng Visual Basic viết chơng trình hiển thị mặt cong Bezier 56 3.2.1 Thuật toán xây dựng điểm CC mặt cong 56 a) Cơ sở lý thuyết 56 ... cong phức tạp ta kiểm soát đợc sai số phần mềm gây Một vấn đề đặt phải đa phơng pháp tính toán trực tiếp đờng chạy dao gia công mặt cong phức tạp Đồ án Tính toán trực tiếp quỹ đạo chạy dao CNC. .. CNC trục mặt cong phức tạp nhằm sinh đợc đờng chạy dao CNC trục sử dụng cho gia công mặt cong phức tạp Nội dung đồ án gồm chơng: Chơng Tổng quan tính toán quỹ đạo gia công mặt cong Do học viên