autolisp
(4 bài viết)
-
cmdNameApp - Cấu hình file cmdStyle.change.txt để chuyển đổi layer của inventor sang autocad Lệnh quy đổi: CSCA Nội dung file: _lisp/Config/cmdStyle.change.txt==|Entity NoPrint=AM_NoPrint NO-PRINT=AM_NoPrint Break Line (ISO)=AM_6 BreakLine=AM_6 Visible=AM_0 Visible (ISO)=AM_0 Hidden=AM_3 Hidden (ISO)=AM_3 Hidden Narrow (ISO)=AM_3 Centerline=AM_7 Centerline (ISO)=AM_7 Center Mark (ISO)=AM_7 Roll Centerline=AM_7 Work Axis (ISO)=AM_7 Section Line (ISO)=AM_4 Bend Centerline (ISO)=AM_7 Hatch (ISO)=AM_Hatch-6 Dimension (ISO)=AM_Dim Sketch Geometry (ISO)=AM_4 3D Sketch Geometry=AM_4 Symbol (ISO)=AM_Text Title (ISO)=AM_Text Border (ISO)=AM_4 Detail Boundary (ISO)=AM_4 Overlay (ISO)=AM_4 Reference (ISO)=AM_4 Bend Extent (ISO)=AM_4 Work Plane (ISO)=AM_4 Work Point (ISO)=AM_4 Visible Narrow (ISO)=AM_4 Tweak Trail (ISO)=AM_4 ==|Text Text=AM_Text note=AM_Text DIM=AM_Text -
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 trong properties của chúng (Ctrl+1);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 ngành Kỹ thuật cơ khí;Chuyên đề và đồ án tổng hợp.Tải xuống (chọn 1 trong 2 cách)File: Mẫu khung tên bản vẽ đồ án cơ khíSử dụng cmdNameApp: Lệnh ZC => chọn insert_draw_frame => chọn/nhập KTBV => chọn/nhập DATN.
-
lisp cmdNameApp cho vẽ cơ khí Cài đặtTải xuống: cmdNameApp v1.1Giải nén thành thư mục _lisp ra ngoài Desktop (bắt buộc).Thư viện font bổ sung: SHX Fonts (bắt buộc; chỉ cần cài font vnsimple.shx, hoặc cài đặt hết).Trong Autocad:Sử dụng lệnh APPLOAD (lệnh tắt: AP) để load Contents với các file: cmdNameApp.fas.Sau đó load thông thường đối với 2 file này (không nằm trong mục Contents) với lựa chọn Always load.Sử dụng lệnh OPTIONS (lệnh tắt: OP) để thêm Support File Search Path trong tab Files.Sử dụng và issue1. Cửa sổ hướng dẫn chungLệnh ZA : Dùng để mở cửa sổ hướng dẫn sử dụng cho các nhóm lệnh cmdName. Bao gồm: cmdBlock, cmdLayer, cmdLayout, cmdStyle, cmdTable.Lệnh ZC : Dùng để mở cửa sổ hướng dẫn sử dụng cho nhóm lệnh cmdLib.2. Các nhóm lệnhcmdBlockLệnh tắtLệnh gốcChức năngCBRblock_renameĐổi tên hàng loạt block có cùng tên.CBNblock_noteTạo block ghi chú.cmdLayerLệnh tắtLệnh gốcChức năng-Z0..Z7Chuyển đổi layer nhanh (giống lệnh L0..L7 trong cad cơ khí)-ZH1..ZH7Nét hatch có màu giống Z1..Z7-Z00Nét 0 mặc định-Z01Nét không được in-Z02Nét Text-Z03Nét Dim-ZSSTạo nhanh bộ layercmdLayoutSử dụng kết hợp với lệnh SSM (sheet set manager) để kết xuất PDF.Lệnh tắtLệnh gốcChức năngCLPF, PFRAMEpaper_frameTạo layout thủ công với khổ giấy tiêu chuẩn.CLMPF, MFRAMEmulti_paper_frameTạo layout tự động với bản vẽ được chọn và khổ giấy tiêu chuẩn.cmdStyleLệnh tắtLệnh gốcChức năngCSStext_styleTạo nhanh text style Dim, Note, Bom.CSCtext_changeChuyển đổi text style giữa 2 đối tượng A và B.CSCAtext_change_amChuẩn hóa text style cho ghi chú, chuyển đổi layer trong file cmdStyle.change, và tự động dọn rác.CSDSdim_styleTạo nhanh dim style cùng tiền tố "AM_": x2, x2x2, x2p2; chuyển dim style.CSDAdim_alignCăn đường gióng giữa 2 dim liền nhau.CSDRdim_resetCăn các dòng dim song song, auto spacing.cmdTableSử dụng kết hợp với lệnh tableLệnh tắtLệnh gốcChức năngCTRtable_resizeSao chép kích thước và định dạng của bảng.CTUtable_updateCập nhật dữ liệu hàng loạt bảng trong layout.CTEtable_exportKết xuất dữ liệu bảng sang excel-csv.CTXtable_explodeChia tách các đoạn thằng trong bảng tại mọi nút giao (yêu cầu phải chạy lệnh X trước khi chạy lệnh này).cmdLibLệnh tắtLệnh gốcChức năngCIRMinsert_renInsert ren hệ mét.CIBMinsert_bulongInsert mối ghép bulong.CIDNinsert_draw_noteInsert đánh số, ghi chú: TT, mặt cắt, nhìn theo, hình trích.CIDFinsert_draw_frameInsert khung bản vẽ: A4..A0 theo hướng đứng hoặc ngang.CISRinsert_rarzInsert độ nhám theo phạm vi áp dụng 1992-2002 và kiểu áp dụng sau năm 2002.CISTinsert_toleranceInsert dung sai hình dạng và dung sai vị trí.Cập nhậtTest (alpha & beta) - 08/10/2025Core cmdName, cmdLib.Chưa hỗ trợ tiếng Việt trên Autocad đời thấp.v1.0 - 18/02/2026Giao diện người dùng dialog, menu có tiếng Việt chuẩn Unicode cho Autocad 2016+.cmdName, cmdLib.v1.1 - 05/03/2026Hỗ trợ Menubar, tổ chức lại cấu trúc thư mục.Chuẩn hóa cú pháp cho Text style, Dim style, Layer.Cập nhật cmdLib sau khi chuẩn hóa.Cập nhật hàm table_update: Thêm cho phép lựa chọn Single/Layout thay vì chỉ chọn update các trường trong toàn bộ layout. Single có thể thực hiện trong Model hoặc Layout đều được.Cập nhật hàm table_resize: Thêm copy kiểu bảng từ mẫu bảng (up/down).Cập nhật hàm paper_frame: Sửa lỗi tạo thủ công khung MV cho khổ giấy kiểu đứng.Thay thế hàm style_shx (lệnh tắt VNSHX) bằng text_style.Gộp hàm dim_set vào dim_style. Chuyển dim_style về ISO Standard.Thêm hàm ZSS để tạo nhanh bộ layer. Đổi tên lệnh AM0..AM7 thành Z0..Z7. Thêm ZH1..ZH7 để gọi hatch có màu giống với Z1..Z7.Thêm hàm text_change, text_change_am, block_note.Lược bỏ hàm block_stats.
-
lisp tạo thước đo góc Thực ra cái này thì bạn có thể hoàn toàn tạo được bằng lệnh ARRAYPOLAR nhưng việc đánh số khá mất thì giờ; vậy nên bạn có thể tham khảo lisp này.(defun c:angle360 ( / pt r ang p x y txt) (setq pt (getpoint "\nChọn tâm đường tròn: ")) ; Tâm đường tròn (setq r (getreal "\nNhập bán kính đặt số: ")) ; Khoảng cách ra ngoài (setq ang 0) ; Bắt đầu từ góc 0 độ (repeat 36 (setq p (* pi (/ ang 180.0))) ; Chuyển độ sang radian (setq x (+ (car pt) (* r (cos p)))) (setq y (+ (cadr pt) (* r (sin p)))) (setq txt (strcat "GOC=" (itoa ang))) (command "TEXT" (list x y) "0" "5" "0" txt) (setq ang (+ ang 10)) ; Tăng lên 10 độ mỗi bước ) (princ "\nĐã đánh số đủ số góc quanh đường tròn.") (princ) )Để sử dụng lisp này, bạn cần tạo thêm 1 file txt ngang hàng với file này có nội dung dạng:GOC=0 GOC=10 GOC=20 GOC=30 GOC=40 GOC=50 GOC=60 ... GOC=350Cuối cùng, thực hiện lệnh angle360 để vẽ thước đo góc 360deg
