Serials Inventor

Thay Đổi Màu Hình Chiếu Trong Inventor Trùng Với Màu Assembly

Posted on by Tùng Quang

Thay Đổi Màu Hình Chiếu Trong Inventor Trùng Với Màu Assembly

Mục lục ẩn
Thay Đổi Màu Hình Chiếu Trong Inventor Trùng Với Màu Assembly
1. Giới Thiệu
2. Cách Đổi Màu Hình Chiếu Thủ Công Trong Inventor
3. Sử Dụng Macro Để Thay Đổi Màu Của Hình Chiếu Trong Drawing
3.1. Đoạn Mã VBA Để Thay Đổi Màu Của Hình Chiếu
Cách Sử Dụng Macro
Thêm Nút Lệnh Cho Macro
4. Kết Luận
5. Xem Thêm Bài Viết Liên Quan

Bài viết sau đây hướng dẫn bạn cách thay đổi màu các hình chiếu trong Inventor sao cho trùng với màu của các chi tiết Part trong Assembly, giúp bạn dễ dàng phân biệt các chi tiết hơn trong bản vẽ.

1. Giới Thiệu

Trong quá trình thiết kế và tạo bản vẽ kỹ thuật trên Inventor, việc phân biệt các chi tiết trong bản vẽ Assembly là rất quan trọng để đảm bảo tính chính xác và hiệu quả trong sản xuất. Một trong những cách hiệu quả để làm điều này là thay đổi màu các hình chiếu trong Drawing sao cho trùng với màu của các chi tiết Part trong Assembly. Điều này không chỉ giúp bạn dễ dàng nhận diện mà còn cải thiện tính thẩm mỹ của bản vẽ.

Gần đây, trong một khóa đào tạo Inventor cho một công ty tại Bình Dương, CAMMECH đã nhận được một câu hỏi rất hay:

“Sử dụng lệnh gì của Inventor để đổi màu các đường curve của các hình chiếu trong khi xuất bản vẽ Drawing trùng với màu của các Part trong Assembly?”

Sau khi nghiên cứu và tham khảo các tài liệu, CAMMECH đã đưa ra giải pháp sử dụng Macro trong Inventor để thực hiện việc này một cách tự động và đơn giản nhất. Dưới đây là hướng dẫn chi tiết về cách thực hiện.

2. Cách Đổi Màu Hình Chiếu Thủ Công Trong Inventor

Nếu bạn muốn thay đổi màu các hình chiếu một cách thủ công, bạn có thể thực hiện theo các bước đơn giản sau:

  1. Chọn Chi Tiết Trên Thanh Model:
    • Trong phần Model, chọn vào chi tiết mà bạn muốn thay đổi màu.
  2. Chọn Select As Edge:
    • Nhấp chuột phải vào chi tiết đã chọn và chọn Select As Edge từ menu ngữ cảnh.
  3. Mở Properties:
    • Tiếp tục nhấp chuột phải và chọn Properties để mở bảng thuộc tính của chi tiết.
  4. Thay Đổi Màu Sắc:
    • Trong bảng Properties, chọn mục Color và chọn màu bạn muốn áp dụng cho chi tiết đó.

Lưu Ý: Việc thay đổi màu thủ công này cần được lặp lại cho từng chi tiết trong bản vẽ, điều này có thể mất thời gian nếu bản vẽ có nhiều chi tiết.

3. Sử Dụng Macro Để Thay Đổi Màu Của Hình Chiếu Trong Drawing

Để tiết kiệm thời gian và nâng cao hiệu quả, bạn có thể sử dụng Macro trong Inventor để tự động hóa quá trình thay đổi màu các hình chiếu sao cho trùng với màu của các chi tiết Part trong Assembly. Dưới đây là hướng dẫn chi tiết:

3.1. Đoạn Mã VBA Để Thay Đổi Màu Của Hình Chiếu

Đoạn mã VBA dưới đây được tham khảo và sử dụng để thực hiện việc thay đổi màu các hình chiếu trong Drawing một cách tự động:

vba
Public Sub ChangeLayerOfOccurrenceCurves()
' Get the active drawing document.
Dim drawDoc As DrawingDocument
Set drawDoc = ThisApplication.ActiveDocument‘ Have the user select a drawing view.
Dim drawView As DrawingView
Set drawView = ThisApplication.CommandManager.Pick( _
kDrawingViewFilter, “Select a drawing view.”)

Dim docDesc As DocumentDescriptor
Set docDesc = drawView.ReferencedDocumentDescriptor

‘ Verify that the selected drawing view is of an assembly.
If docDesc.ReferencedDocumentType <> kAssemblyDocumentObject Then
MsgBox “The selected view must be of an assembly.”
Exit Sub
End If

‘ Get the component definition for the assembly.
Dim asmDef As AssemblyComponentDefinition
Set asmDef = docDesc.ReferencedDocument.ComponentDefinition

‘ Process the occurrences, wrapping it in a transaction so the
‘ entire process can be undone with a single undo operation.
Dim trans As Transaction
Set trans = ThisApplication.TransactionManager.StartTransaction( _
drawDoc, “Change drawing view color”)

‘ Call the recursive function that does all the work.
Call ProcessAssemblyColor(drawView, asmDef.Occurrences)
trans.End
End Sub

Private Sub ProcessAssemblyColor(drawView As DrawingView, _
Occurrences As ComponentOccurrences)
‘ Iterate through the current collection of occurrences.
Dim occ As ComponentOccurrence
For Each occ In Occurrences
‘ Check to see if this occurrence is a part or assembly.
If occ.DefinitionDocumentType = kPartDocumentObject Then
‘ ** It’s a part so process the color.

‘ Get the render style of the occurrence.
Dim color As RenderStyle
Dim sourceType As StyleSourceTypeEnum
Set color = occ.GetRenderStyle(sourceType)

‘ Get the TransientsObjects object to use later.
Dim transObjs As TransientObjects
Set transObjs = ThisApplication.TransientObjects

‘ Verify that a layer exists for this color.
Dim layers As LayersEnumerator
Set layers = drawView.Parent.Parent.StylesManager.layers

Dim drawDoc As DrawingDocument
Set drawDoc = drawView.Parent.Parent

On Error Resume Next
Dim colorLayer As Layer
Set colorLayer = layers.Item(color.Name)

If Err.Number <> 0 Then
On Error GoTo 0
‘ Get the diffuse color for the render style.
Dim red As Byte
Dim green As Byte
Dim blue As Byte

‘ Create a color object that is the diffuse color.
Call color.GetDiffuseColor(red, green, blue)
Dim newColor As color
Set newColor = transObjs.CreateColor(red, green, blue)

‘ Copy an arbitrary layer giving it the name
‘ of the render style.
Set colorLayer = layers.Item(1).Copy(color.Name)

‘ Set the attributes of the layer to use the color,
‘ have a solid line type, and a specific width.
colorLayer.color = newColor
colorLayer.LineType = kContinuousLineType
colorLayer.LineWeight = 0.02
End If
On Error GoTo 0

‘ Get all of the curves associated with this occurrence.
On Error Resume Next
Dim drawcurves As DrawingCurvesEnumerator
Set drawcurves = drawView.DrawingCurves(occ)
If Err.Number = 0 Then
On Error GoTo 0

‘ Create an empty collection.
Dim objColl As ObjectCollection
Set objColl = transObjs.CreateObjectCollection()

‘ Add the curve segments to the collection.
Dim drawCurve As DrawingCurve
For Each drawCurve In drawcurves
Dim segment As DrawingCurveSegment
For Each segment In drawCurve.Segments
objColl.Add segment
Next
Next

‘ Change the layer of all of the segments.
Call drawView.Parent.ChangeLayer(objColl, colorLayer)
End If
On Error GoTo 0
Else
‘ It’s an assembly so process its contents.
Call ProcessAssemblyColor(drawView, occ.SubOccurrences)
End If
Next
End Sub

Cách Sử Dụng Macro

  1. Mở Inventor và Tải Bản Vẽ:
    • Mở phần mềm Inventor và tải bản vẽ (Drawing) mà bạn muốn thay đổi màu các hình chiếu.
  2. Mở VBA Editor:
    • Nhấn Alt + F11 để mở cửa sổ VBA Editor.
  3. Tạo Module Mới:
    • Trong VBA Editor, chọn Insert > Module để tạo một module mới.
  4. Dán Đoạn Mã VBA:
    • Sao chép đoạn mã VBA trên và dán vào module mới tạo.
  5. Chạy Macro:
    • Đóng VBA Editor và quay lại Inventor.
    • Vào Tools > Macro > Run và chọn macro ChangeLayerOfOccurrenceCurves để chạy.
  6. Kết Quả:
    • Macro sẽ tự động thay đổi màu các hình chiếu trong Drawing sao cho trùng với màu của các Part trong Assembly.
    • Một thông báo sẽ hiện lên khi quá trình hoàn tất thành công.

Lưu Ý: Đảm bảo rằng các chi tiết trong Assembly đã được áp dụng màu sắc chính xác trước khi chạy macro để kết quả thay đổi màu hình chiếu đạt được sự nhất quán mong muốn.

Thêm Nút Lệnh Cho Macro

Sau khi tạo được module cho đoạn mã VBA trên, bạn có thể tạo một nút lệnh (Tool/Customize) trong phần Drawing để tiện sử dụng:

  1. Mở Customize Dialog:
    • Vào Tools > Customize để mở hộp thoại tùy chỉnh.
  2. Thêm Nút Lệnh Mới:
    • Chọn tab Commands, tìm phần Macros.
    • Kéo và thả macro ChangeLayerOfOccurrenceCurves vào thanh công cụ hoặc một tab tùy ý.
  3. Đặt Tên và Biểu Tượng:
    • Bạn có thể đặt tên và chọn biểu tượng cho nút lệnh để dễ dàng nhận biết.
  4. Sử Dụng Nút Lệnh:
    • Bây giờ, bạn có thể nhấp vào nút lệnh này bất cứ khi nào cần thay đổi màu các hình chiếu trong Drawing.

4. Kết Luận

Việc thay đổi màu các hình chiếu trong Inventor để trùng với màu của các chi tiết Part trong Assembly không chỉ giúp bạn dễ dàng phân biệt các chi tiết mà còn nâng cao tính chuyên nghiệp và thẩm mỹ của bản vẽ kỹ thuật. Bạn có thể thực hiện việc này một cách thủ công thông qua giao diện người dùng hoặc tự động hóa quá trình bằng cách sử dụng Macro như hướng dẫn ở trên.

Hy vọng bài viết này đã cung cấp cho bạn những kiến thức cần thiết để nâng cao hiệu quả trong quá trình thiết kế và tạo bản vẽ trên Inventor. Nếu bạn có bất kỳ thắc mắc hoặc cần hỗ trợ thêm, đừng ngần ngại liên hệ với Ánh Dương để được tư vấn và hỗ trợ.

Chúc bạn thành công!

5. Xem Thêm Bài Viết Liên Quan

Hướng Dẫn Đo Kích Thước Sketch Trên Inventor - Phần 2

Hướng Dẫn Phân Tích Ứng Suất và Kiểm Nghiệm Độ Bền Trên Inventor

—Thay Đổi Màu Hình Chiếu Trong Inventor Trùng Với Màu Assembly—

Để lại một bình luận

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

Đang xử lý thông tin...

Contact Me on Zalo
Số điện thoại
038.2217.980