- Thoát khỏi Sketch1 và tiếp tục truy cập vào các kích thước khác trên cây chi tiết.
Chương IV: Thiết kế tham số và mô phỏng máy băm sắn với CATIA
Làm tương tự cho các tham số cần thiết.
- Tắt chế độ Recording bằng cách click vào nút .
- Vào Tool\Macro\Macros chọn vào Vo_may_bam ( là tên module vừa tạo được). Nhấn vào Edit rồi tiến hành chỉnh sửa một số chỗ như khai báo tên module, các tham số truyền vào… ta sẽ có được module truyền tham số vào mặt sàng (Xem phụ lục A).
Như vậy, đối với vỏ máy băm ta chỉ cần truyền 3 tham số cơ bản là: chiều rộng, chiều dài và chiều cao. Các thông số kích thước còn lại hoàn toàn có thể lấy theo các tham số cơ bản này.
Tương tự, theo cách thức đã nói ở trên chúng ta cũng truyền tham số và các chi tiết khác và sẽ được các module truyền tham số cho từng chi tiết. Về các module này xin vui lòng xem phụ lục ở cuối sách.
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia
CHƯƠNG V: XÂY DỰNG CHƯƠNG TRÌNH TÍNH TOÁN MÁY BĂM SẮN BẰNG VBA TRONG CATIA
5.1. Tên và các thuộc tính điều khiển của VBA trong CATIA: 5.1.1. Qui ước đặt tên các điều khiển :
Tên của các Textbox bắt đầu là txt, ở đây ta thiết kế giao diện với 8 textbox: có phần đầu là txt, phần sau là caption (tiêu đề của các nhãn bên cạnh textbox).
Ví dụ: TextBox_Nangsuat, TextBox_Hesocaplieu, vv...
Tên của các nút lệnh (command button) bắt đầu là cmd, tên các nút lệnh gồm: Command_Tinhtoan, Command_Banvelap, Command_Thoat.
Tên của các Label (nhãn) bắt đầu là lbl, ở đây ta có tất cả là 15 nhãn ta cũng đặt tên của các nhãn có phần đầu là lbl, phần sau chính là caption của nhãn.
Tên của các Farme, ở đây ta có hai Farme chính là “Tham số đầu vào” và “Tham số đầu ra”. Trong Farme của “Tham số đầu ra” có ba Farme nhỏ là “Vỏ máy băm”, “Trục dao băm” và “Động cơ”.
5.1.2. Thuộc tính của các điều khiển :
- Đối với các TextBox thuộc tính Text của nó ta để trống.
- Thuộc tính Caption của tất cả các điều khiển ta thiết kế như giao diện tính toán.
5.2. Nội dung các module:
5.2.1. Các module vẽ các chi tiết:
Các module này đều có bố cục các phần tương tự nhau được trình bày khái quát như bảng dưới :
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia
Module vẽ các chi tiết
Tên Module: Tên module vẽ chi tiết Dự án: Do_an_tot_nghiep
Nhiệm vụ: Vẽ chi tiết
Input: Các biến kích thước để cần thiết để vẽ chi tiết Output: Vẽ chi tiết theo các biến kích thước từ đầu vào Cấu trúc: Trong module chứa chương trình con dạng thủ tục Vẽ các chi tiết
Sub <tên thủ tục khai báo>
... Các câu lệnh chương trình vẽ ... End Sub 5.2.2. Module tính toán: Module tính toán Tên Module: Tinh_toan
Dự án: Do_an_tot_nghiep Nhiệm vụ: Dùng để tính toán
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia
Input: Các số liệu của đầu vào để thiết kế máy băm. Output: Các kích thước cơ bản của máy băm. (adsbygoogle = window.adsbygoogle || []).push({});
5.2.4. Module bản vẽ lắp:
Module lắp ráp
Tên Module: Ban_ve_lap
Dự án: Do_an_tot_nghiep
Nhiệm vụ: Dùng để lắp ráp các chi tiết
Input: Các kích thước của tất cả các chi tiết cần lắp ráp. Output: Lắp ráp
Cấu trúc module:
Sub <Tên thủ tục>
-Cập nhập lại bản vẽ lắp -Vào môi trường lắp ghép End Sub
5.3. Xử lí các sự kiện (các nút lệnh): 5.3.1. Nút lệnh thoát:
Nhấp đúp chuột lên nút lệnh này để viết code cho sự kiện click, trong code của sự kiện click nút lệnh này ta thực hiện gọi các hàm trong module tính toán sau đó truyền giá trị của hàm này cho đầu ra.
Private Sub Command_Tinhtoan_Click() 5.3.2. Nút lệnh bản vẽ lắp:
Private Sub Banvelap_Click()
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia
Call Vepheucap(TextBox_Dai, TextBox_Rong, TextBox_Cao) Call Vetruc1(TextBox_Dai) Call Vetruc2(TextBox_Dai) Call Diadao() Call Vebanhdai1() Call Vebanhdai2() Call Vedaydai() Call Vedongco() Call Veodo() Call Lapghep1() End Sub
Trong đó code của module Lapghep1 (lắp ghép) được lập trình như sau :
Sub Lapghep1()
Dim documents1 As Documents Set documents1 = CATIA.Documents
Dim productDocument1 As ProductDocument
Set productDocument1 = documents1.Open("E:\Do Van Hieu\May bam san.CATProduct")
Dim specsAndGeomWindow1 As SpecsAndGeomWindow Set specsAndGeomWindow1 = CATIA.ActiveWindow Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer viewer3D1.Reframe
Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D Set viewpoint3D1 = viewer3D1.Viewpoint3D Dim product1 As Product
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia
Set product1 = productDocument1.Product product1.Update
End Sub
5.3.3. Nút lệnh “Tạo mới”:
Nhấp đúp chuột lên nút lệnh này để viết code cho sự kiện click, khi sự kiện click này xảy ra thì ta tiến hành chương trình tính toán sẽ tự động xóa các dữ liệu của tham số đầu vào đã được nhập và số liệu được tính toán ở tham số đầu ra:
Private Sub Taomoi_Click() lblNangsuat.Enabled = True lblHeso.Enabled = True lblTylenap.Enabled = True lblChieudai.Enabled = True lblChieurong.Enabled = True lblChieucao.Enabled = True lblChieudaitruc.Enabled = True lblDuongkinh.Enabled = True lblSoluongdao.Enabled = True lbklKyhieu.Enabled = True Tinhtoan.Enabled = False Cmdvevomay.Enabled = False Banvelap.Enabled = False TextBox_Nangsuat.Text = "" TextBox_q.Text = "" Tylenap.Text = "" TextBox_Dai.Text = "" TextBox_Rong.Text = "" TextBox_Cao.Text = "" TextBox_daitruc.Text = "" (adsbygoogle = window.adsbygoogle || []).push({});
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia TextBox_duongkinhtruc.Text = "" TextBox_sodao.Text = "" TextBox_Tocdo.Text = "" TextBox_Kyhieu.Text = "" TextBox_Nangsuat.SetFocus End Sub 5.3.4. Nút lệnh thoát :
Private Sub Command_Thoat_Click() Call Thoat
End Sub
5.4. Xây dựng giao diện chương trình:
Từ giao diện của Catia, ta vào Tool\Macro\VisuaBasic Editor (Alt+F11) để vào giao diện VB của Catia. Trong này ta vào File\macro libraries để chọn đường dẫn tới project có chứa các module đã được tạo ra.
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia
H5.1. Cửa sổ quản lý thư viện Macro
Ở đây ta chọn tới file: E:\Do Van Hieu\VBAProject_Vi_du_1.catvba như hình trên. Nhấn vào Close để hoàn thành việc chọn thư viện macro.
Chương V: Xây dựng chương trình tính toán máy băm sắn bằng VBA trong Catia
H5.2. Thiết lập giao diện bằng VBA.