admin
(14 bài viết)
-
Mẫu kiểu chữ dùng trong bản vẽ cơ khí Một số quy cách:Kiểu chữ trong bản vẽ kỹ thuật được thể hiện phải là chữ không chân, thường dùng kiểu SHX hoặc Arial .Kích thước chữ quy định theo chiều cao h (mm) của chữ in hoa: 2.5; 3.5; 5; 7; 10;…Bản vẽ chế tạo/chi tiết dùng các khổ chữ là: 3.5 và 5.Bản vẽ lắp dùng 3 khổ chữ: 3.5; 5 và 7.Chữ được vẽ phải nghiêng 15° so với phương thẳng đứng.Tải xuống: SHX fontsHướng dẫn cài đặt:Tải file đính kèm, giải nén.Copy toàn bộ file font vào đường dẫn thư mục tương ứng với phiên bản autocad mà bạn đang sử dụng:C:\Program Files\Autodesk\ AutoCAD 2023 \Fonts\Thiết lập kiểu chữ đúng quy cách: -
Mẫu khung tên bản vẽ đồ án cơ khí Mẫu khung tên được điều chỉnh lại dựa trên mẫu cũ trên trang web của bộ môn Máy xây dựng http://mayxd.comCác thay đổi bao gồm:Tùy biến khung tên bằng thuộc tính (ATT);Mẫu chỉ dẫn: nhìn theo, mặt cắt, hình trích, đánh số;Mẫu bảng kê vật tư sử dụng Excel (cập nhật thông qua lệnh table_resize và table_update )Mẫu này có thể áp dụng cho các đồ án:Đồ án Chi tiết máy;Các đồ án thuộc chuyên ngành Máy xây dựng;Các đồ án thuộc ngành Kỹ thuật cơ khí;Chuyên đề và đồ án tổng hợp.Tải xuốngMẫu khung tên bản vẽ đồ án cơ khíLisp cập nhật bảng kê
-
Tổng hợp một số thư viện cad 2D/3D Thương hiệuLĩnh vựcLiên kếtGRABCADCộng đồng CAD, thư viện 3Dhttps://grabcad.com/library3DFINDITTìm kiếm mô hình CADhttps://www.3dfindit.com/3D CONTENT CENTRALThư viện mô hình 3Dhttps://www.3dcontentcentral.com/TRACEPARTSThư viện mô hình 3Dhttps://www.traceparts.com/enPARTCOMMUNITYThư viện mô hình 3Dhttps://ptc.partcommunity.com/MCMASTERVật tư công nghiệphttps://www.mcmaster.com/MISUMITự động hóahttps://us.misumi-ec.com/BOSCH REXROTHTự động hóahttps://www.boschrexroth.com/en/us/DESTACOTự động hóahttps://www.destaco.com/ELCOMBăng tải, vận chuyểnhttps://www.elcom.fr/en/IGUSCông nghệ tuyến tínhhttps://www.igus-cad.com/HIWINCông nghệ tuyến tínhhttps://hiwin.com/THKCông nghệ tuyến tínhhttps://tech.thk.com/index_en.phpTOXMáy éphttps://www.tox-cad.com/SMCKhí nénhttps://www.smctech.com/CC_host/pages/custom/templates/smc_v2/prod_selector.cfmFESTOKhí nénhttps://www.festo.com/mx/en/ELESAPhụ kiện, tiêu chuẩn máyhttps://www.elesa.com/es/elesab2storeusITEMNhôm định hìnhhttp://www.item24.com/en/COLSON CASTERBánh xe, con lănhttps://colsoncaster.com/KEYENCECảm biến, thị giác máyhttps://www.keyence.com/SCHNEIDER ELECTRICTự động hóa và điều khiểnhttps://www.se.com/mx/en/MARTINTruyền động công suấthttps://www.martinsprocket.com/RULANDKhớp nốihttps://www.ruland.com/
-
Các lệnh cad cơ bản cho người mới bắt đầu Bài 1: Tổng quan AutoCADa) Thao tác với tệp & thiết lập bản vẽLệnhLệnh tắtChức năngNEWCTRL+NTạo bản vẽ mớiOPENCTRL+OMở bản vẽ có sẵnSAVECTRL+SLưu bản vẽUNITSUNThiết lập đơn vị đoLAYERLAQuản lý các nét vẽPROPERTIESPRHiện bảng thuộc tính đối tượngOPTIONSOPTùy biến môi trường làm việcDWGPROPS-Tùy biến thông tin file DWGb) Lệnh vẽ cơ bảnLệnhLệnh tắtChức năngLINELVẽ đoạn thẳngRECTANGLERECVẽ hình chữ nhậtPOLYLINEPLVẽ đa tuyếnCIRCLECVẽ đường trònELLIPSEELVẽ elipARCAVẽ cung trònPOLYGONPOLVẽ đa giác đềuDONUTDOVẽ vòng tròn rỗngPOINTPOTạo điểmSPLINESPLVẽ đường cong splineHATCHHTô vật liệu, mặt cắtGRADIENT-Tô chuyển màuBài 2: Các lệnh hiệu chỉnh cơ bảnLệnhLệnh tắtChức năngCOPYCO / CPSao chép đối tượngMOVEMDi chuyển đối tượngERASEEXóa đối tượngROTATEROXoay đối tượngSCALESCThu phóng đối tượngOFFSETOTạo đường song song/copy theo khoảng cáchMIRRORMILấy đối xứng đối tượngTRIMTRCắt đối tượngEXTENDEXKéo dài đối tượngCHAMFERCHAVát gócFILLETFBo tròn gócMATCHPROPMASao chép thuộc tínhSTRETCHSKéo giãn đối tượngBREAKBRCắt gãy đối tượngJOINJNối các đoạn rờiLENGTHENLENThay đổi chiều dài đối tượngEXPLODEXPhá block hoặc polylineARRAYARTạo mảng (rectangular, polar, path)Bài 3: Ghi kích thước và ghi chúLệnhLệnh tắtChức năngDIMLINEARDLIGhi kích thước thẳngDIMALIGNEDDALGhi kích thước song songDIMRADIUSDRAGhi kích thước bán kínhDIMDIAMETERDDIGhi kích thước đường kínhDIMANGULARDANGhi kích thước gócDIMCONTINUEDCOTiếp tục chuỗi kích thướcDIMBASELINEDBAGhi kích thước gốc chuỗiDIMSTYLEDQuản lý kiểu dimTEXTTVăn bản 1 dòngMTEXTMTVăn bản nhiều dòngLEADERLETạo đường dẫn chú thíchQLEADERQLChú thích nhanhMULTILEADERMLDChú thích đa đối tượngTCOUNT-Đánh số thứ tự tự động cho text hoặc MText theo lựa chọn.TEXTALIGN-Căn chỉnh nhiều đối tượng text theo hàng/cột.TEXTFIT-Co giãn text để vừa với độ dài đoạn thẳng.Bài 4: Layout và in ấnLệnhLệnh tắtChức năngPLOTCTRL+PIn ấn bản vẽPAGESETUP-Thiết lập khổ giấy, máy inVIEWPORT-Tạo khung nhìn trong layoutZOOMZPhóng to/thu nhỏ khung nhìnPANPDi chuyển khung nhìnREGENRELàm mới bản vẽSHEET SET MANAGERSSMQuản lý bản vẽ theo sheetBài 5: Block tĩnh, động và thuộc tínhLệnhLệnh tắtChức năngBLOCKBTạo block tĩnhWBLOCKWBLưu block ra file DWGINSERTIChèn block vào bản vẽEXPLODEXPhá blockATTDEFATTTạo thuộc tính cho blockATTEDIT-Sửa thuộc tính blockATTSYNC-Cập nhật đồng bộ các block chứa cùng thuộc tínhBATTMAN-Quản lý thuộc tính blockBEDITBEChỉnh sửa block độngREFEDITREFChỉnh sửa block tĩnhBài 6: Ràng buộc hình học & kích thướcLệnhLệnh tắtChức năngGEOMCONSTRAINTGCONRàng buộc hình học (song song, vuông góc, đồng tâm…)DIMCONSTRAINTDCONRàng buộc kích thước (chiều dài, khoảng cách, góc…)Bài 7: Bảng dữ liệu và excelLệnhLệnh tắtChức năngTABLETBTạo bảng dữ liệu trong bản vẽ (từ trống, từ kiểu bảng, hoặc từ Excel).TABLESTYLETSQuản lý kiểu bảng (font, ô, đường viền, màu sắc).DATALINKDLMở Data Link Manager để tạo liên kết tới Excel.DATALINKUPDATEDLUCập nhật dữ liệu từ Excel vào AutoCAD hoặc đồng bộ ngược lại.EXPORTTABLE-Xuất bảng AutoCAD sang Excel.ATTACHDATATABLE-Gắn bảng dữ liệu ngoài vào bản vẽ.CELLSTYLE-Quản lý định dạng ô trong bảng (text, số, đường viền).TABLEDIT-Sửa trực tiếp nội dung bảng trong bản vẽ.TABLEEXPORT-Xuất bảng AutoCAD ra file ngoài (.xls, .xlsx).WORKSHEET (OLE)-Chèn bảng tính Excel vào AutoCAD bằng OLE Object.PASTESPEC-Dán dữ liệu Excel vào AutoCAD với tùy chọn liên kết hoặc giữ định dạng.OLELINKS-Quản lý tất cả liên kết OLE (Excel, Word…) trong bản vẽ.FIELDFDTạo trường dữ liệu động trong bảng, liên kết với Excel hoặc block.Bài 8: Các lệnh tiện ích & hỗ trợLệnhLệnh tắtChức năngDISTDIĐo khoảng cáchAREAAAĐo diện tích, chu viLISTLIXem thông tin đối tượngID-Lấy tọa độ điểmPURGEPUXóa dữ liệu thừaAUDITAUKiểm tra lỗi bản vẽRECOVER-Khôi phục bản vẽ lỗiOPTIONSOPThiết lập AutoCADUCS-Quản lý hệ trục tọa độVIEWVLưu/hiện lại khung nhìnQSELECT-Lọc và chọn nhanhISOLATE-Ẩn đối tượngUNISOLATE-Bỏ ẩn đối tượng
-
iLogic tự động lấy tên sheet idw chuyển thành ký hiệu bản vẽ và mô tả LẤY KÝ HIỆU VÀ MÔ TẢ TỪ TÊN SHEETCode này chỉ áp dụng cho việc xuất bản vẽ trong inventor. Ví dụ: Sheet có tên là "00.00.00-Hình chung" thì sẽ split '-' nên chuỗi sẽ trở thành mảng có 2 phần tử đó là: "00.00.00" và 'Hình chung'.Dim sheetName As String Dim parts() As String Dim sheetCode As String = "" Dim sheetDesc As String = "" ' Lấy tên sheet hiện tại sheetName = ThisDrawing.ActiveSheet.Name ' Tách chuỗi theo dấu "-" parts = Split(sheetName, "-") ' Kiểm tra xem có đủ 2 phần không If parts.Length >= 2 Then sheetCode = parts(0).Trim() sheetDesc = parts(1).Trim() ' Loại bỏ phần ":số" ở cuối SheetDesc nếu có Dim colonIndex As Integer = sheetDesc.LastIndexOf(":") If colonIndex > 0 Then Dim afterColon As String = sheetDesc.Substring(colonIndex + 1).Trim() ' Kiểm tra xem phần sau dấu ":" có phải là số không Dim tempNumber As Integer If Integer.TryParse(afterColon, tempNumber) Then sheetDesc = sheetDesc.Substring(0, colonIndex).Trim() End If End If Else sheetCode = sheetName.Trim() sheetDesc = "" End If ' Gán giá trị vào Custom Properties iProperties.Value("Custom", "SheetCode") = sheetCode iProperties.Value("Custom", "SheetDesc") = sheetDesc ' Cập nhật document ThisApplication.ActiveDocument.Update() ' Hiển thị kết quả MessageBox.Show("Sheet Code: " & sheetCode & vbCrLf & "Sheet Description: " & sheetDesc, "Result")XUẤT BẢN VẼ HÀNG LOẠT DƯỚI DẠNG PDF VÀ DWG :Sử dụng API của Inventor: TranslatorAddIn6 - pdf và TranslatorAddIn2 - dwgImports System.Windows.Forms Imports System.IO Sub Main() ' Chọn tính năng xuất Dim choice As String = InputBox("Chọn tính năng:" & vbCrLf & _ "1 - Xuất bản vẽ với định dạng PDF" & vbCrLf & _ "2 - Xuất bản vẽ với định dạng AutoCAD DWG" & vbCrLf & _ "Nhập 1 hoặc 2:", "Xuất bản vẽ", "1") If choice = "" Then Exit Sub ' User cancelled Dim exportPDF As Boolean = (choice = "1") Dim exportDWG As Boolean = (choice = "2") If Not exportPDF And Not exportDWG Then MessageBox.Show("Lựa chọn không hợp lệ!") Exit Sub End If Dim outputPath As String = "" Dim resolution As String = "" Dim dwgVersion As String = "" Dim strIniFile As String = "P:\_auto-test\conf.ini" ' Mặc định file .ini ' Yêu cầu thông tin bổ sung dựa trên lựa chọn If exportPDF Then resolution = InputBox("Chọn độ phân giải (150/200/300/400/600/720/1200/2400/4800):", "Xuất bản vẽ với định dạng PDF", "1200") If resolution = "" OrElse Not {"150", "200", "300", "400", "600", "720", "1200", "2400", "4800"}.Contains(resolution) Then MessageBox.Show("Độ phân giải không hợp lệ! Vui lòng chọn từ danh sách.") Exit Sub End If outputPath = InputBox("Nhập đường dẫn thư mục để lưu file:", "Xuất bản vẽ với định dạng PDF", "P:\_auto-test\pdf\") ElseIf exportDWG Then dwgVersion = InputBox("Chọn phiên bản AutoCAD DWG (2010/2013/2018):", "Xuất bản vẽ với định dạng AutoCAD DWG", "2013") If dwgVersion = "" OrElse Not {"2010", "2013", "2018"}.Contains(dwgVersion) Then MessageBox.Show("Phiên bản DWG không hợp lệ! Vui lòng chọn từ danh sách.") Exit Sub End If strIniFile = InputBox("Nhập đường dẫn file .ini (mặc định: P:\_auto-test\conf.ini, đảm bảo có 'ALL SHEETS=No'):", "Xuất bản vẽ với định dạng AutoCAD DWG", "P:\_auto-test\conf.ini") If strIniFile = "" Then Exit Sub ' User cancelled outputPath = InputBox("Nhập đường dẫn thư mục để lưu file:", "Xuất bản vẽ với định dạng AutoCAD DWG", "P:\_auto-test\cad\") End If If outputPath = "" Then Exit Sub ' User cancelled If Not outputPath.EndsWith("\") Then outputPath = outputPath & "\" ' Tạo thư mục nếu chưa tồn tại If Not System.IO.Directory.Exists(outputPath) Then System.IO.Directory.CreateDirectory(outputPath) End If ' Lấy document hiện tại Dim drawDoc As DrawingDocument = ThisApplication.ActiveDocument ' Lưu sheet hiện tại để có thể quay lại Dim originalSheet As Sheet = drawDoc.ActiveSheet ' Đếm số sheet và log tên sheet Dim totalSheets As Integer = drawDoc.Sheets.Count Dim sheetNames As String = "Danh sách sheet:" & vbCrLf For Each sheet As Sheet In drawDoc.Sheets sheetNames = sheetNames & Sheet.Name & vbCrLf Next MessageBox.Show("Tổng số sheet: " & totalSheets & vbCrLf & sheetNames, "Thông tin sheet") Dim processedSheets As Integer = 0 Dim exportedIdentifiers As New List(Of String) ' Chỉ dùng cho DWG để phát hiện trùng lặp Try ' Duyệt qua từng sheet For Each sheet As Sheet In drawDoc.Sheets ' Activate sheet hiện tại Sheet.Activate() ' Cập nhật Custom Properties cho sheet hiện tại UpdateSheetProperties(Sheet.Name) ' Cập nhật document drawDoc.Update() ' Tạo tên file từ sheet name Dim fileName As String = GetSafeFileName(Sheet.Name) If exportPDF Then ' Export PDF tự động ExportToPDF(drawDoc, outputPath, fileName, resolution) ElseIf exportDWG Then Dim dwgPath As String = outputPath & fileName & ".dwg" ' Split filename để lấy unique identifier Dim parts() As String = fileName.Split("_"c) Dim uniqueIdentifier As String = "" If parts.Length >= 3 Then uniqueIdentifier = parts(0) & "_" & parts(1) ' e.g., "00.00_1" Else uniqueIdentifier = fileName ' Fallback End If ' Kiểm tra trùng lặp If exportedIdentifiers.Contains(uniqueIdentifier) Then MessageBox.Show("Tệp DWG đã tồn tại cho sheet với mã: " & uniqueIdentifier & vbCrLf & "Sheet: " & Sheet.Name, "Cảnh báo trùng lặp - Bỏ qua") Continue For End If ' Export DWG ExportToDWG(drawDoc, outputPath, fileName, dwgVersion, strIniFile) ' Thêm vào list exportedIdentifiers.Add(uniqueIdentifier) End If processedSheets = processedSheets + 1 ' Hiển thị tiến độ ThisApplication.StatusBarText = "Đang xử lý sheet " & processedSheets & "/" & totalSheets & ": " & Sheet.Name Next ' Quay lại sheet ban đầu originalSheet.Activate() ' Hiển thị thông báo hoàn thành Dim exportedFilesList As String = "" If exportDWG Then exportedFilesList = "Các tệp DWG đã xuất (mã duy nhất):" & vbCrLf & String.Join(vbCrLf, exportedIdentifiers) End If If exportPDF Then MessageBox.Show("Đã hoàn thành xuất " & totalSheets & " sheet thành PDF!" & vbCrLf & _ "Đường dẫn: " & outputPath, "Xuất bản vẽ với định dạng PDF") Else MessageBox.Show("Đã hoàn thành xuất " & processedSheets & " sheet thành DWG!" & vbCrLf & _ "Đường dẫn: " & outputPath & vbCrLf & exportedFilesList, "Xuất bản vẽ với định dạng AutoCAD DWG") End If Catch ex As Exception MessageBox.Show("Lỗi: " & ex.Message, "Lỗi") Finally ' Xóa thông báo trạng thái ThisApplication.StatusBarText = "" End Try End Sub ' Hàm cập nhật Custom Properties cho sheet Sub UpdateSheetProperties(sheetName As String) Dim parts() As String Dim sheetCode As String = "" Dim sheetDesc As String = "" ' Tách chuỗi theo dấu "-" parts = Split(sheetName, "-") ' Kiểm tra xem có đủ 2 phần không If parts.Length >= 2 Then sheetCode = parts(0).Trim() sheetDesc = parts(1).Trim() ' Loại bỏ phần ":số" ở cuối SheetDesc nếu có Dim colonIndex As Integer = sheetDesc.LastIndexOf(":") If colonIndex > 0 Then Dim afterColon As String = sheetDesc.Substring(colonIndex + 1).Trim() ' Kiểm tra xem phần sau dấu ":" có phải là số không Dim tempNumber As Integer If Integer.TryParse(afterColon, tempNumber) Then sheetDesc = sheetDesc.Substring(0, colonIndex).Trim() End If End If Else sheetCode = sheetName.Trim() sheetDesc = "" End If ' Gán giá trị vào Custom Properties iProperties.Value("Custom", "SheetCode") = sheetCode iProperties.Value("Custom", "SheetDesc") = sheetDesc End Sub ' Hàm tạo tên file an toàn (loại bỏ ký tự không hợp lệ) Function GetSafeFileName(fileName As String) As String Dim invalidChars() As Char = IO.Path.GetInvalidFileNameChars() For Each invalidChar As Char In invalidChars fileName = fileName.Replace(invalidChar, "_") Next Return fileName End Function ' Hàm export PDF sử dụng PDF Translator Add-In Sub ExportToPDF(drawDoc As DrawingDocument, outputPath As String, fileName As String, resolution As String) Try Dim pdfPath As String = outputPath & fileName & ".pdf" ' Tìm PDF Add-In Dim pdfAddIn As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}") If pdfAddIn IsNot Nothing Then Dim context As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext context.Type = IOMechanismEnum.kFileBrowseIOMechanism Dim options As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap ' Check whether the translator has 'SaveCopyAs' options If pdfAddIn.HasSaveCopyAsOptions(drawDoc, context, options) Then ' Options for drawings... options.Value("All_Color_AS_Black") = 0 options.Value("Remove_Line_Weights") = 0 options.Value("Vector_Resolution") = Integer.Parse(resolution) options.Value("Sheet_Range") = PrintRangeEnum.kPrintCurrentSheet options.Value("Custom_Begin_Sheet") = 0 options.Value("Custom_End_Sheet") = 0 options.Value("Include_Dimensions") = 0 options.Value("Include_Notes") = 0 options.Value("Include_Borders") = 0 End If Dim dataMedium As DataMedium = ThisApplication.TransientObjects.CreateDataMedium dataMedium.FileName = pdfPath ' Publish document pdfAddIn.SaveCopyAs(drawDoc, context, options, dataMedium) Else MessageBox.Show("Không tìm thấy PDF Add-In!", "Lỗi") End If Catch ex As Exception MessageBox.Show("Lỗi khi xuất PDF cho sheet: " & fileName & vbCrLf & _ "Lỗi: " & ex.Message, "Lỗi PDF") End Try End Sub ' Hàm export DWG sử dụng INI file Sub ExportToDWG(drawDoc As DrawingDocument, outputPath As String, fileName As String, dwgVersion As String, strIniFile As String) Try Dim dwgPath As String = outputPath & fileName & ".dwg" ' Tìm DWG Add-In Dim dwgAddIn As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}") If dwgAddIn IsNot Nothing Then Dim context As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext context.Type = IOMechanismEnum.kFileBrowseIOMechanism Dim options As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap ' Check whether the translator has 'SaveCopyAs' options If dwgAddIn.HasSaveCopyAsOptions(drawDoc, context, options) Then options.Value("Export_Acad_IniFile") = strIniFile ' Sử dụng file INI options.Value("Export_Acad_Version") = dwgVersion ' Override phiên bản nếu cần options.Value("AllSheets") = "No" ' Đảm bảo chỉ xuất sheet hiện tại options.Value("Sheet_Range") = PrintRangeEnum.kPrintCurrentSheet ' Safeguard thêm End If Dim dataMedium As DataMedium = ThisApplication.TransientObjects.CreateDataMedium dataMedium.FileName = dwgPath ' Export document dwgAddIn.SaveCopyAs(drawDoc, context, options, dataMedium) Else MessageBox.Show("Không tìm thấy DWG Add-In!", "Lỗi") End If Catch ex As Exception MessageBox.Show("Lỗi khi xuất DWG cho sheet " & fileName & ": " & ex.Message, "Lỗi DWG") End Try End Sub
