nghiên cứu, ứng dụng thiết kế động, xây dựng khung dữ liệu phục vụ thiết kế thực tiễn và giảng dạy bậc đại học ngành cơ khí

Các kỹ sư thiết kế khơng chỉ tính tốn các số liệu trên máy tính mà họ cịn ứng dụng các phần mềm mơ phỏng 3D để cĩ được cái nhìn trực quan hơn về kết cấu, mối quan hệ giữa các chi tiết tr

BỘ GIÁO DỤC VÀ ĐÀO TẠO

TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT

BỘ GIÁO DỤC VÀ ĐÀO TẠO ĐẠI HỌC SƯ PHẠM KỸ THUẬT Tp HỒ CHÍ MINH

-* -

ĐỀ TÀI:

NGHIÊN CỨU, ỨNG DỤNG THIẾT KẾ ĐỘNG, XÂY DỰNG KHUNG DỮ LIỆU PHỤC VỤ THIẾT KẾ THỰC TIỄN VÀ GIẢNG DẠY BẬC ĐẠI HỌC

NGÀNH CƠ KHÍ

Chủ nhiệm đề tài:

ThS Trần Thế San

Tp Hồ Chí Minh – 12/2008

( Mã số: B2006-22-09 )

MỤC LỤC

Mục lục ………… 1

Tóm tắt kết quả nghiên cứu ……… 2

Tổng quan……… 4

Phần thứ nhất Cơ sở tạo dữ liệu và một số chi tiết điển hình………7

1 Tương quan biên dạng hình học phẳng……… 7

2 Tương quan hình học của chi tiết………

3 Biến kích thước……… 8

4 Tương quan dữ liệu giữa các chi tiết……… 9

5 Tương quan kích thước của 2 chi tiết……… 9

6 Tương quan kích thước của 2 chi tiết theo chi tiết mẫu……… 10

7 Quan hệ họ (family) chi tiết……… 10

8 Quản lý dữ liệu bằng Microsoft Excel………11

9 Quản lý dữ liệu bằng Macro Microsoft Excel………13

10 Vẽ khai triển các hình cơ bản……… 14

11 Quan hệ giữa Matlab – Microsoft Excel – Solid Edge……… 16

12 Tạo thư viện bằng Visual Basic……… 16

Phần thứ hai

ỨNG DỤNG TẠO THƯ VIỆN BẰNG VISUAL BASIC V6.0

ÁP DỤNG

(Cơ sở dữ liệu và thiết kế được lưu trên đĩa CD kèm theo)

III A - XÂY DỰNG KHUNG CƠ SỞ DỮ LIỆU CÁC CHI TIẾT MÁY CƠ BẢN PHỤC VỤ GIẢNG DẠY VÀ HỌC TẬP CÁC MÔN HỌC: HÌNH HỌC – VẼ KỸ THUẬT, NGUYÊN LÝ – CHI TIẾT MÁY

TÓM TẮT KẾT QUẢ NGHIÊN CỨU

KHUNG DỮ LIỆU PHỤC VỤ THIẾT KẾ THỰC TIỄN VÀ GIẢNG DẠY

BẬC ĐẠI HỌC NGÀNH CƠ KHÍ Mã số: B2006-22-09

Chủ nhiệm đề tài: Trần Thế San

Cơ quan chủ trì: Trường Đại Học Sư Phạm Kỹ Thuật Tp HCM

Cơ quan phối hợp thực hiện:

- Công Ty Cơ Khí và Xây Lắp Công Nghiệp – IMECO

- Khoa Cơ Khí Chế Tạo Máy – Trường ĐHSP Kỹ Thuật Tp HCM

- Khoa Xây Dựng & CHUD – Trường ĐHSP Kỹ Thuật Tp HCM

Cá nhân phối hợp thực hiện:

- Nguyễn Ngọc Phương

- Vũ Như Phan Thiện

- Cập nhật kiến thức, bổ sung vào chương trình đào tạo đại học các ngành tự động hóa

cơ khí, cơ điện tử, chế tạo máy, thiết kế máy, cơ tin học

- Từng bước xây dựng khung cơ sở dữ liệu cơ khí tiến tới xây dựng thư viện cơ khí, kết cấu thép… trong tương lai

2 Nội Dung:

- Phân tích, lựa chọn các chi tiết và cơ cấu điển hình để xây dựng khung cơ sở dữ liệu

- Lựa chọn thiết kế thực tế của đơn vị sản xuất: Lò hơi công nghiệp

- Thiết kế và xây dựng khung cơ sở dữ liệu

- Thiết kế linh hoạt lò hơi công nghiệp

- Thiết kế linh hoạt lò hơi công nghiệp

- Thiết kế linh hoạt module cung cấp nước nóng từ năng lượng mặt trời

SUMMARY

BUILDING DATA FRAME FOR REAL DESIGN AND TECHICAL

EDUCATION Code number: B2006-22-09

Coordinator: San Tran The

Implementing Institution: University of Technical Education HCMC

Cooperating Institution (s):

- IMECO Company

- Mechanical Engineering Faculty – University of Technical Education HCMC

- Applying Mechanics & Building Faculty – University of Technical Education

HCMC

- Phuong Nguyen Ngoc

- Phan Thien Vu Nhu

- To research dynamic flexible design, applying into real productions

- To update knowledges, adding to training programs

- Building databae frame

2 Main Contents:

- Selecting, analysing typical mechanical parts and mechanism to build a database frame

- Selecting a real design productt: industrial boiler

- Design and building a database frame

- Dynamic design a industrial boiler

- Dynamic design a industial boiler

- Dynamic design solar-energy module for hot water supply

TỔNG QUAN

Trong tình hình hiện nay ứng dụng cơng nghệ thơng tin ngày càng phát triển và đa dạng, các ngành nghề khác nhau từ giải trí, học tập, kinh tế cho tới quản lý đều cĩ sự gĩp mặt của cơng nghệ thơng tin, và trong lĩnh vực kỹ thuật khơng phải là một ngoại lệ Các kỹ sư thiết kế khơng chỉ tính tốn các số liệu trên máy tính mà họ cịn ứng dụng các phần mềm mơ phỏng 3D để cĩ được cái nhìn trực quan hơn về kết cấu, mối quan hệ giữa các chi tiết trong cùng hệ thống máy

Trong thiết kế truyền thống, kỹ sư và kỹ thuật viên phải tính tốn, thiết kế dựa trên các tài liệu

kỹ thuật, vẽ trên giấy chủ yếu là các tiết diện 2D, do đĩ thường tốn nhiều cơng sức, rất khĩ hình dung tổng thể, độ tin cậy khơng cao, tốn nhiều thời gian, và rủi ro tương đối lớn khi quyết định chế tạo thử

Từ thập niên 1970 của thế kỷ trước, đã bắt đầu xuất hiện các phần mềm máy tính, các ngơn ngữ lập trình, hỗ trợ cho thiết kế, và chế tạo Ban đầu, các phần mềm này chỉ là cơng cụ hỗ trợ nhằm giảm thời gian, tăng độ tin cậy thiết kế, và tăng tính linh hoạt, dần dần chúng trở thành cơng cụ khơng thể thiếu trong thiết kế và chế tạo cơ khí Ngày nay, đã xuất hiện nhiều bộ phần mềm chuyên dùng, khơng chỉ

hỗ trợ đắc lực cho quá trình thiết kế, mà cịn cĩ cơ sở dữ liệu tương đối đầy đủ theo các tiêu chuẩn kỹ thuật quốc gia và quốc tế Vấn đề chính là chuyên biệt hĩa cơng cụ phần mềm phục vụ cho yêu cầu và mục đích sử dụng Các cơng ty thường cĩ những sản phẩm đặc thù, họ cần cĩ cơ sở dữ liệu và cơng cụ phần mềm hỗ trợ thiết kế đủ mạnh, tiện lợi, dễ sử dụng, tin cậy và cĩ tính bảo mật cao Các cơ sở đào tạo, từ bậc đại học đến cơng nhân, mong muốn cĩ khung cơ sở dữ liệu chuyên dùng phục vụ cho cơng tác đào tạo Tùy theo nhu cầu cụ thể, khung cơ sở dữ liệu này sẽ được cơng ty, cơ sở đào tạo, cập nhật,

mở rộng, nâng cấp, và chuyên biệt hĩa theo thực tế sử dụng

Trong lĩnh vực thiết kế cơ khí, các phần mềm này cịn giúp các kỹ sư thay đổi các thơng số kích thước, tương quan hình học, tương quan vị trí một cách nhanh chĩng nhằm kiểm nghiệm độ tin cậy của thiết kế, lựa chọn và cĩ thể tối ưu hĩa thiết kế theo các điều kiện cụ thể, trước khi đưa vào sản xuất thử nghiệm cũng như sản xuất hàng loạt nhằm giảm thiểu chi phí, thời gian, cơng sức Khơng những thế, các cơng cụ này cịn hỗ trợ việc quản lý các chi tiết trong một cụm máy một cách cĩ hệ thống, cho phép tích hợp với phần mềm khác để xây dựng quy trình cơng nghệ, quản lý vật tư, theo dõi tiến độ sản xuất và quản lý chất lượng sản phẩm, đồng thời cĩ thể tính tốn chi phí và giá thành

Ưu điểm cơ bản, bao gồm:

- Nhu cầu thực tế, thiết kế động các thiết bị đơn chiếc và dây chuyền đồng bộ trong cơ khí

- Ứng dụng công nghệ thông tin trong thiết kế động

- Các kết cấu cơ khí cơ bản và yêu cầu về khung cơ sở dữ liệu theo tiêu chuẩn

- Yêu cầu quản lý chất lượng theo hệ thống

Với những ưu điểm trên, và phạm vi ứng dụng của các phần mềm chuyên nghiệp khá lớn, nên nhĩm chúng tơi đưa việc tìm hiểu, nghiên cứu các khả năng ứng dụng cơng nghệ thơng tin trong thiết

kế cơ khí vào đề tài “Nghiên cứu ứng dụng thiết kế động, xây dựng khung dữ liệu phục vụ thiết kế

thực tiễn và giảng dạy bậc Đại học ngành cơ khí”

Vì quỹ thời gian cĩ hạn và để minh họa, chúng tơi chỉ giới hạn đề tài trong phạm vi ứng dụng các phần mềm: Solid Edge, Microsoft Office Excel , Visual Basic

MỤC TIÊU CỦA ĐỀ TÀI

 Tìm hiểu, nghiên cứu các khả năng ứng dụng và mối quan hệ giữa các phần mềm: Solid Edge, Microsoft Excel, Visual Basic…

 Đơn giản hóa quá trình thiết kế các chi tiết máy

 Thiết lập các mối tương quan hình học, tương quan kích thước trong một chi tiết và giữa các chi tiết với nhau

 Thiết lập khung cơ sở dữ liệu cho việc giảng dạy, học tập các môn kỹ thuật cơ sở phục vụ cho chuyên ngành chế tạo máy, bao gồm: hình họa vẽ kỹ thuật, nguyên lý máy – chi tiết máy… dựa trên chương trình khung và chương trình đang được thực hiện tại Trường Đại học Sư phạm Kỹ thuật Tp HCM

 Bước đầu xây dựng khung thư viện các chi tiết, cụm chi tiết máy (tiêu chuẩn và chưa tiêu chuẩn), vật liệu thép và gang thông dụng

 Kết hợp với đơn vị bạn, lựa chọn sản phẩm để thực hiện thiết kế động

NỘI DUNG

Xuất phát từ yêu cầu của thực tiễn sản xuất và đào tạo cần tập trung nghiên cứu ứng dụng thực tiễn theo hướng công nghệ, do đó quá trình nghiên cứu phải bảo đảm đồng bộ giữa nhu cầu thực tế, đào tạo và định hướng phát triển Trên cơ sở đó, nội dung đề tài sẽ bao gồm

 Ứng dụng công nghệ thông tin trong kỹ thuật nhằm hỗ trợ thiết kế động các chi tiết, cơ cấu, cụm máy trong ngành cơ khí, nâng cao tính linh hoạt khi thiết kế các sản phẩm

 Lựa chọn cơ cấu, cụm máy điển hình để thiết kế phù hợp các điều kiện cụ thể

 Thiết lập khung cơ sở dữ liệu dựa trên các tiêu chuẩn công nghiệp hiện hành Cơ sở dữ liệu mở để có thể cập nhật và nâng cấp tùy theo yêu cầu sử dụng và sự phát triển trong tương lai

 Thiết kế động cụm chi tiết hoặc hệ thống với các biến là thông số hình học và thông số vật lý

 Khung dữ liệu cơ bản dựa trên các nguyên lý thiết kế xét đến chương trình đào tạo các ngành liên quan tại trường ĐHSPKT (CTM, CĐT, CNT, Cơ tin, TKM,…)

 Trình tự chế tạo một sản phẩm cơ khí thường thông qua 3 bước: Tính toán  Thiết kế  Chế tạo Trong khi thiết kế chi tiết hay cơ cấu, các kích thuớc tự do, hình

dạng, có những kích thước rất quan trọng quyết định đến khả năng làm việc của chi tiết, các kích thước này là kết quả của các bài toán kỹ thuật Đây chính là mục đích của đề tài

 Lựa chọn cụm chi tiết và kết cấu điển hình

 Phân tích kích thước ban đầu các chi tiết

 Tương quan kích thước hình học

 Các kích thước thay đổi trong khi thiết kế

 Thiết kế một chi tiết dựa trên chi tiết có liên quan

 Khái niệm tạo 2 chi tiết mới từ chi tiết đã có

 Cơ sở dữ liệu và quản lý dữ liệu thiết kế dạng bảng Excel

 Tạo module thiết kế bằng VB hoặc VC

 Dữ liệu thiết kế nhận từ kết quả tính toán bằng Matlab

 Xây dựng cơ sở dữ liệu theo hệ thống với tập hợp các module mở liên hệ chặt chẽ với nhau, mỗi module có thể được mở rộng cập nhật và năng cấp theo yêu cầu và hướng phát triển cụ thể Tùy theo điều kiện thực tế có thể bổ sung các module mới, xây dựng các module con theo hệ thống lồng ghép đa cấp

Việc nghiên cứu thiết kế động các chi tiết, cơ cấu, cụm máy được thực hiện với sự hỗ

trợ cũa các phần mềm Solid-Edge, Microsoft Excel, Visual Basic, Matlab, Unigraphics…

Dựa trên tiêu chuẩn quản lý chất lượng ISO-9000, tiêu chuẩn chất lượng quốc gia và quốc tế, tiêu chuẩn quá trình đào tạo, đề tài được thực hiện theo hướng chuẩn hoá từ

Khung cơ sở dữ liệu dựa trên module được tiêu chuẩn hoá theo hướng mở, để có thể tiếp tục phát triển nhưng vẫn bảo đảm tính an toàn và thực tiễn

Các bước thực hiện bao gồm : xây dựng cơ sở tạo dữ liệu dựa trên các quan hệ vật lý, hình học, và kích thước của nhĩm chi tiết cùng loại, tạo form điều khiển bằng nút bấm, tạo form thiết kế chi tiết hoặc cụm chi tiết Viết chương trình và cấu trúc code của Visual Basic liên kết với các phần mềm khác ( Microsoft Excel để quản lý dữ liệu, Solid Edge để vẽ 3D…) Thực hiện thiết kế động các chi tiết máy cơ bản, trục, bánh răng, hộp giảm tốc, bu lơng, một số cơ cấu truyền động, … phục vụ giảng dạy và học tập, chuẩn bị khung cơ sở dữ liệu cho thiết kế thực tế Kết hợp với đơn vị bạn, thực hiện thiết kế động lị hơi cơng nghiệp,… Các bước thực hiện bao gồm:

Phần Thứ Nhất

CƠ SỞ TẠO DỮ LIỆU VÀ MỘT SỐ CHI TIẾT ĐIỂN HÌNH

13 Tương quan biên dạng hình học phẳng

 Ghi kích thước

 Ràng buộc: nối, song song, vuông góc

 Gióng hàng đứng, ngang

 Định nghĩa kích thước bằng nhau…

 Các tham số biến kích thước, có thể chọn bu lơng tiêu chuẩn để minh họa Bu lơng có 2 kích thước thay đổi là đường kính và chiều dài bulông

14 Tương quan hình học

của chi tiết

15 Biến kích thước

16 Tương quan dữ liệu giữa các chi tiết, các lệnh Copylink & Pastelink

17 Tương quan kích thước của 2 chi tiết theo chi tiết mẫu được tạo trước theo chức

năng Insert Part

Chi tiết mẫu HGT Chi tiết thân HGT Chi tiết nắp HGT

Kích thước của chi tiết HGT (hộp giảm tốc) được xây dựng trước, sự thay đổi kích thước của chi tiết HGT sẽ dẫn đến thay đổi kích thước các chi tiết thân và nắp HGT một cách tự động

18 Tương quan kích thước của 2 chi tiết theo chi tiết mẫu được tạo trước theo chức

năng Divide Part

Chi tiết TM Chi tiết thân TM Chi tiết nắp TM

Kích thước của chi tiết TM được xây dựng trước, sau đó được chia thành 2 chi tiết thân và nắp Sự thay đổi kích thước của chi tiết TM sẽ dẫn đến thay đổi kích thước các chi tiết thân và nắp TM một cách tự động

19 Quan hệ họ (family) chi tiết

20 Quản lý dữ liệu bằng Microsoft Excel

21 Quản lý dữ liệu bằng Macro Microsoft Excel

Chương trình Macro

Sub UpdateSolidEdge()

Dim SelRow As Integer

Dim Sel As Object

Dim IApp As Object

Dim Variables As Object

Dim Feature As Object

Dim A As Double, B As Double, C As Double, D As Double, E As Double

Dim F As Double, G As Double, H As Double, I As Double, J As Double, K As Double

Dim UseLinks As Boolean

Sheets("Sheet1").Rows(SelRow & ":" & SelRow).Copy (Sheets("Sheet2").Rows("1:1")) Else

On Error Resume Next

Set IApp = GetObject(, "SolidEdge.Application")

If Err Then

MsgBox "Solid Edge must be running"

Else

Set Vars = IApp.ActiveDocument.Variables

If UCase(IApp.ActiveDocument.Name) <> "TRUC.PAR" Then

MsgBox "The document Truc.par must be active."

Set Vars = Nothing

Set IApp = Nothing

Set Vars = Nothing

Set IApp = Nothing

22 Vẽ khai triển các hình cơ bản

 Khai triển mặt trụ:

_ Để khai triển một mặt trụ ta phải xem mặt trụ là tập hợp các mặt bên của một hình lăng trụ được chia đều trên vòng tròn đáy của hình trụ Việc khai triển có chính xác cao hay thấp là dựa vào việc ta chia mặt lăng trụ nhiều hay ít

_ Ta có thể xem các dạng hình trụ cần khai triển là một họ quan hệ hình học Việc thay đổi các kích thước trong quan hệ hình học của họ hình trụ thật đơn giản với Solid Edge chỉ cần một cái click chuột, thay đổi thông số của họ rồi cập nhật thế là ta đã khai triển được cả họ hình trụ mà không phải tốn thời gian để khai triển từng thành viên trong đó

Một mặt trụ được chia số múi mặt lăng trụ khác nhau

23 Quan hệ giữa Matlab – Microsoft Excel – Solid Edge

24 Tạo thƣ viện bằng Visual Basic

Quản lý việc thiết kế các chi tiết bằng ngôn ngữ lập trình Visual Basic

Từ những khả năng độc đáo trên của Solid Edge ta có thể thực hiện các liên kết trong Solid Edge với ngôn ngữ lập trình Visual Basic, bước đầu thiết kế các chi tiết trong Solid Edge bằng ngôn ngữ lập trình Visual Basic

Đây cũng chính là phần nội dung quan trọng nhất mà chúng tôi bước đầu nghiên cứu, tiên phong cho một hướng mới trong thiết kế Đó là tạo dựng một thư viên người dùng riêng trong vấn đề thiết kế các chi tiết tiêu chuẩn cũng như một thư viện riêng phục vụ trong công việc giảng dạy

Form thiết kế trục

Form thiết kế bánh răng

Nhập dữ liệu thiết kế trục

Trục đã được thiết kế

Nhập dữ liệu thiết kế bánh răng ngoài

Bánh răng ngoài đã được thiết kế

Nhập liệu thiết kế bánh răng trong

Phần Thứ Hai

ỨNG DỤNG TẠO THƢ VIỆN BẰNG VISUAL BASIC V6.0 II.A TẠO FORM BẰNG VISUAL BASIC V6.0

I Tạo form:

_ Khởi động Visual Basic V6.0

_ Trong hộp thoại New Project chọn Standard EXE

_ Trong hộp thoại Properties – Form

Đặt tên cho form

Thiết lập các thuộc tính của form

_ Quản lý Project và form bằng cửa sổ Project Explorer

Thêm Project, Form, …

Lưu, xóa Project, Form, …

II Tạo form điều khiển bằng nút bấm:

1 Khởi động thành phần điều khiển:

_ Trên menu bar chọn:

Tại vị trí Control bấm chuột phải chọn Properties

Trong hộp thoại Property Pages điều chỉnh số lượng nút điều khiên, cũng như các thuộc tính của nút điều khiển

2 Tạo hình ảnh trên nút bằng ImageList:

_ Trên thanh Generall

Chọn nút ImageList

_ Trên form, định vị trí ImageList

_ Tại vị trí ImageList bấm chuột phải chọn Properties

Trong hộp thoại Property Pages chọn các hình cần thiết chèn vô, cũng như thiết lập các thuộc tính cho ImagesList

3 Cấu trúc lệnh điều khiển nút bấm:

_ Tại vị trí nút điều khiển double click sẽ hiện ra cửa sổ code

_ Code điều khiển nụt bấm:

Private Sub ABC_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Key

Case "Truc"

<các câu lệnh điều khiển form cho nút bấm tạo trục>

Case "Banh rang"

<các câu lệnh điều khiển form cho nút bấm tạo bánh răng>

Case "Hop Giam Toc"

<các câu lệnh điều khiển form cho nút bấm thiết kế hộp giảm tốc>

III Tạo các form thiết kế trục, báng răng, hộp giảm tốc, Pannel nước:

1 Liên kết với các thành phần tham khảo:

_ Trên menu bar chọn:

Project > References …

_ Trong hộp thoại References – Project chọn

Các liên kết với Solid Edge, Excel

2 Tạo các form thiết kế:

_ Trên thanh General chọn:

Điều khiển Label tạo các thông tin trên form

Điều khiển Textbox tạo các ô nhập dữ liệu

Điều khiển Combobox tạo dữ liệu lựa chọn

Điều khiển Command tạo nút lệnh

Điều khiển Checkobox tạo dữ liệu lựa chọn

Điều khiển Checkobox tạo dữ liệu lựa chọn

_ Thiết lập các thuộc tính của các điều khiển thông qua Properties Window (F4) _ Form thiết kế trục:

_ Form thiết kế bánh răng

_ Form thiết kế hộp giảm tốc:

_ Form thiết kế PN nước:

II.B MỘT VÀI CẤU TRÚC CODE CỦA VISUAL BASIC V6.0

I Điều khiển các thành phần trên trục:

1 Điều khiển checkbox:

_ Sử dụng các checkbox để điều khiển các thành phần khác

_ Đoạn code ví dụ:

Private Sub Check1_Click()

If Check1.Value = 1 Then (checkbox được chọn)

TextXT1.Enabled = True (Textbox – XT1 nổi) TextBT1.Enabled = True (Textbox – BT1 nổi)

TextLT1.Enabled = True (Textbox – LT1 nổi)

TextHT1.Enabled = True (Textbox – HT1 nổi)

TextXT1.Enabled = False (Textbox – XT1 ẩn)

TextXT1.Text = "" (Textbox – XT1 không giá trị) TextBT1.Enabled = False (Textbox – XT1 ẩn)

TextBT1.Text = "" (Textbox – XT1 không giá trị) TextLT1.Enabled = False (Textbox – XT1 ẩn)

TextLT1.Text = "" (Textbox – XT1 không giá trị) TextHT1.Enabled = False (Textbox – XT1 ẩn)

TextHT1.Text = "" (Textbox – XT1 không giá trị) End If

End Sub

2 Điều khiển Combobox:

_ Tương tự như checkbox, Combobox cũng dùng điều khiển các thành phần khác _ Đoạn code ví dụ:

Private Sub ChonTruc_Click()

Select Case ChonTruc.Text

Case "Truc 1 Bac"

< các lệnh để điều khiển thiết kế trụ 1 bậc >

Case "Truc 2 Bac"

< các lệnh để điều khiển thiết kế trụ 2 bậc >

Case "Truc 3 Bac"

< các lệnh để điều khiển thiết kế trụ 3 bậc >

Case "Truc 4 Bac"

< các lệnh để điều khiển thiết kế trụ 4 bậc >

Case "Truc 5 Bac"

< các lệnh để điều khiển thiết kế trụ 5 bậc >

II Một số cấu trúc lệnh liên kết với Excel:

1 Cấu trúc lệnh liên quan đến Excel:

Dim oExcel As Excel.Application (khai báo biến điều khiển bảng tính Excel) Set oExcel = New Excel.Application (gán bảng tính Excel cho biến vừa khai báo) 'mo bang tinh hop giam toc (mở bảng tính theo đường dẫn phía dưới)

' -

Dim oWB As Excel.Workbook

Set oWB = oExcel.Workbooks.Open("c:\ThuVienChuan\hop giam toc\dl_hop_giam_toc")

'mo WorkSheet (mở sheet trong bảng tính trên)

' -

Dim oWS As Excel.Worksheet

Set oWS = oExcel.Worksheets("Dong_co")

2 Cấu trúc lệnh lấy dữ liệu từ Visual Basic gán vào một ô của bảng tính Excel:

'luc vong

Dim rngL_vong As Excel.Range

Set rngL_vong = oWS.Range("A6") (gán dữ liệu từ textbox và ô A6 trong Excel) rngL_vong = txtL_vong.Text

'Van toc tang

Dim rngV_tang As Excel.Range

Set rngV_tang = oWS.Range("B6")

rngV_tang = txtV_tang.Text

'Duong kinh tang

Dim rngD_tang As Excel.Range

Set rngD_tang = oWS.Range("C6")

rngD_tang = txtD_tang.Text

3 Cấu trúc lệnh lấy dữ liệu từ một ô của bảng tính Excel gán vào cho Visual Basic:

'lay gia tri cong suat can thiet

Dim rngCsuat_ct As Excel.Range

Set rngCsuat_ct = oWS.Range("I23")

txtCsuat_ct.Text = rngCsuat_ct (gán giá trị ô I23 cho giá trị của textbox)

III Cấu trúc lệnh quan hệ giữa Visual Basic với SolidEdge:

1 Khai báo mở đầu cho một chương trình:

„Khai báo biến

Dim objApp As SolidEdgeFramework.Application

Dim objDoc As SolidEdgePart.PartDocument

Dim lngStatus As Long

Dim sDumpStatus As String

' Hằng số Pi

Const PI = 3.14159265358979

' Tạo Application với những cài đặt đặc biệt

On Error Resume Next

Set objApp = GetObject(, "SolidEdge.Application")

If Err Then

Err.Clear

Set objApp = CreateObject("SolidEdge.Application")

Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument")

' Xóa các đối tượng

Set objApp = Nothing

Set objDoc = Nothing

2 Tạo khối cơ bản đầu tiên:

Dim objProfile(1 To 2) As SolidEdgePart.Profile

Dim objExtProt As SolidEdgePart.ExtrudedProtrusion

Dim objModel As SolidEdgePart.Model

Dim lngStatus As Long

Dim sDumpStatus As String

„Tạo mặt phẳng tham chiếu cơ bản - (1): (xy); (2):(xz); (3):(yz)

objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:=objDoc.RefPlanes(3))

„Vẽ biên dạng cơ bản

…………(Tạo biên dạng cho khối cơ bản)

„Kiểm tra độ kín đường biên dạng

lngStatus = objProfile(1).End(ValidationCriteria:=igProfileClosed)

If lngStatus <> 0 Then

MsgBox ("Biên dạng không kín")

End If

'Tạo Base Extruded Protrusion Feature

Set objModel = objDoc.Models.AddFiniteExtrudedProtrusion(NumberOfProfiles:=1, _ profileArray:=objProfile, ProfilePlaneSide:= _

igRight, ExtrusionDistance:=0.05)

objProfile(1).Visible = False

„Kiểm tra tình trạng của khối cơ bản

If objModel.ExtrudedProtrusions(1).Status <> igFeatureOK Then

3 Các cú pháp lệnh vẽ biên dạng profile:

a Vẽ biên dạng là đường thẳng:

„Tập hợp các kiểu vẽ đường thẳng

Dim ObjLines As SolidEdgeFrameworkSupport.Lines2d

Set ObjLines = ObjProfile().Lines2d

Dim objLine(1 to i) As SolidEdgeFrameworkSupport.Line2d

Set ObjLine(i) = ObjLines.<funtion>

Funtion: (Member of SolidEdgeFrameworkSupport.Lines2d)

_ AddBy2Points(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Line2d _ AddByPointAngleLength(x As Double, y As Double, Angle As Double, Length As Double) As Line2d

_ Duplicate([XDistance] As Double, [YDistance] As Double) As Object

set objLine(i) = objLine(i-1).Duplicate()

_ Cut() (call objLine(i).cut)

_ Delete() (call objLine(i).delete)

_ Angle() (dbAng = objLine(i).Angle; objLine(i).Angle = dbAng)

_ Extend(x As Double, y As Double, TargetObj As Object)

_ GetEndPoint(x As Double, y As Double)

_ GetStartPoint(x As Double, y As Double)

_ Trim(x As Double, y As Double, CutObj1 As Object, [CutObj2])

b Vẽ biên dạng là đường tròn:

„Tập hợp các kiểu đường tròn

Dim objCircles As SolidEdgeFrameworkSupport.Circles2d

Set objCircles = objProfile().Circles2d

(Set ObjLines = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:=

objDoc.RefPlanes(3)).Circles2d)

Set ObjCircle(i) = objCircles.<funtion>

Call ObjCircles.<funtion>

„Các lệnh vẽ đường tròn

Dim objCircle(1 to i) As SolidEdgeFrameworkSupport.Circle2d

Set objCircle(i) = objCircles.<funtion>

Funtion: (Member of SolidEdgeFrameworkSupport.Circles2d)

_ AddBy3Points(x1 As Double, y1 As Double, x2 As Double, y2 As Double, x3 As Double, y3 As Double) As Circle2d

_ AddByCenterRadius(x As Double, y As Double, Radius As Double) As Circle2d

_ Duplicate([XDistance], [YDistance]) As Object

Set objCircle(i) = objCircle(j).Duplicate()

_ GetCenterPoint(x As Double, y As Double)

Call objCirc1.GetCenterPoint(x:=x, y:=y)

_ Move(XFrom As Double, YFrom As Double, XTo As Double, YTo As Double)

_ SetCenterPoint(x As Double, y As Double)

_ Trim(x As Double, y As Double, CutObj1 As Object, [CutObj2])

4 Các cú pháp lệnh tạo hình khối:

a Tạo mặt phẳng tham chiếu:

Dim objRefPln As SolidEdgepart.RefPlane

Set objRefPln = objDoc.RefPlanes.<funtion>

Funtion:

_ AddAngularByAngle(ParentPlane As Object, Angle As Double, NormalSide As ReferenceElementConstants, Pivot As Object, PivotOrigin As ReferenceElementConstants, [Local]) As RefPlane

_ AddParallelByDistance(ParentPlane As Object, Distance As Double, NormalSide As ReferenceElementConstants, [Pivot], [PivotOrigin], [Local], [FlipNormal]) As RefPlane Set objRefPln = objDoc.RefPlanes.AddParallelByDistance

(ParentPlane:=objDoc.RefPlanes(2),

Distance:=0.01, NormalSide:=igRight)

_ AddParallelByTangent(ParentPlane As Object, TangentFace As Object, TangentPositionFlag As KeyPointExtentConstants, [Pivot], [PivotOrigin], [Local]) As RefPlane

Dim objModel As SolidEdgepart.Model

Set objExtProt = objModel.ExtrudedProtrusions.<funtion>

Fution:

_ AddFinite(Profile As Profile, ProfileSide As FeaturePropertyConstants, ProfilePlaneSide

As FeaturePropertyConstants, Depth As Double) As ExtrudedProtrusion

(Set objExtProt = objModel.ExtrudedProtrusions.AddFinite(Profile:=objProf, ProfileSide:=igLeft, profileplaneSide:= _igRight, Depth:=0.1))

FeaturePropertyConstants: _ igleft : kéo về bên trái

(ProfilePalneside) _ igright : kéo về bên phải

_ igsymmetric : kéo về hai bên

c Tạo khối ExtrudeCutout:

Dim objExtCut As SolidEdgePart.ExtrudedCutout

Dim objModel As SolidEdgePart.Model

Set objExtCut = objModel.ExtrudedCutouts.<funtion>

Funtion:

_ AddFinite(Profile As Profile, ProfileSide As FeaturePropertyConstants, ProfilePlaneSide

As FeaturePropertyConstants, Depth As Double) As ExtrudedCutout

Set objExtCut = objModel.ExtrudedCutouts.AddFinite(Profile:=objProf, ProfileSide:=igLeft,

igRight, Depth:=0.1)

d Tạo khối tròn xoay Revoled:

„Chọn mặt phẳng tạo biên dạng xoay

„Vẽ biên dạng xoay

„Vẽ đường tâm xoay

Set objLine = objProfile.Lines2d.<funtion>

Set objRefAxis = objProfile.SetAxisOfRevolution(lineforaxis:=objLine)

'Tạo khối vật thể xoay revoled

Set objRevProt = objModel.RevolvedProtrusions.<funtion>

Funtion:

_ AddFiniteRevolvedProtrusion(NumberOfProfiles As Long, ProfileArray() As Object, ReferenceAxis As RefAxis, ProfilePlaneSide As FeaturePropertyConstants, AngleofRevolution As Double, [KeyPointOrTangentFace], [KeyPointFlags]) As Model Set objRevProt = objModel.RevolvedProtrusions.AddFinite

(Profile:=objProfile,RefAxis:=objRefAxis, ProfileSide:=igLeft, ProfilePlaneSide:=igLeft, AngleOfRevolution:=PI)

Phần Thứ Ba

ÁP DỤNG

(Cơ sở dữ liệu và thiết kế được lưu trên đĩa CD kèm theo)

III A - XÂY DỰNG KHUNG CƠ SỞ DỮ LIỆU CÁC CHI TIẾT MÁY CƠ BẢN PHỤC VỤ GIẢNG DẠY VÀ HỌC TẬP CÁC MÔN HỌC: HÌNH HỌC – VẼ KỸ THUẬT, NGUYÊN LÝ – CHI TIẾT MÁY

1- BÀI TẬP HÌNH HỌC – VẼ KỸ THUẬT:

+ CÁC MẶT HÌNH HỌC CƠ BẢN









+ GIAO TUYẾN GIỮA MẶT PHẲNG VỚI CÁC KHỐI HÌNH HỌC CƠ BẢN

+ GIAO TUYẾN GIỮA CÁC KHỐI HÌNH HỌC CƠ BẢN

2- CHI TIẾT MÁY VÀ CƠ CẤU TRYỀN ĐỘNG: