Lê Quang Dương
-
Số lượng nội dung
55 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
4
Bài đăng được đăng bởi Lê Quang Dương
-
-
* Những thay đổi trong phiên bản v5.3:
- Bổ sung 2 tính năng hoàn toàn mới:
+ Tìm kiếm Viewport: Chọn một đối tượng trong Model, chương trình sẽ lần lượt duyệt qua tất cả Viewport và Layout. Nếu tìm thấy đối tượng đó trong Viewport và Layout nào nó sẽ dừng lại, zoom vào Viewport đó và hiển thị hộp thoại để xác nhận kết thúc tìm kiếm hoặc Tiếp tục (nếu đối tượng nằm ở nhiều Viewport khác nhau).
+ Hiển thị Viewport: Chọn một Viewport trong Layout, chương trình sẽ xác định vùng hiển thị tương ứng của Viewport trong Model, zoom đến và vẽ một đường bao giống với khung Viewport (đa giác, góc xoay). Nhấn OK để kết thúc hoặc chọn "Xóa đường bao" để xóa khung bao vừa tạo ra.
- Khắc phục một số lỗi và tối ưu quá trình tạo Viewport đa giác, xoay.https://drive.google.com/drive/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
* Những thay đổi trong phiên bản v5.3:
- Bổ sung 2 tính năng hoàn toàn mới:
+ Tìm kiếm Viewport: Chọn một đối tượng trong Model, chương trình sẽ lần lượt duyệt qua tất cả Viewport và Layout. Nếu tìm thấy đối tượng đó trong Viewport và Layout nào nó sẽ dừng lại, zoom vào Viewport đó và hiển thị hộp thoại để xác nhận kết thúc tìm kiếm hoặc Tiếp tục (nếu đối tượng nằm ở nhiều Viewport khác nhau).
+ Hiển thị Viewport: Chọn một Viewport trong Layout, chương trình sẽ xác định vùng hiển thị tương ứng của Viewport trong Model, zoom đến và vẽ một đường bao giống với khung Viewport (đa giác, góc xoay). Nhấn OK để kết thúc hoặc chọn "Xóa đường bao" để xóa khung bao vừa tạo ra.
- Khắc phục một số lỗi và tối ưu quá trình tạo Viewport đa giác, xoay.https://drive.google.com/drive/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
Chào mừng bạn đến với Model To Layout (MTL) v5.2! Một công cụ toàn diện để tạo và quản lý bản vẽ trong Model cũng như Layout. ------------------ TAB 1: TẠO LAYOUT HÀNG LOẠT ------------------ Chức năng cốt lõi, tự động tạo nhiều layout từ các đối tượng trong Model.
Tạo Layout từ Mẫu: Sao chép layout mẫu để tạo layout mới, đảm bảo đồng nhất.
Chọn Đối tượng Thông minh: Dùng nhiều loại khung mẫu (Block/Polyline) để lọc.
Sắp xếp Tự động & Thủ công: Sắp xếp theo quy tắc hoặc tùy chỉnh thứ tự.
Kiểm tra Trực quan: Hiển thị số thứ tự tạm thời trên Model để kiểm tra.
Tích hợp Khung tên: Tự động điền Ký hiệu và Tên bản vẽ vào Attribute.
------------------ TAB 2: QUẢN LÝ BẢN VẼ (LAYOUT) ------------------ Cung cấp các công cụ để quản lý các layout đã có sẵn trong bản vẽ.
Quản lý Toàn diện: Đổi tên, thay đổi thứ tự, xóa layout hàng loạt.
Liên kết & Cập nhật Viewport: Tạo đường bao trong Model liên kết với viewport.
Cập nhật viewport khi đường bao trong Model thay đổi.
Xuất bản & Thống kê: Hỗ trợ tạo Danh mục bản vẽ (DMBV) và xuất PDF.
------------------ TAB 3: QUẢN LÝ BẢN VẼ (MODEL) ------------------ Tập trung vào việc quản lý dữ liệu của các đối tượng trực tiếp trong Model.
Cập nhật Dữ liệu Hàng loạt: Chỉnh sửa thông tin Ký hiệu, Tên bản vẽ và
áp dụng thay đổi vào Attribute của block trong Model.
Xuất PDF từ Model: In từng đối tượng ra file PDF riêng và hỗ trợ gộp file.
Liên kết Thuộc tính (LinkAtt): Tạo liên kết động (Field) giữa các thuộc tính.
------------------ TIỆN ÍCH CHUNG & NÂNG CAO ------------------
Sao chép & Dán qua Excel: Chỉnh sửa dữ liệu hàng loạt bằng Excel.
Đổi tên Nâng cao: Hỗ trợ thêm tiền tố/hậu tố, đánh số/chữ cái tăng dần.
Logic Kép Lấy Dữ liệu: Tự động tìm dữ liệu trong Attribute hoặc Text trên Layer.
Tạo Viewport Đa giác và Xoay theo đối tượng gốc: Cho phép tạo ra các viewport trong layout có hình dạng và góc xoay chính xác như đối tượng trong Model.
Tạo Layout chứa nhiều Viewport: Cho phép gộp nhiều đối tượng từ Model vào một layout
duy nhất, mỗi đối tượng có một viewport riêng với tùy chọn sắp xếp và tỷ lệ linh hoạt.
***Thông tin liên hệ: Zalo: 0935.675.641 Email: quangduongxp@gmail.com
Link tải bản v5.2: https://drive.google.com/drive/u/1/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
Add Viewport
trong AutoLisp
Phát hành phiên bản nâng cấp ModelToLayout v5.2 với những thay đổi:
1. Khắc phục những lỗi nhỏ trong phiên bản v5.0
2. Tính năng mới: Tạo Viewport Đa Giác và Xoay Theo Đối Tượng Gốc: Cho phép tạo ra các viewport trong layout có hình dạng và góc xoay chính xác như đối tượng (Block hoặc Polyline) trong Model.
3. Tính năng mới: Tạo Layout Chứa Nhiều Viewport: Một chức năng hoàn toàn mới cho phép gộp nhiều đối tượng từ Model vào một layout duy nhất, mỗi đối tượng có một viewport riêng với tùy chọn sắp xếp và tỷ lệ linh hoạt.
https://drive.google.com/drive/u/1/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
Vào lúc 4/8/2025 tại 18:19, Lê Quang Dương đã nói:Cập nhật lên phiên bản V5.2 với rất nhiều cải tiến.
Link tải phiên bản v5.2: https://drive.google.com/drive/u/1/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
Đã cập nhật link tải file:
https://drive.google.com/drive/u/1/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
***Thông tin liên hệ:
Zalo: 0935.675.641
Email: quangduongxp@gmail.com
-
***Thông tin liên hệ:
Zalo: 0935.675.641
Email: quangduongxp@gmail.com
Link tải bản v5.2: https://drive.google.com/drive/u/1/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
Giới thiệu đến tất cả mọi người một chương trình TẠO VÀ QUẢN LÝ LAYOUT toàn diện nhất từ trước tới nay. Chương trình cung cấp một bộ công cụ mạnh mẽ để tự động hóa việc tạo và quản lý layout trong AutoCAD. Nó bao gồm hai lệnh chính: MTL để tạo layout hàng loạt từ không gian model và LM để quản lý các layout đã tồn tại.
Phần 1: Trình tạo Layout hàng loạt (Lệnh: MTL)
Đây là chức năng cốt lõi, giúp tự động hóa hoàn toàn quy trình chuyển các đối tượng từ Model sang các layout riêng biệt.
Các chức năng chính:
1. Tạo Layout từ Mẫu:
- Sao chép toàn bộ thuộc tính của một Layout mẫu được chỉ định (bao gồm Page Setup, máy in, khổ giấy, plot style) và các Viewport có trong đó để tạo ra các layout mới.
2. Chọn Đối Tượng Thông Minh:
- Cho phép chọn nhiều Đối tượng mẫu (Block hoặc LWPolyline) để làm tiêu chí lọc.
- Chương trình sẽ chỉ chọn các đối tượng trong Model có cùng thuộc tính (cùng tên Block hoặc cùng Layer) với đối tượng mẫu.
- Tự động nhận diện Điểm làm mốc (góc trên-trái, dưới-phải, v.v.) dựa trên vị trí người dùng click chuột khi chọn đối tượng mẫu. Điểm này dùng để căn chỉnh và sắp xếp.
3. Sắp Xếp và Đánh Số Tự Động:
- Tự động sắp xếp các đối tượng đã chọn theo nhiều quy tắc logic (ví dụ: Trái sang Phải rồi Trên xuống Dưới).
- Tự động tạo tên Layout theo quy tắc [Tiền tố] + [Hậu tố], ví dụ: BV-01, BV-02. Người dùng có thể tùy chỉnh tiền tố và số ký tự của hậu tố.
4. Giao Diện Quản Lý Trực Quan:
- Hiển thị một danh sách các layout sắp được tạo.
- Cho phép người dùng sắp xếp lại thứ tự thủ công (di chuyển lên/xuống, lên đầu/cuối danh sách).
- Đổi tên hàng loạt cho layout hoặc đặt Ký hiệu bản vẽ ngay trong giao diện.
- Cho phép xóa các mục không mong muốn khỏi danh sách.
5. Kiểm Tra và Tích Hợp Khung Tên:
- Kiểm tra thứ tự: Hiển thị một số thứ tự và đường chéo tạm thời trên các đối tượng trong Model để người dùng kiểm tra trực quan thứ tự sắp xếp trước khi tạo layout.
- Tích hợp vào khung tên: Tự động tìm các block khung tên trong layout mới và điền thông tin như Ký hiệu bản vẽ và Tên bản vẽ vào các attribute tương ứng.
Phần 2: Trình Quản lý Layout (Lệnh: LM)
Đây là công cụ bổ trợ để quản lý các layout đã có trong bản vẽ một cách hiệu quả.
Các chức năng chính:
1. Quản lý Toàn diện:
- Liệt kê tất cả layout trong bản vẽ (trừ Model) vào một danh sách.
- Cho phép thay đổi thứ tự các tab layout bằng cách sắp xếp trong danh sách.
- Đổi tên hàng loạt cho Layout, Ký hiệu bản vẽ, và Tên bản vẽ.
- Xóa các Layout được chọn trực tiếp từ giao diện.
2. Liên kết và Cập nhật Viewport:
- Tạo liên kết Viewport tự động:
- Tự động quét các Viewport trong các layout được chọn.
- Với mỗi Viewport, chương trình sẽ tạo một đường bao hình chữ nhật (LWPolyline) trong không gian Model, thể hiện chính xác vùng nhìn của Viewport đó.
- Tạo một liên kết giữa Viewport và đường bao tương ứng.
- Cập nhật Viewport:
- Sau khi người dùng chỉnh sửa (di chuyển, scale) các đường bao trong Model, chức năng này sẽ tự động cập nhật lại vùng nhìn (zoom, pan) của các Viewport đã được liên kết trong layout.
- Chương trình chỉ cập nhật những Viewport có đối tượng liên kết đã bị thay đổi, giúp tiết kiệm thời gian.
3. Xuất Bản và Thống Kê:
- Tạo Danh mục bản vẽ: Tự động tạo một bảng (Table) danh mục bản vẽ dựa trên thông tin từ các Layout được chọn.
- Xuất PDF: Kích hoạt lệnh PUBLISH của AutoCAD để người dùng có thể nhanh chóng xuất các layout đã chọn ra một file PDF duy nhất.
* Những thay đổi trong phiên bản v5.3:
- Bổ sung 2 tính năng hoàn toàn mới:
+ Tìm kiếm Viewport: Chọn một đối tượng trong Model, chương trình sẽ lần lượt duyệt qua tất cả Viewport và Layout. Nếu tìm thấy đối tượng đó trong Viewport và Layout nào nó sẽ dừng lại, zoom vào Viewport đó và hiển thị hộp thoại để xác nhận kết thúc tìm kiếm hoặc Tiếp tục (nếu đối tượng nằm ở nhiều Viewport khác nhau).
+ Hiển thị Viewport: Chọn một Viewport trong Layout, chương trình sẽ xác định vùng hiển thị tương ứng của Viewport trong Model, zoom đến và vẽ một đường bao giống với khung Viewport (đa giác, góc xoay). Nhấn OK để kết thúc hoặc chọn "Xóa đường bao" để xóa khung bao vừa tạo ra.
- Khắc phục một số lỗi và tối ưu quá trình tạo Viewport đa giác, xoay.***Thông tin liên hệ:
Zalo: 0935.675.641
Email: quangduongxp@gmail.com
Link tải bản v5.3: https://drive.google.com/drive/u/1/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE
-
23 phút trước, lanvuvinh@gmail.com đã nói:Rất tuyệt vời! Lisp CAD của anh hoạt động cực kỳ hiệu quả, giúp em tăng tốc độ triển khai công việc đáng kể. Mọi thứ đúng ý em 100%. Cảm ơn anh Lê Quang Dương rất nhiều!
Cảm ơn em đã có những nhận xét rất tích cực.
-
Cập nhật lên phiên bản v3.0 cả nhà nhé!
-
Giới thiệu đến các bạn một công cụ mới với mục đích copy các đối tượng trong autocad như Text, Dim, Line...để trích xuất nội dung, giá trị của những đối tượng này sau đó tự động lưu vào clipboad để dán vào excel (hoặc xuất trực tiếp ra excel). Công cụ này phù hợp cho các anh chị chuyên về bóc khối lượng, dự toán, dự thầu. Lisp hoạt động tốt với font tiếng Việt có dấu unicode.
***Thông tin liên hệ:
Zalo: 0935.675.641
Email: quangduongxp@gmail.com
Link tải phiên bản v1.0: https://drive.google.com/file/d/1w1Ao6P2T8D-_NcuW72LBpEzgnhuNzKrl/view?usp=sharing
-
Vào lúc 10/7/2025 tại 23:12, amateurday đã nói:Thêm tính năng này nữa mới ngon nè.
Và tó nghĩ Viewport nó không tràn full khung A3 420x297 chứ. Viewport nó phải nằm lọt bên trong khung tên mới hợp lý chứ nhỉ?
Mình đã cập nhật lên phiên bản v2.6 ở đầu trang nhé.
-
9 giờ trước, amateurday đã nói:Thêm tính năng này nữa mới ngon nè.
Và tó nghĩ Viewport nó không tràn full khung A3 420x297 chứ. Viewport nó phải nằm lọt bên trong khung tên mới hợp lý chứ nhỉ?
Cảm ơn bạn đã góp ý. Việc muốn khung viewport nằm lọt trong khung tên bản vẽ hay bằng với khung tên bản vẽ thì do người dùng quyết định ngay từ đầu (lúc tạo khung tên block hoặc hình chữ nhật bên Model). Lisp hiện tại đang xử lý là lấy hết phần khung bên model (tương ứng với khổ giấy). Mình đang cập nhật một vài chổ nên sẽ nghiên cứu thêm chổ này. Còn mục đích hiện tại của lisp là bố trí mỗi bản vẽ trong 1 layout nên nếu khung bên model bố trí xiên muốn qua layout thẳng đứng (hoặc nằm ngang) thì cũng là một ý hay nhưng trường hợp này chắc ít người dùng đến.
-
34 phút trước, ketxu đã nói:Mình có mấy thắc mắc
1 - Đây là Lisp có phí hay không phí ? Hiện tại nếu đang là không phí thì bạn có dự định thương mại trong tương lai không ?
2 - Bài này mình có thể share lại bài trên Network k ?Mình phản hồi lại thông tin:
1 - Hiện tại lisp đang cho dùng thử 15 ngày và 15 phiên làm việc. Hết 2 điều kiện này nếu người dùng muốn sử dụng tiếp thì vui lòng liên hệ
2 - Bạn có thể chia sẽ lại bài đăng này nhưng nhớ trích dẫn nguồn nhé
-
Đã cập nhật link tải file lisp cả nhà nhé!
-
37 phút trước, amateurday đã nói:tải ở đâu bạn nhỉ?
Liên hệ qua zalo bạn nhé!
-
LISP TẠO VIEWPORT HÀNG LOẠT TỰ ĐỘNG FIX BẰNG KHỔ GIẤY (MỖI LAYOUT LÀ 1 VIEWPORT) với các tính năng chính (Gõ lệnh MTL để chạy chương trình):
- Có thể chọn một layout làm mẫu (đã cài đặt page setup, khung tên đã link đến các thông số từ Sheet set như Tên bản vẽ, Số hiệu bản vẽ...) để copy ra các layout sắp tạo ra.
- Có thể đặt tên bản vẽ tùy chỉnh. Layout được tạo mới sẽ lấy phần tiền tố này, sau đó là số thứ tự, ví dụ BV-01. Nếu trong tab layout đã có BV-01 thì lisp sẽ tự động tạo layout có tên là BV-02, BV-03...
- Lisp làm việc với đối tượng là Rectang hoặc Block đều được.
- Người dùng có thể lựa chọn cách sắp xếp tùy theo cách bố trí bản vẽ trong model. Dựa vào thứ tự sắp xếp này để layout được tạo ra cũng sẽ theo thứ tự này. Đặc biệt nếu chọn nhầm thứ tự sắp xếp thì có thể chọn lại thứ tự mà không cần phải chọn lại đối tượng, thứ tự sẽ được cập nhật ngay lập tức.
- Thứ tự tạo và sắp xếp layout được kiểm tra trước thông qua nút "Kiểm tra thứ tự" để người dùng dễ dàng kiểm soát. Ngoài ra người dùng cũng có thể sắp xếp thủ công thông qua bảng Danh sách layout khởi tạo.
- Người dùng chỉ cần chọn layout mẫu đã có viewport , các viewport mới được tạo ra trên các layout sẽ tự động fix nội dung để vừa với các viewport này. Điều này cực kỳ hữu ích nếu bản vẽ trên model có nhiều tỷ lệ to nhỏ khác nhau.* Cập nhật phiên bản 2.6 (2025-07-13) với những thay đổi:
- Điều chỉnh cách tạo viewport để khắc phục lỗi copy layout từ layout được tạo ra từ lisp.
- Bỏ phần lựa chọn khổ giấy, khổ giấy và viewport được lấy trực tiếp từ layout mẫu.
- Bỏ tự động zoom vào đối tượng mẫu khi yêu cầu chọn điểm góc.
- Khắc phục việc model bị zoom extents nếu người dùng lựa chọn zoom toàn bộ layout.
- Bổ sung hộp thoại hỏi người dùng có muốn quay trở về model hay không?
- Bỏ phần tạm thời ẩn đối tượng ở hướng dẫn sử dụng vì giờ đây việc này đã được chương trình xử lý tự động. Từ đó tốc độ tạo layout, zoom extents đã được cải thiện hơn rất nhiều lần (nhanh hơn khoảng 90% đối với bản vẽ nhiều đối tượng và nhiều layout).* Cập nhật phiên bản 2.6.1 (2025-07-16):
- Điều chỉnh logic sắp xếp đối tượng chính xác hơn cho trường hợp bản vẽ sắp xếp không thẳng hàng.* Cập nhật phiên bản 3.0 (2025-07-20):
- Thay đổi giao diện để phù hợp với những tính năng mới bổ sung.
- Bổ sung Danh sách layout khởi tạo để có thể thêm, bớt, di chuyển thứ tự thủ công theo mong muốn người dùng.
- Ở phiên bản này, giờ đây người dùng được lựa chọn nhiều đối tượng mẫu cùng lúc để chỉ cần đưa vào danh sách một lần duy nhất nếu có nhiều đối tượng mẫu.
- Bỏ thao tác xác định điểm mốc thủ công. Thao tác này được tự động lấy điểm mốc gần nhất (là 4 điểm góc của khung bao) với điểm click chuột lúc chọn đối tượng mẫu.
- Bổ sung tùy chọn "Xóa layout mẫu" nếu người dùng muốn xóa sau khi kết thúc lệnh mà không cần phải xóa thủ công.
- Cải tiến cách thức tạo layout (có thể tạo ngay cả khi người dùng thoát lệnh và gọi lại do chương trình tự động lưu danh sách cho lần chạy sau).* Những thay đổi trong phiên bản v5.3:
- Bổ sung 2 tính năng hoàn toàn mới:
+ Tìm kiếm Viewport: Chọn một đối tượng trong Model, chương trình sẽ lần lượt duyệt qua tất cả Viewport và Layout. Nếu tìm thấy đối tượng đó trong Viewport và Layout nào nó sẽ dừng lại, zoom vào Viewport đó và hiển thị hộp thoại để xác nhận kết thúc tìm kiếm hoặc Tiếp tục (nếu đối tượng nằm ở nhiều Viewport khác nhau).
+ Hiển thị Viewport: Chọn một Viewport trong Layout, chương trình sẽ xác định vùng hiển thị tương ứng của Viewport trong Model, zoom đến và vẽ một đường bao giống với khung Viewport (đa giác, góc xoay). Nhấn OK để kết thúc hoặc chọn "Xóa đường bao" để xóa khung bao vừa tạo ra.
- Khắc phục một số lỗi và tối ưu quá trình tạo Viewport đa giác, xoay.***Thông tin liên hệ:
Zalo: 0935.675.641
Email: quangduongxp@gmail.com
Link tải bản v5.3: https://drive.google.com/drive/u/1/folders/1lrBhaLQprRl6yOraDPHURxHyskdq3YJE-
1
-
-
Sau nhiều năm phải mua phần mềm để thực hiện công việc này thì nay mình đã có thể tự viết được lisp có tính năng tương tự (thậm chí cải tiến thêm).
LISP TẠO VIEWPORT HÀNG LOẠT TỰ ĐỘNG FIX BẰNG KHỔ GIẤY (MỖI LAYOUT LÀ 1 VIEWPORT) với các tính năng chính:
- Có thể chọn một layout làm mẫu (đã cài đặt page setup, khung tên đã link đến các thông số từ Sheet set như Tên bản vẽ, Số hiệu bản vẽ...) để copy ra các layout sắp tạo ra.
- Có thể đặt tên bản vẽ tùy chỉnh. Layout được tạo mới sẽ lấy phần tiền tố này, sau đó là số thứ tự, ví dụ BV-01. Nếu trong tab layout đã có BV-01 thì lisp sẽ tự động tạo layout có tên là BV-02, BV-03...
- Lisp làm việc với đối tượng là Rectang hoặc Block đều được.
- Người dùng có thể lựa chọn cách sắp xếp tùy theo cách bố trí bản vẽ trong model. Dựa vào thứ tự sắp xếp này để layout được tạo ra cũng sẽ theo thứ tự này. Đặc biệt nếu chọn nhầm thứ tự sắp xếp thì có thể chọn lại thứ tự mà không cần phải chọn lại đối tượng, thứ tự sẽ được cập nhật ngay lập tức.
- Thứ tự tạo và sắp xếp layout được kiểm tra trước thông qua nút "Kiểm tra thứ tự" để người dùng dễ dàng kiểm soát.
- Người dùng chỉ cần chọn khổ giấy, viewport tạo ra sẽ được căn chỉnh tỷ lệ khớp với khổ giấy trên layout mà không cần biết tỷ lệ là bao nhiêu.
Điều này cực kỳ hữu ích nếu bản vẽ trên model có nhiều tỷ lệ to nhỏ khác nhau.
-
3 giờ trước, Phuongthove đã nói:Giúp em với, khi mà em đổi tên file cad thì file sheetset xảy ra tình trạng có dấu ? màu đỏ như hình. Có bro nào biết cách khắc phục đổi tên file cad mà vẫn giữ được nội dung của file sheetset ban đầu không ạ? Em cảm ơn AD và mọi người ạ!
Có cách giải quyết nhé
-
Vào lúc 27/3/2025 tại 13:55, nhjngj đã nói:Fix như nào vậy bạn, của mình cad 2025 bị lỗi chữ "xã" như này
Up lên Autodesk AutoCAD 2025.1.2 bạn nhé. Hoặc lên thẳng Autodesk AutoCAD 2026 cũng được.
-
Autocad đã fix lỗi
-
1 giờ} trướ}c, Xuân Lộc đã nói:trong môi trường Block Editor có xài đc lệnh block mặc định của cad đâu mà tạo đc, xài lisp của anh @Duong Nhat Duy sẽ tạo đc block trong editor, hoặc có thể hợp nhất 2 lisp vào làm một sẽ tạo đc trong block editor
Trong môi trường Block Editor thì Ctrl+C rồi Ctrl+Shift+V vẫn ok
-
Vào lúc 4/11/2024 tại 20:46, Lê Quang Dương đã nói:;; Quick Block - Creates Block from selected objects
(defun C:QB (/ SS blkname mpt ptslst minpt maxpt LL UR)
(if (setq SS (ssget))
(progn
(if (or (eq (setq blkname (getstring T "\nBlock Name: ")) "") (/= (tblsearch "block" blkname) nil))
(Set_blkname)
)
(if (not (setq MPT (getpoint "\nSpecify Base Point: ")))
(progn
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(vla-getboundingbox (vlax-ename->vla-object ent) 'minpt 'maxpt)
(setq ptslst (cons (vlax-safearray->list minpt) ptslst)
ptslst (cons (vlax-safearray->list maxpt) ptslst)
)
)
(setq LL (apply 'mapcar (cons 'min ptslst))
UR (apply 'mapcar (cons 'max ptslst))
MPT (mapcar '/ (mapcar '+ LL UR) '(2 2 2))
)
)
)
(vl-cmdf "_.Block" blkname "_non" MPT SS "")
(vl-cmdf "_.Insert" blkname "_non" MPT 1 1 0)
(prompt (strcat "\nBlock [" blkname "] Was Created."))
)
(prompt "\nNothing Selected")
)
(princ)
)(defun Set_BlkName ()
(setq o-dmzn (getvar "dimzin"))
(setvar "dimzin" 0)
(setq time (rtos (getvar "CDATE") 2 6)) ; Format YYYYMMDD.HHMMSS
(setq dtime (substr (rtos (getvar "DATE") 2 9) 13 5))
(setq blkname (strcat "A" time "." dtime))
(setvar "dimzin" o-dmzn)
(princ)
)Có bác nào chỉnh được lisp này để có thể sử dụng được trong môi trường Block Editor không ạ?
Lisp Vẽ cửa nhôm kính Xingfa VeCuaXingfa-v2.0 [XF] [XFA] Final + Hướng dẫn sử dụng
trong AutoLisp
Đã đăng · Trả lời báo cáo
Chính thức ra mắt phiên bản XF-XFA-v2.0 Final với tính năng vẽ cửa tự động hoàn toàn mới. Giờ đây người dùng chỉ cần quét chọn toàn bộ bản vẽ cửa phác thảo một lần duy nhất, lisp sẽ tự nhận diện kiểu cửa và vẽ hàng loạt (lệnh XFA). Nếu chưa có bản vẽ phác thảo, có thể dùng lệnh vẽ thủ công (lệnh XF).
***Thông tin liên hệ:
Zalo: 0935.675.641
Email: quangduongxp@gmail.com
Link tải lisp XF-XFA-V2.0 (Demo): https://byvn.net/9XbR
Lưu ý: Tải đồng thời 2 file (file lisp và file cad) XF-XFA-V2.0 (Demo).VLX và XF-XFA-V2.0 (Demo).dwg (Test trực tiếp trên file cad này).