admin
(14 bài viết)
-
iLogic xuất tệp step hàng loạt Chạy ổn định trên Inventor 2022PHIÊN BẢN 1Dim rootFolder As String = ThisDoc.Path Dim stepFolder As String = rootFolder & "\_step" ' Tạo thư mục nếu chưa tồn tại If Not System.IO.Directory.Exists(stepFolder) Then System.IO.Directory.CreateDirectory(stepFolder) End If ' Lấy danh sách file .ipt và .iam Dim files = System.IO.Directory.GetFiles(rootFolder, "*.ipt") files = files.Concat(System.IO.Directory.GetFiles(rootFolder, "*.iam")).ToArray() ' Thiết lập tùy chọn STEP Dim ctx As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap() Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap() Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext() oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism Dim oSTEP As TranslatorAddIn Dim i As Integer For i = 1 To ThisApplication.ApplicationAddIns.Count If ThisApplication.ApplicationAddIns.Item(i).ClassIdString = "{90AF7F40-0C01-11D5-8E83-0010B541CD80}" Then oSTEP = ThisApplication.ApplicationAddIns.Item(i) Exit For End If Next If oSTEP Is Nothing Then MessageBox.Show("Không tìm thấy STEP Translator.", "Lỗi") Return End If If Not oSTEP.Activated Then oSTEP.Activate() ' Lặp qua từng file và xuất ra STEP For Each filePath In files Try Dim doc As Document = ThisApplication.Documents.Open(filePath, False) Dim docName As String = System.IO.Path.GetFileNameWithoutExtension(filePath) Dim outputFile As String = stepFolder & "\" & docName & ".stp" Dim oData As DataMedium = ThisApplication.TransientObjects.CreateDataMedium() oData.FileName = outputFile oSTEP.SaveCopyAs(doc, oContext, oOptions, oData) doc.Close(True) Catch ex As Exception MessageBox.Show("Lỗi với file: " & filePath & vbCrLf & ex.Message, "Lỗi") End Try Next MessageBox.Show("Xuất STEP hoàn tất!", "Thành công")PHIÊN BẢN 2AddReference "System.Windows.Forms" Imports System.Windows.Forms Imports System.IO ' Chỉ xử lý file .ipt và .iam trong thư mục gốc, không duyệt thư mục con ' Không đóng mô hình hiện tại sau khi xuất ' Tạo danh sách tùy chọn Dim options As New ArrayList options.Add("Xuất tất cả các mô hình trong Project đang mở") options.Add("Xuất tất cả các mô hình trong thư mục được chọn") ' Hiển thị hộp thoại chọn tùy chọn Dim selectedOption = InputListBox("Chọn tùy chọn xuất file", options, options(0), "Xuất mô hình sang định dạng STEP", "Danh sách") ' Nếu hủy thì thoát If selectedOption = "" Then Return ' Xác định thư mục gốc dựa trên tùy chọn Dim rootFolder As String If selectedOption = options(0) Then rootFolder = ThisApplication.FileLocations.Workspace Else Dim folderDialog As New FolderBrowserDialog() folderDialog.Description = "Chọn thư mục chứa các mô hình" folderDialog.ShowNewFolderButton = False If folderDialog.ShowDialog() = DialogResult.OK Then rootFolder = folderDialog.SelectedPath Else Return End If End If ' Chọn thư mục đích lưu trữ Dim stepFolder As String Dim destFolderDialog As New FolderBrowserDialog() destFolderDialog.Description = "Chọn thư mục đích lưu trữ file STEP" destFolderDialog.ShowNewFolderButton = True If destFolderDialog.ShowDialog() = DialogResult.OK Then stepFolder = destFolderDialog.SelectedPath Else Return End If ' Tạo thư mục đích nếu chưa tồn tại If Not Directory.Exists(stepFolder) Then Directory.CreateDirectory(stepFolder) End If ' Lấy danh sách file .ipt và .iam chỉ trong thư mục gốc (không duyệt thư mục con) Dim iptFiles = Directory.EnumerateFiles(rootFolder, "*.ipt", SearchOption.TopDirectoryOnly) Dim iamFiles = Directory.EnumerateFiles(rootFolder, "*.iam", SearchOption.TopDirectoryOnly) Dim files = iptFiles.Concat(iamFiles).ToArray() ' Thiết lập tùy chọn STEP Dim ctx As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap() Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap() Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext() oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism Dim oSTEP As TranslatorAddIn Dim i As Integer For i = 1 To ThisApplication.ApplicationAddIns.Count If ThisApplication.ApplicationAddIns.Item(i).ClassIdString = "{90AF7F40-0C01-11D5-8E83-0010B541CD80}" Then oSTEP = ThisApplication.ApplicationAddIns.Item(i) Exit For End If Next If oSTEP Is Nothing Then MessageBox.Show("Không tìm thấy STEP Translator.", "Lỗi") Return End If If Not oSTEP.Activated Then oSTEP.Activate() ' Lấy tài liệu hiện tại Dim activeDoc As Document = ThisDoc.Document ' Lặp qua từng file và xuất ra STEP For Each filePath In files Try Dim doc As Document = ThisApplication.Documents.Open(filePath, False) ' Lấy tên file không có phần mở rộng Dim docName As String = System.IO.Path.GetFileNameWithoutExtension(filePath) Dim outputFile As String = stepFolder & "\" & docName & ".stp" Dim oData As DataMedium = ThisApplication.TransientObjects.CreateDataMedium() oData.FileName = outputFile oSTEP.SaveCopyAs(doc, oContext, oOptions, oData) ' Chỉ đóng tài liệu nếu không phải là tài liệu hiện tại If Not doc Is activeDoc Then doc.Close(True) End If Catch ex As Exception MessageBox.Show("Lỗi với file: " & filePath & vbCrLf & ex.Message, "Lỗi") End Try Next MessageBox.Show("Xuất STEP hoàn tất!", "Thành công") -
Harris's shock and vibration handbook Giới thiệu chungCuốn HARRIS’ SHOCK AND VIBRATION HANDBOOK là một tài liệu tham khảo kinh điển trong lĩnh vực cơ học sốc và rung động. Được biên soạn bởi các chuyên gia hàng đầu, cuốn sách cung cấp một cái nhìn toàn diện về các hiện tượng sốc và rung động, từ các nguyên lý cơ bản đến các ứng dụng kỹ thuật hiện đại trong thiết kế và phân tích.Nội dung và cấu trúcSách được chia thành nhiều phần chuyên sâu, bao gồm:Nguyên lý cơ bản: Giới thiệu các khái niệm nền tảng, từ cơ học động lực học, nhiệt động lực học đến vật liệu, giúp độc giả nắm bắt những cơ sở lý thuyết quan trọng.Phương pháp phân tích: Trình bày chi tiết các kỹ thuật đo đạc, mô phỏng và phân tích sốc, rung động, từ đó giúp người dùng đưa ra các giải pháp thiết kế tối ưu.Ứng dụng thực tiễn: Bao gồm nhiều ví dụ, bài toán và case study từ các ngành công nghiệp như ô tô, hàng không, xây dựng… nhằm minh họa cách áp dụng các nguyên lý lý thuyết vào thực tế.Đối tượng độc giảCuốn sách này là nguồn tài liệu quý báu dành cho:Kỹ sư cơ khí và chuyên gia thiết kế.Nhà nghiên cứu và học giả trong lĩnh vực động lực học, sốc và rung động.Sinh viên ngành cơ khí, hàng không và các ngành liên quan đang tìm hiểu chuyên sâu về các hiện tượng động lực.Lợi ích khi sở hữu cuốn sáchVới HARRIS’ SHOCK AND VIBRATION HANDBOOK, bạn sẽ:Cập nhật những kiến thức tiên tiến và các phương pháp phân tích sốc, rung động hiệu quả.Nâng cao khả năng giải quyết các bài toán phức tạp trong thiết kế và tối ưu hóa hệ thống cơ khí.Tiếp cận một nguồn thông tin toàn diện, kết hợp giữa lý thuyết và ứng dụng thực tiễn, giúp mở rộng tầm nhìn và kiến thức chuyên môn.Nếu bạn đang làm việc hoặc nghiên cứu trong lĩnh vực liên quan đến sốc và rung động, cuốn sách này sẽ là người bạn đồng hành không thể thiếu, giúp bạn giải quyết các thách thức kỹ thuật một cách tự tin và hiệu quả.Thông tinTên tiếng Anh: Harris’ Shock and Vibration Handbook ( Tải xuống tại đây )Tên tiếng Việt: Sổ tay về Sốc và Rung động HarrisTác giả: Allan G. Piersol và Thomas L. PaezNhà xuất bản: McGraw-Hill EducationNgày xuất bản: 09/11/2009Số trang: 1457 trangĐịnh dạng: Bìa cứng (Hardcover)ISBN: 0071508198 (ISBN-10), 978-0071508193 (ISBN-13)
-
Automation Studio 5.0 Full Crack Với nhiều anh em làm kỹ thuật về mảng thủy khí và điện thì không còn xa lạ gì AS nữa rồi nhỉ. Giới thiệu sơ bộ qua thì AS Famic (Automation Studio) là phần mềm kỹ thuật để thiết kế hệ thống điện, thủy lực, khí nén, tự động hóa máy thủy khí. So với FluidSIM và eCAD-Sim thì mình thấy AS vẫn dễ dùng hơn cả. Dựa trên sự trải nghiệm sử dụng qua tất cả các phiên bản, thì với mình AS 5.0 vẫn là phiên bản ổn định nhất cho các dòng máy yếu. Sau đây là file download và hướng dẫn cài đặt.Cài đặt và Crack: AS5-Setup.zipSửa lỗi "Builder" các van điều khiển: AS5-Fix-BuilderValves.zipHƯỚNG DẪN CÀI ĐẶTTải file AS5-Setup.zip về và giải nén. Chạy file setup.exe dưới quyền Admin và cài đặt như bình thường:Vào thư mục /crack, copy các file thuốc gán vào thư mục Location của AS5 vừa cài đặt:+) Cope file thuốc+) Chuột phải vào AS5 -> open file location -> paste Tải và giải nén file AS5-Fix-BuilderValves.zip. Mở thư mục Regs-Sos chạy các file .reg tương ứng với hệ điều hành của bạn. Win7, win10 64bit thì chọn file W7-x64.reg Quay lại thư mục AS5-FixBuilderValves vừa mới giải nén, chạy UASZZIZFTZ52_IE7.exe dưới quyền Admin, cho phép cập nhật lên version 5.2 Sau đó, mở thư mục Regs-Sos chạy file Post-Instalacion.reg KIỂM TRA SAU CÀI ĐẶT:Như vậy, mình đã giới thiệu cho anh em cách cài đặt và crack phần mềm AS 5.0 rồi. Nếu như anh em chưa làm được thì có thể comment lại dưới đây để được mình hỗ trợ nhé. Sau đây là một vài kết quả:Chọn van phân phối điện từ 4/3, các cửa P-T-A-B bị bịt kín Mod lại thành A-B-T thông nhau, P bị bịt kín
-
Autodesk Autocad 2007 Full Crack AutoCAD 2007 là một phiên bản của phần mềm thiết kế và vẽ kỹ thuật AutoCAD, được phát triển bởi Autodesk. Phiên bản này được phát hành vào năm 2006 và đã đem lại nhiều cải tiến và tính năng mới so với các phiên bản trước đó.Các tính năng của phần mềm Autocad 2007Phần mềm autocad 2007 hoạt động khá ổn định, đặc biệt thế mạnh của autocad 2007 đó là tính năng phác thảo đồ họa 2D.Các tính năng như tùy chỉnh với nhiều môi trường khác nhau, giúp cho việc thiết kế một cách hiệu quả hơnCác tính năng workplanes auto thay đổiTạo dễ dàng các khối 3D một cách dễ dàngHỗ trợ tính năng tổng hợp nguyên liệu, và ánh sángChỉnh sửa dễ dàng chất rắnCấu hình cài đặt phần mềm Autocad 2007Cpu tối thiếu: Intel Pentium 4Ram: 512 MBỔ cứng tối thiểu: 750 MBHệ điều hành: Windows XP/2000/7/8/8.1/10Màn hình: Hỗ trợ phân giải màn hình tối thiểu 1024×768Tải xuống: Autocad 2007 (pass: fullcrack.vn)
