Nghiên cứu thiết kế xe nâng container trên cơ sở ứng dụng công nghệ CAD

-1- Đại Học Quốc Gia Tp Hồ Chí Minh TRƢỜNG ĐẠI HỌC BÁCH KHOA CAO TRỌNG ĐIỂM NGHIÊN CỨU XÂY DỰNG QUY TRÌNH THIẾT KẾ XE NÂNG CONTAINER TRÊN CƠ SỞ ỨNG DỤNG CÔNG NGHỆ CAD Chuyên ngành : CÔNG NGHỆ CHẾ TẠO MÁY LUẬN VĂN THẠC SĨ TP HỒ CHÍ MINH, tháng 12 năm 2008 -2- CƠNG TRÌNH ĐƢỢC HOÀN THÀNH TẠI TRƢỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH Cán hƣớng dẫn khoa học : TS NGUYỄN DANH SƠN Cán chấm nhận xét : (Ghi rõ họ, tên, học hàm, học vị chữ ký) Cán chấm nhận xét : (Ghi rõ họ, tên, học hàm, học vị chữ ký) Luận văn thạc sĩ đƣợc bảo vệ HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THẠC SĨ TRƢỜNG ĐẠI HỌC BÁCH KHOA, ngày tháng năm 2008 -3- ĐẠI HỌC QUỐC GIA TP HCM CỘNG HOÀ XÃ HỘI CHỦ NGHIÃ VIỆT NAM TRƢỜNG ĐẠI HỌC BÁCH KHOA Độc Lập - Tự Do - Hạnh Phúc -oOo TP HCM, ngày tháng năm 2008 NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: Cao Trọng Điểm Giới tính: Nam Ngày, tháng, năm sinh : 25/08/1981 Nơi sinh: Nam Định Chuyên ngành : Công nghê chế tạo máy Khoá (Năm trúng tuyển) : 2006 1- TÊN ĐỀ TÀI: NGHIÊN CỨU XÂY DỰNG QUY TRÌNH THIẾT KẾ XE NÂNG CONTAINER TRÊN CƠ SỞ ỨNG DỤNG CÔNG NGHỆ CAD 2- NHIỆM VỤ LUẬN VĂN: Tổng quan xe nâng container Nghiên cứu đặc điểm cấu trúc xe nâng container Nghiên cứu đặt điểm thiết kế tổng thể xe nâng container chuyên dùng Lập chƣơng trình thiết kế tổng thể xe nâng container Lập quy trình thiết kế tổng thể xe nâng container sở ứng dụng công nghệ CAD 3- NGÀY GIAO NHIỆM VỤ : 25/01/2008 4- NGÀY HOÀN THÀNH NHIỆM VỤ : 01/12/2008 5- HỌ VÀ TÊN CÁN BỘ HƢỚNG DẪN: TS NGUYỄN DANH SƠN Nội dung đề cƣơng Luận văn thạc sĩ đƣợc Hội Đồng Chuyên Ngành thông qua CÁN BỘ HƢỚNG DẪN (Họ tên chữ ký) CHỦ NHIỆM BỘ MÔN QUẢN LÝ CHUYÊN NGÀNH (Họ tên chữ ký) -4- LỜI CẢM ƠN Tác giả xin chân thành cảm ơn TS Nguyễn Danh Sơn tận tình hƣớng dẫn giúp đỡ để tác giả hoàn thành tốt luận văn, đồng thời xin trân trọng cảm ơn chú, anh Trung Tâm Kiểm Định Kỹ Thuật An Toàn Khu Vực – Bộ Lao Động Thƣơng Binh Xã Hội, thầy cô Bộ môn Máy xây dựng xếp dỡ - Trƣờng đại học bách khoa Thành phố Hồ Chí Minh, thầy môn Máy xây dựng xếp dỡ - Trƣờng đại học Giao thông vận tải Hà Nội, đặc biệt Trần Thị Vân Nga nhiệt tình giúp đỡ thời gian qua Tác giả -5- TÓM TẮT LUẬN VĂN Hiện nay, để thiết kế tổng thể xe nâng chuyên dùng nói riêng xe nâng tự hành nói chung có nhiều phƣơng pháp Theo phƣơng pháp thứ nhất: xuất phát từ sức nâng vận tốc nâng thêm số u cầu khác Từ tính đƣợc cơng suất, trọng lƣợng, kích thƣớc giới hạn, … theo số công thức kinh nghiệm Nhƣng thực theo phƣơng pháp thứ hai là: sử dụng lý thuyết đồng dạng, khai thác đặc điểm cấu tạo tiêu kinh tế kỹ thuật máy sẵn có Trong thực tế, xe nâng nƣớc khác chế tạo, với sức nâng, kích thƣớc cơng tác thơng số nhƣ: kích thƣớc giới hạn, cơng suất máy, trọng lƣợng nằm phạm vi đó, nghĩa thơng số xe khac xấp xỉ chênh lệch không nhiều Xuất phát từ thực tế ngày giới loại xe nâng giới đƣợc chế tạo rộng rãi với nhiều lần cải tiến, Việt Nam, việc thiết kế bƣớc đầu, chƣa có kinh nghiệm, nên xe nâng chuyên dùng thực theo phƣơng pháp hai Dựa vào để thiết kế xe nâng nƣớc ta, vừa mang tính kế thừa, vừa áp dụng đƣợc thành tựu khoa học giới Đó phƣơng pháp luận luận án tiến hành thiết kế tổng thể xe nâng container chuyên dùng Đề tài gồm có: Chƣơng 1: Đặt vấn đề Chƣơng 2: Tổng quan xe nâng container Chƣơng 3: Nghiên cứu đặc điểm cấu trúc xe nâng container Chƣơng 4: Nghiên cứu đặt điểm thiết kế tổng thể xe nâng container chuyên dùng Chƣơng 5: Lập chƣơng trình thiết kế tổng thể xe nâng container Chƣơng 6: Lập quy trình thiết kế tổng thể xe nâng container sở ứng dụng công nghệ CAD -6- MỤC LỤC Trang Lời nói đầu Chƣơng Đặt vấn đề 1.1 - Lý chọn đề tài 1.2 - Mục đích đề tài 1.3 - Phương pháp phạm vi nghiên cứu 1.4 - Ý nghĩa thực tiễn đề tài Chƣơng Tổng quan xe nâng container 2.1 - Năng lực xếp dỡ hàng 2.2 - Đặc điểm cấu tạo xe nâng 2.3 - Giới thiệu hàng hóa container 2.4 - Lựa chọn loại xe nâng hợp lý để thiết kế Chƣơng Nghiên cứu đặc điểm cấu trúc xe nâng container 3.1 - Đặc điểm chung 3.2 - Nghiên cứu lý thuyết đồng dạng 3.3 - Áp dụng lý thuyết đồng dạng thiết kế xe nâng chuyên dụng Chƣơng Nghiên cứu đặc điểm thiết kế tổng thể xe nâng container chuyên dùng 4.1 - Phân tích yêu cầu thiết kế 4.2 - Hệ thống tiêu chọn phương án xe 4.3 - Các bước thực thiết kế tổng thể xe nâng chuyên dụng sở ứng dụng công nghệ CAD 4.4 - Cơ sở lựa chọn dạng tổng thể thông số xe Chƣơng Lập chƣơng trình thiết kế tổng thể xe nâng container 5.1 – Chọn ngơn ngữ lập trình 5.2 – Cấu trúc chương trình 5.3 – Sơ đồ khối chương trình 5.4 – Lập chương trình máy vi tính Chƣơng Lập quy trình thiết kế tổng thể xe nâng container sở ứng dụng công nghệ CAD 6.1 - Những kỹ thuật lập trình yêu cầu sử dụng 6.2 - Chuẩn bị chạy chương trình 6.3 - Chạy chương trình 6.4 Ví dụ áp dụng Kết luận kiến nghị Tài liệu tham khảo Phụ lục 1: File số liệu xe nâng Phụ lục 2: Các file chƣơng trình 9 9 10 10 10 12 14 17 20 20 31 35 37 37 38 39 40 42 42 53 53 64 65 65 66 68 76 82 85 87 98 -7- LỜI NÓI ĐẦU Đất nƣớc ta trải qua hai chiến tranh chống Pháp Mỹ, lên từ nƣớc nghèo nàn lạc hậu kinh tế, hạn chế kỹ thuật Theo chủ chƣơng Đảng nhà nƣớc từ u cầu phát triển nghiệp cơng nghiệp hố, đại hoá đất nƣớc theo định hƣớng xã hội chủ nghĩa, vai trị ngành khí khơng thể thiếu Trong chiến lƣợc phát triển đến năm 2010 tầm nhìn 2020, ngành khí ƣu tiên phát triển ngành khí trọng điểm (Quyết định 186/2002/QĐ-TTg Thủ tƣớng phủ) để sẵn sàng cho trình hội nhập kinh tế quốc tế khu vực Đó ngành: + Thiết bị đồng cho nhà máy cơng nghiệp + Cơ khí đóng tàu thủy + Cơ khí tơ - khí giao thông vận tải + Máy động lực + Cơ khí phục vụ nơng - lâm - ngƣ nghiệp công nghiệp chế biến + Máy công cụ + Máy thiết bị kỹ thuật điện + Máy thi cơng xây dựng cơng trình Cơ khí ngành cơng nghiệp tảng, có vai trị quan trọng việc phát triển kinh tế, củng cố an ninh, quốc phịng đất nƣớc Trong ngành khí xe nâng loại thiết bị có tính động cao, đƣợc sử dụng rộng rãi nghành kinh tế quốc dân, xây dựng, cơng nghiệp, quốc phịng Xe nâng loại máy vận chuyển tự hành dùng dể mang hàng từ vị trí kho bãi lên phƣơng tiện vận tải vào kho bãi Do tính dộng cao nên máy nâng hàng dƣợc dùng phổ biến cơng tác xếp dỡ vận chuyển hang hố kho bãi, cầu tầu cảng biển, cảng sơng xếp dỡ vận chuyển hàng hố nội xí nghiệp -8- Với phát triển nhanh việc vận chuyển hàng hoá container, xe nâng hàng đặc biệt thích hợp cảng, xí nghiệp đặc tính riêng Cùng vói phát triển kinh tế việc phát triển giao thơng vận tải đƣờng biển việc vận chuyển hàng hoá xuât nhập nƣớc container trở thành thƣờng xuyên, phổ biến đáp ứng đắc lực yêu cầu ngƣời chuyên trở hiệu kinh tế rõ Đối với ngƣời chuyên chở, vận chuyển hàng hoá container rút ngấn đƣợc thời gian tàu đậu Cảng để xếp dỡ hàng, quay nhanh vòng quay khai thác tàu, tạo thuận lợi cho cách vận chuyển có chuyển tải cách vận chuyển đa phƣơng thức, ngƣời chuyên chở tận dụng đƣợc trọng tải dung tích tầu, nâng cao hiệu khai thác Đối với ngƣời thuê chuyên chở, ngƣời chủ hàng, cách vận chuyển mang nhiều lợi ích vì: - Hàng hố đƣợc bảo vệ, phòng chống tổn thất, hƣ hại, mát, tốt nhờ có vỏ bọc bền container che trở - Chi phí bao bì đỡ tốn hơn, tiết kiệm - Giảm bớt đơn giản hoá khâu thao tác trung gian trình vận chuyển hạ thấp đƣợc chi phí lƣu thơng có cƣớc vận tải nội địa -Hàng hố kèm theo giá trị đƣợc ln chuyển tiện lợi, nhanh chóng tạo điều kiện kinh doanh đạt hiệu cao Với yếu tố trên, việc vận tải hàng hố container có tác dụng lớn hoạt động kinh tế ngành giao thông vận tải Để đáp ứng yêu cầu ngày cao kinh tế thị trƣờng, loại thiết bị xếp dỡ container ngày trở nên phổ biến phát triển, ngày đa dạng với nhiều chủng loại chuyên dùng để xếp dỡ container Xe nâng container sản suất Nhật Bản, Thuỵ Điển, Đức… đƣợc sử dụng cảng Sài Gịn, Cơng ty Tân Cảng Sài Gịn số cảng khác làm việc hiệu đóng góp khơng nhỏ vào lực xếp dỡ cảng -9- Loại xe nâng hiệu Kalmar (Thụy Điển) có tính ƣu việt hẳn so với số loại xe nâng khác đƣợc sử dụng nƣớc ta Xe nâng container hiệu Kalmar loại đại đƣợc khai thác nƣớc ta từ vài năm gần Khả lƣu động loại xe nâng cao nên khơng đƣợc khai thác địa điểm mà đƣợc đƣa đến làm việc cảng, công ty công ty chủ quản nhận thầu Việc nhập hàng hoá xuất hàng cảng, xe nâng loại thiết bị giới đƣợc khai thác hiệu Trong nƣớc chƣa có đơn vị sản xuất mà phí nhập lại cao (xe Kalmar khoảng 450 000 USD) Do đề tài đặt cần thiết CHƢƠNG ĐẶT VẤN ĐỀ 1.1 Lý chọn đề tài Căn vào tình hình thực tế đất nƣớc Nhu cầu xuất nhập qua đƣờng biển tăng cao Vấn đề giới hóa khâu xếp dỡ hàng cảng đầu mối lớn, cho lên sử dụng loại xe nâng container để xếp dỡ container bến cảng cần thiết Hiện xe nâng container phải nhập từ nƣớc ngồi, có nhiều chủng loại, giá thành cao Ở nƣớc chƣa có đơn vị chế tạo đƣợc xe nâng việc nghiên cứu để hiểu biết cặn kẽ đặc điểm kết cấu xe nâng nhƣ khai thác kỹ thuật có hiệu tính tốn thiết kế chế tạo chúng chƣa đƣợc đề cập đến Vậy đề tài đặt cần thiết 1.2 Mục đích đề tài Thiết kế tổng thể loại xe nâng container chuyên dùng để làm sở cho việc chế tạo, nâng cao hiệu sử dụng xe nâng đƣợc sử dụng nƣớc 1.3 Phương pháp phạm vi nghiên cứu Phƣơng pháp nghiên cứu trực tiếp loại mẫu xe nâng hàng đƣợc sử dụng số cảng Thành phố Hồ Chí Minh nhƣ cảng VICT, cảng Nhà Rồng, cảng Khánh Hội, cảng Tân Thuận, cảng Bến Nghé, công ty xếp dỡ Tân Cảng Từ phân tích chọn mẫu xe nâng container phù hợp - 10 - Sử dụng công nghệ CAD để thiết kế tổng thể cụm, phận hợp thành máy 1.4 Ý nghĩa thực tiễn đề tài Nghiên cứu số kết cấu xe nâng container đƣợc khai thác nƣớc để thiết kế loại xe nâng phù hợp với điều kiện Việt Nam, góp phần giải vấn đề phƣơng tiện xếp dỡ cho cảng, nhằm nâng cao lực xếp dỡ container CHƢƠNG TỔNG QUAN VỀ XE NÂNG CONTAINER 2.1 Năng lực xếp dỡ hàng Liên tục năm qua (2003-2007) lƣợng hàng hóa thơng qua Tân Cảng Sài Gòn chiếm 50% tổng lƣợng hàng hóa thơng qua Cảng phía Nam, khoảng 40% so với Cảng nƣớc Công ty Tân Cảng Sài Gịn có sở vật chất kỹ thuật đáng kể: tổng diện tích mặt 1,4 triệu m2 , có 910 600m2 bãi container, 130 744 m2 kho hàng, 15 bến (4 bến xà lan) với tổng chiều dài cầu tàu 677 m, hàng chục cẩu dàn di động có sức nâng 35 40 tầm với 30 35m, cẩu bờ chạy ray, cẩu bờ cố định có sức nâng 36 tấn, tầm với 36,5m… Và nhiều trang thiết bị giới đại khác phục vụ yêu cầu khai thác bến cảng khu vực cảng Tân Cảng (gần cầu Sài Gòn), cảng Tân Cảng – Cát Lái, ICD Tân Cảng – Sóng Thần, bến xếp dỡ container Tân Cảng – Nhơn Trạch Tân Cảng – Cát Lái (quận 9, TP.HCM), nơi phát triển trở thành cảng container có quy mơ lớn với diện tích 80 ha, 973m cầu tàu hữu 300m cầu tàu xây dựng Công ty CP Cảng Cát Lái Thiết bị giới cảng Cát Lái: Thiết bị Số lƣợng Cẩu dàn di động 40 T 15 Cẩu bờ 36T 04 Cẩu khung Xe nâng 35T container 33 48 Đầu kéo 140 Tính đến hết ngày 28-11-2007, cảng Cát Lái tiếp nhận TEUS (twenty feet equivalent unit) thứ 1700000 (tƣơng đƣơng 24 triệu hàng), đạt mức tăng trƣởng - 131 - (princ in) ) ) (if (= bkqmax1 0) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;==================================================== ;;;chuong trinh so sanh ban kinh quay vong cua xe nang ;;;============================== (defun C:bkqmin () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (setq min1 100000) (while (= kiemtra 1) (progn (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq bkq (nth chunglist)) (setq csm bkq) (setq kt (last chunglist)) (setq i (+ i 1)) (miin1) ) ) (setq bkqmin1 min1) (if (/= bkqmin1 100000) (progn (princ "Xe co ban kinh quay vong nho nhat") (princ tt) (princ "gia tri=") (setq in (rtos snmin1 2)) (princ in) ) ) (if (= bkqmin1 100000) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) - 132 - ;;;====================== ;;;chuong trinh so sanh max luong cua xe ;;;============================== (defun C:tlmmax () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (setq max1 0) (while (= kiemtra 1) (progn (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq tlm (nth chunglist)) (setq csm tlm) (setq kt (last chunglist)) (setq i (+ i 1)) (maax1) ) ) (setq tlmmax1 max1) (if (/= tlmmax1 0) (progn (princ "xe co luong lon nhat") (princ tt) (princ "gia tri=") (setq in (rtos tlmmax1 2)) (princ in) ) ) (if (= tlmmax1 0) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;==================================================== ;;;chuong trinh so sanh Trong luong cua xe ;;;============================== (defun C:TLMmin () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) - 133 - (setq min1 100000) (while (= kiemtra 1) (progn (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq tlm (nth chunglist)) (setq csm tlm) (setq kt (last chunglist)) (setq i (+ i 1)) (miin1) ) ) (setq tlmmin1 min1) (if (/= tlmmin1 100000) (progn (princ "xe co Trong luong nho nhat") (princ tt) (princ "gia tri=") (setq in (rtos tlmmin1 2)) (princ in) ) ) (if (= tlmmin1 100000) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;====================== ;;;chuong trinh so sanh max trongluong/1donvicongsuat ;;;============================== (defun C:TL1DVCSmax () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (setq max1 0) (while (= kiemtra 1) (progn (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq tl1dvcs (nth 10 chunglist)) (setq csm tl1dvcs) (setq kt (last chunglist)) - 134 - (setq i (+ i 1)) (maax1) ) ) (setq tl1max1 max1) (if (/= tl1max1 0) (progn (princ "xe co luong/1don vi csuat lon nhat") (princ tt) (princ "gia tri=") (setq in (rtos tl1max1 2)) (princ in) ) ) (if (= tl1max1 0) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;==================================================== ;;;chuong trinh so sanh TLmay/1donvicsuat ;;;============================== (defun C:TL1DVCSmin () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (setq min1 100000) (while (= kiemtra 1) (progn (princ "\chtrinh tim xe co luong/1don vicsuat nho nhat") (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq TL1DVCS (nth 10 chunglist)) (setq csm TL1DVCS) (setq kt (last chunglist)) (setq i (+ i 1)) (miin1) ) ) (setq tl1min1 min1) (if (/= tl1min1 100000) - 135 - (progn (princ "xe co luong/1don vicsuat nho nhat") (princ tt) (princ "gia tri=") (setq in (rtos tl1min1 2)) (princ in) ) ) (if (= tl1min1 100000) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;====================== ;;;chuong trinh so sanh max van toc nang ;;;============================== (defun C:vtnmax () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (setq max1 0) (while (= kiemtra 1) (progn (princ "\n chuong trinh tim xe co van toc nang lon nhat") (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq vtn (nth chunglist)) (setq csm vtn) (setq kt (last chunglist)) (setq i (+ i 1)) (maax1) ) ) (setq vtnmax1 max1) (if (/= vtnmax1 0) (progn (princ "xe co van toc nang lon nhat") (princ tt) (princ "gia tri=") (setq in (rtos vtnmax1 2)) (princ in) ) - 136 - ) (if (= vtnmax1 0) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;==================================================== ;;;chuong trinh so sanh van toc nang ;;;============================== (defun C:vtnmin () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (setq min1 100000) (while (= kiemtra 1) (progn (princ "\n chuong trinh tim xe co van toc nang nho nhat") (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq vtn (nth chunglist)) (setq csm vtn) (setq kt (last chunglist)) (setq i (+ i 1)) (miin1) ) ) (setq vtnmin1 min1) (if (/= vtnmin1 100000) (progn (setq in (rtos vtnmin1 2)) (princ "xe co van toc nang nho nhat") (princ tt) (princ "gia tri=") (princ in) ) ) (if (= vtnmin1 100000) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;====================== - 137 - ;;;chuong trinh so sanh max van toc di chuyen ;;;============================== (defun C:vtmax () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (setq max1 0) (while (= kiemtra 1) (progn (princ "\n chuong trinh tim xe co VAN TOC lon nhat") (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq vt (nth 18 chunglist)) (setq csm vt) (setq kt (last chunglist)) (setq i (+ i 1)) (maax1) ) ) (setq vtmax1 max1) (if (/= vtmax1 0) (progn (princ "xe co VAN TOC Di chuyen lon nhat") (princ tt) (princ "gia tri=") (setq in (rtos vtmax1 2)) (princ in) ) ) (if (= vtmax1 0) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;==================================================== ;;;chuong trinh so sanh Van toc di chuyen ;;;============================== (defun C:VTmin () ;;; Doc so lieu chung (setq ften2 (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) - 138 - (setq min1 100000) (while (= kiemtra 1) (progn (princ "\n chuong trinh tim xe co VAN TOC di chuyen nho nhat") (setq chung (read-line ften2)) (setq chunglist (read chung)) (setq vt (nth 18 chunglist)) (setq csm vt) (setq kt (last chunglist)) (setq i (+ i 1)) (miin1) ) ) (setq vtmin1 min1) (if (/= vtmin1 100000) (progn (setq in (rtos vtmin1 2)) (princ "xe co VT nho nhat") (princ tt) (princ "gia tri=") (princ in) ) ) (if (= vtmin1 100000) (princ "Ban phai chay chtrinh so sanh truoc") ) (princ) ) ;;;Chuong tr danh dau xe co thsokthuat MAX-MIN ;;;========================================================== ===================== ;;;Cong suat cua xe (defun ddcsm () (setq q (open "E:/doan/slxn1.csv" "r")) (setq p (open "E:/doan/slxn1.csv" "r")) (setq kiemtra 1) (setq i 0) (while (= kiemtra 1) (progn (setq chung (read-line q)) (setq chunglist (read chung)) (setq kt (last chunglist)) (if (= kt "end") - 139 - (progn (setq kiemtra 0) ) ) (if (/= kt "end") (progn (setq ss (nth chunglist)) (setq chung1 (read-line p)) (setq chunglist1 (read chung1)) (setq a (car chunglist1)) (setq b (car (CDR chunglist1))) (if (= ss TTT) (progn (setq pt4 (list a b)) (command "base" pt4) (command "rectangle" "@-900,-1500" "@18000,9000") ) ) ) ) ) ) (close p) (close q) (princ) ) ;;;=====Cong suat MAX (defun C:ddcsmmax () (setq ttt csmax1) (command "color" 2) (ddcsm) (princ "dang chay chtrinh danh dau xe co cs MAX") (princ) ) ;;;=====Cong suat MIN (defun C:ddcsmmin () (setq ttt csmin1) (command "color" 1) (ddcsm) (princ "dang chay chtrinh danh dau xe co cs MIN") (princ) ) ;;;Trong luong cua may - 140 - (defun ddtlm () (setq q (open "E:/doan/slxn1.csv" "r")) (setq p (open "E:/doan/slxn2.csv" "r")) (setq kiemtra 1) (setq i 0) (while (= kiemtra 1) (progn (setq chung (read-line q)) (setq chunglist (read chung)) (setq kt (last chunglist)) (if (= kt "end") (progn (setq kiemtra 0) ) ) (if (/= kt "end") (progn (setq ss (nth chunglist)) (setq chung1 (read-line p)) (setq chunglist1 (read chung1)) (setq a (car chunglist1)) (setq b (car (CDR chunglist1))) (if (= ss TTT) (progn (setq pt4 (list a b)) (command "base" pt4) (command "rectangle" "@-1000,-1600" "@18200,9200") ) ) ) ) ) ) (close p) (close q) (princ) ) ;;;=====Trong luong MAX (defun C:ddtlmmax () (setq ttt tlmmax1) (command "color" 3) (ddtlm) (princ "dang chay chtrinh danh dau xe co tluong MAX") - 141 - (princ) ) ;;;=====Trong luong MIN (defun C:ddtlmmin () (setq ttt tlmmin1) (command "color" 4) (ddtlm) (princ "dang chay chtrinh danh dau xe co tluong MIN") (princ) ) ;;;======================================================== ;;;Trong luong/1dviCong suat cua xe (defun ddtl1 () (setq q (open "E:/doan/slxn1.csv" "r")) (setq p (open "E:/doan/slxn2.csv" "r")) (setq kiemtra 1) (setq i 0) (while (= kiemtra 1) (progn (setq chung (read-line q)) (setq chunglist (read chung)) (setq kt (last chunglist)) (if (= kt "end") (progn (setq kiemtra 0) ) ) (if (/= kt "end") (progn (setq ss (nth 10 chunglist)) (setq chung1 (read-line p)) (setq chunglist1 (read chung1)) (setq a (car chunglist1)) (setq b (car (CDR chunglist1))) (if (= ss TTT) (progn (setq pt4 (list a b)) (command "base" pt4) (command "rectangle" "@-1100,-1700" "@18400,9400") ) ) ) ) - 142 - ) ) (close p) (close q) (princ) ) ;;;=====Trong luong/1dviCong suat MAX (defun C:ddtl1max () (setq ttt tl1max1) (command "color" 5) (ddtl1) (princ "dang chay chtrinh danh dau xe co TL/1DVCS MAX") (princ) ) ;;;=====Trong luong/1dviCong suat MIN (defun C:ddtl1min () (setq ttt tl1min1) (command "color" 6) (ddtl1) (princ "dang chay chtrinh danh dau xe co TL/1DVCS MIN") (princ) ) ;;;======================================================== ;;;Van toc nang (defun ddvtn () (setq q (open "E:/doan/slxn1.csv" "r")) (setq p (open "E:/doan/slxn2.csv" "r")) (setq kiemtra 1) (setq i 0) (while (= kiemtra 1) (progn (setq chung (read-line q)) (setq chunglist (read chung)) (setq kt (last chunglist)) (if (= kt "end") (progn (setq kiemtra 0) ) ) (if (/= kt "end") (progn (setq ss (nth chunglist)) (setq chung1 (read-line p)) - 143 - (setq chunglist1 (read chung1)) (setq a (car chunglist1)) (setq b (car (CDR chunglist1))) (if (= ss TTT) (progn (setq pt4 (list a b)) (command "base" pt4) (command "rectangle" "@-1200,-1800" "@18600,9600") ) ) ) ) ) ) (close p) (close q) (princ) ) ;;;=====Van toc nang MAX (defun C:ddvtnmax () (setq ttt vtnmax1) (command "color" 7) (ddvtn) (princ "dang chay chtrinh danh dau xe co Van toc nang MAX") (princ) ) ;;;=====Van toc nang MIN (defun C:ddvtnmin () (setq ttt vtnmin1) (command "color" 8) (ddvtn) (princ "dang chay chtrinh danh dau xe co Van toc nang MIN") (princ) ) ;;;======================================================== ;;;VAN TOC DI CHUYEN CUA xe (defun ddvt () (setq q (open "E:/doan/slxn1.csv" "r")) (setq p (open "E:/doan/slxn2.csv" "r")) (setq kiemtra 1) (setq i 0) (while (= kiemtra 1) (progn - 144 - (setq chung (read-line q)) (setq chunglist (read chung)) (setq kt (last chunglist)) (if (= kt "end") (progn (setq kiemtra 0) ) ) (if (/= kt "end") (progn (setq ss (nth 18 chunglist)) (setq chung1 (read-line p)) (setq chunglist1 (read chung1)) (setq a (car chunglist1)) (setq b (car (CDR chunglist1))) (if (= ss TTT) (progn (setq pt4 (list a b)) (command "base" pt4) (command "rectangle" "@-1400,-2000" "@19000,10000") ) ) ) ) ) ) (close p) (close q) (princ) ) ;;;=====Vtocdichuyen MAX (defun C:ddvtmax () (setq ttt vtmax1) (command "color" 20) (ddvt) (princ "dang chay chtrinh danh dau xe co VANTOC DC MAX") (princ) ) ;;;=====VANTOC MIN (defun C:ddvtmin () (setq ttt vtmin1) (command "color" 21) (ddvt) - 145 - (princ "dang chay chtrinh danh dau xe co VANTOC DC MIN") (princ) ) ;;;========================================================== =================== ;;Chi dan (defun C:ghichuthmax () (setq pt7 (getpoint "Moi ban cho diem dat cua ghi chu:")) (command "color" 7) (command "text" pt7 "250" "0" "ghi chu" "") (command "color" 2) (command "text" "@0,-300" "200" "0" "Mau cua cong suat MAX" "") (command "color" 3) (command "text" "@0,-300" "200" "0" "Mau cua TLM MAX" "") (command "color" 5) (command "text" "@0,-300" "200" "0" "Mau cua TL/1dvcs MAX" "") (command "color" 7) (command "text" "@0,-300" "200" "0" "Mau cua VTN MAX" "") (command "color" 20) (command "text" "@0,-300" "200" "0" "Mau cua VTDC MAX" "") ) (defun C:ghichuthmin () (setq pt8 (getpoint "Moi ban cho diem dat cua ghi chu:")) (command "color" 7) (command "text" pt8 "250" "0" "ghi chu" "") (command "color" 1) (command "text" "@0,-300" "200" "0" "Mau cua cong suat MIN" "") (command "color" 4) (command "text" "@0,-300" "200" "0" "Mau cua TLM MIN" "") (command "color" 6) (command "text" "@0,-300" "200" "0" "Mau cua TL/1dvcs MIN" "") (command "color" 8) (command "text" "@0,-300" "200" "0" "Mau cua VTN MIN" "") (command "color" 21) (command "text" "@0,-300" "200" "0" "Mau cua VTDC MIN" "") ) ... Tổng quan xe nâng container Nghiên cứu đặc điểm cấu trúc xe nâng container Nghiên cứu đặt điểm thiết kế tổng thể xe nâng container chuyên dùng Lập chƣơng trình thiết kế tổng thể xe nâng container. .. giới thiết kế chế tạo xe nâng chuyên dụng để làm sở cho việc thiết kế tổng thể xe nâng chuyên dụng Việt Nam Các xe đƣợc chế tạo sử dụng tốt mơ hình sở để xem xét, nghiên cứu lựa chọn việc thiết kế. .. quan xe nâng container Chƣơng 3: Nghiên cứu đặc điểm cấu trúc xe nâng container Chƣơng 4: Nghiên cứu đặt điểm thiết kế tổng thể xe nâng container chuyên dùng Chƣơng 5: Lập chƣơng trình thiết kế