Tủ đựng filament thiết kế vượt trội cho máy in 3D

Danh sách vật liệu với các liên kết ở cuối cùng. Một số liên kết là một phần của chương trình Amazon Associate, và tôi có thể nhận được khoản bồi thường từ các giao dịch đủ điều kiện. Giới thiệu Tủ Filament Overengineered. Hệ thống sử dụng RepRack: Hệ thống giữ cuộn và lưu trữ mã nguồn mở của Repkord để giữ mọi thứ và thêm các giá đỡ nhãn từ tính cho nam châm 10x3, mẫu nhãn InDesign và mẫu theo dõi Excel. Các nhãn có mã vạch, được quét bằng một máy quét mã vạch giá rẻ trên Amazon và một máy in nhiệt để phù hợp với các nhãn kích thước 2.25" x 1.5". Chỉ cần nhấp vào ô xanh Thêm và quét. Macro sẽ thêm một mục vào nhật ký và cập nhật số lượng trong bảng tính. Ô sẽ chuyển sang màu đỏ nếu số lượng giảm xuống 0, nhưng ngưỡng này có thể được điều chỉnh trong định dạng có điều kiện để cảnh báo bạn nếu bạn đang ở mức thấp thay vì nếu bạn hết hàng. Các nhãn có các vị trí trống để nhập thông tin bổ sung, chẳng hạn như thông tin dòng chảy và CHT. Mỗi nhãn cũng có một mã duy nhất được tạo tự động dựa trên thương hiệu, vật liệu, v.v. Nếu bạn có một thương hiệu, màu sắc, hoặc vật liệu không có trong danh sách, hãy thêm nó vào chú giải. Tôi đã sử dụng ByteScout BarCode Generator để tạo hàng loạt mã vạch. Chúng sử dụng Code 128, chiều cao thanh 50, chiều rộng thanh hẹp 3, và không có lề. Tệp F3D được bao gồm cho giá đỡ nam châm. Phòng được giữ khô ráo bằng cách sử dụng một máy hút ẩm cỡ trung được cài đặt để bật và tắt bằng một bộ điều khiển AC Infinity và một phích cắm điều khiển được đặt ở độ ẩm 20%. Một thiết bị phát hiện khói thông minh đã được gắn trên trần để đảm bảo an toàn. ***Tuyên bố từ chối trách nhiệm*** Một số loại filament rất nhạy cảm với độ ẩm. Tôi chưa gặp phải bất kỳ vấn đề in ấn nào với TPU, nhưng Nylon cần được làm khô trước khi sử dụng. Phòng có thể duy trì nhiệt độ từ 95 đến 105 độ Fahrenheit với máy hút ẩm hoạt động liên tục 24/7. Điều này có an toàn không? Có thể, nhưng cũng có thể không. Thực hiện theo cách của bạn với rủi ro riêng. Tôi đã đặt một thiết bị phát hiện khói thông minh ở đó để có thể nhận thông báo trên điện thoại và loa thông minh trong trường hợp tôi không nghe thấy nó trong tủ. Việc cho máy hút ẩm hoạt động thường xuyên như vậy tiêu tốn rất nhiều điện. Tôi ước tính rằng thiết lập này sẽ tăng khoảng 20 đô la mỗi tháng vào hóa đơn của tôi. ***Chỉnh sửa*** Nếu bạn gặp lỗi InDesign "Trường dữ liệu không tồn tại trong nguồn dữ liệu", hãy tìm giải pháp của SamK_848390 trong phần bình luận. Đối với những người không muốn tải xuống một bảng tính có macro từ một người lạ, đây là mã VBS được sử dụng nhờ ChatGPT: Module1 plaintext Option Explicit Public Sub AddQuantity() Cập nhậtSốLượng 1 End Sub Public Sub RemoveQuantity() Cập nhậtSốLượng -1 End Sub Private Sub UpdateQuantity(ByVal change As Long) Dim code As String Dim wsMaster As Worksheet Dim wsInput As Worksheet Dim wsLog As Worksheet Dim lastRow As Long Dim foundCode As Range Dim timeStamp As String On Error GoTo ErrorHandler Set wsMaster = ThisWorkbook.Worksheets("Master") Set wsInput = ThisWorkbook.Worksheets("Input") Set wsLog = ThisWorkbook.Worksheets("Log") If change = 1 Then code = wsInput.Range("B4").Value Else code = wsInput.Range("F4").Value End If Set foundCode = wsMaster.Columns("A").Find(What:=code, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If Not foundCode Is Nothing Then foundCode.Offset(0, 1).Value = Application.WorksheetFunction.Max(0, Val(foundCode.Offset(0, 1).Value) + change) lastRow = wsLog.Cells(wsLog.Rows.Count, "A").End(xlUp).Row + 1 timeStamp = Format(Now(), "mm/dd/yy HH:MM") wsLog.Cells(lastRow, "A").Value = timeStamp wsLog.Cells(lastRow, "B").Value = code If change = 1 Then wsLog.Cells(lastRow, "C").Value = "Thêm" Else wsLog.Cells(lastRow, "C").Value = "Gỡ" End If If change = 1 Then wsInput.Range("B4").MergeArea.ClearContents Else wsInput.Range("F4").MergeArea.ClearContents End If End If Exit Sub ErrorHandler: MsgBox "Đã xảy ra lỗi tại ô: " & foundCode.Address & vbCrLf & Err.Description, vbCritical, "Lỗi" End Sub Sheet 1 ```plaintext Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$4" Then Application.EnableEvents = False ThêmSốLượng Application.EnableEvents = True Me.Range("B4").Select ElseIf Target.Address = "$F$4" Then Application.EnableEvents = False GỡSốLượng Application.EnableEvents = True Me.Range("F4").Select End If End Sub