share Lisp in hàng loạt (ABP-Batch Plot) - Hỗ trợ in Model/Layout, tự động xoay và gộp PDF

[singfeng 10]

Chào anh em, mình mới hoàn thiện Lisp in ấn tự động (Lệnh: ABP) với giao diện DCL trực quan. Tool hỗ trợ tự động nhận diện khung tên Block hoặc Polyline để in hàng loạt.

Các tính năng chính:

 

- Phạm vi in đa dạng: Quét vùng (Window), Toàn bộ Model (All), hoặc chọn từng Layout (đã sắp xếp theo Tab Order).

- Nhận diện thông minh: Hỗ trợ lọc theo tên Block hoặc Layer của Polyline.

- Tự động xoay: Auto Landscape/Portrait theo tỉ lệ khung.

- Sắp xếp linh hoạt: Từ Trái->Phải, Trên->Dưới hoặc theo thứ tự chọn.

- Hỗ trợ Gộp PDF: Tích hợp Ghostscript để nối file sau khi in.

- Preview: Có chế độ xem trước thứ tự in trực tiếp trên bản vẽ.

 

Lisp cũng không có gì đặc biệt cả nhưng hy vọng giúp mọi người có thêm sự lựa chọn ^^

 

Anh em tải về test thử và cho mình xin ý kiến để hoàn thiện thêm nhé

Link tải: https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có cập nhật thêm tính năng chọn được nhiều khung cần in trong 1 lần in của lisp in nhỏ của mình. Cảm ơn các bác đã đóng góp nhé ^^ 
V14.3.6

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có Fix lỗi liên quan đến nét in. Cảm ơn các bác đã đóng góp nhé ^^ 
V14.3.7

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có Fix lỗi liên quan hàm:
no function definition: 1-

Cảm ơn các bác đã đóng góp nhé ^^ 
V14.3.9

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có Fix lỗi liên quan hệ số dung sai giữa các khung bản vẽ:
Do mình vẽ thuần trên giấy A4 lên mình chỉnh hệ số dung sai có vẻ hơi bé so với các bản vẽ cơ điện ME nên mình có fix lại 1 chút

Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.0

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có Fix lỗi liên quan các Mtext bị tràn khỏi khung bản vẽ (dạng block) dẫn đến việc in bản vẽ không vừa với khổ giấy
Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.1

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có Fix lỗi liên quan đến việc các bác in nhiều hơn 25 layout dẫn đến việc các trang bản vẽ từ layout thứ 25 trở đi in không còn chính xác 
Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.2

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có cập nhật thêm chức năng thêm ngày giờ phía sau phần file đã được ghép nhé. Mục đích tránh tình trạng bị ghi đèn file khi in nhiều bản vẽ trong 1 file
Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.3

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có cập nhật thêm tính năng chèn thêm ngày giờ khi các bạn in các file bản vẽ lẻ trong cùng 1 file mà ko sợu bị ghi đè nhé.

Cảm ơn các bác đã đóng góp nhé ^^
V14.4.4

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Chào mn mình có chỉnh lại phàn offset để linh hoạt hơn cho các bản vẽ với các tủ lệ khác nhau. Bản cũ mình đang offset cố định dẫn đến viện in ấn các bản vẽ tỷ lệ khác không không được đẹp cho lắm

Cảm ơn các bác đã đóng góp nhé ^^
V14.4.5

https://www.youtube.com/watch?v=s1yKg2hwKHA

 

 

 

 

[ThuongTT 8]

Hay quá

[tanbqtb03 11]

Cám ơn bác đã chia sẻ lisp in mới 

[ketxu 3020]

Tớ share nhé Babe 

[mr.thanh2610 1]

Hay quá, cảm ơn bác, mình thì chỉ cài PDF reDirect v2 thì ứng dụng nó có chức năng gộp luôn rồi

[singfeng 10]

Vào lúc 13/2/2026 tại 14:03, mr.thanh2610 đã nói:

Hay quá, cảm ơn bác, mình thì chỉ cài PDF reDirect v2 thì ứng dụng nó có chức năng gộp luôn rồi

Nếu bác cài Shostscrip vài in bằng chương trình mặc định của CAD tốc độ sẽ nhanh hơn đó bác ạ và gọp được file luôn ^^ 

[singfeng 10]

Chào mn mình có cập nhật thêm tính năng chọn được nhiều khung cần in trong 1 lần in của lisp in nhỏ của mình. Cảm ơn các bác đã đóng góp nhé ^^ 
V14.3.6
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

[singfeng 10]

Chào mn mình có Fix lỗi liên quan đến nét in. Cảm ơn các bác đã đóng góp nhé ^^ 
V14.3.7
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

[singfeng 10]

Chào mn mình có Fix lỗi liên quan hàm:
no function definition: 1-

Cảm ơn các bác đã đóng góp nhé ^^ 
V14.3.9
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

[gtvt 0]

lisp hay quá. in được cả model cả layout. nhưng bên layout sao em in không hết giấy được bác nhỉ, block làm đúng kích thước A3, chọn in A3 nhưng in xong bản vẽ nó bé , thừa giấy

[singfeng 10]

Vào lúc 29/3/2026 tại 10:16, gtvt đã nói:

lisp hay quá. in được cả model cả layout. nhưng bên layout sao em in không hết giấy được bác nhỉ, block làm đúng kích thước A3, chọn in A3 nhưng in xong bản vẽ nó bé , thừa giấy

bác gửi cho em bản vẽ vào zalo số: 097sáu018hai7hai nhé. Để em xem nhé. Em cảm ơn. 

[singfeng 10]

Chào mn mình có Fix lỗi liên quan hệ số dung sai giữa các khung bản vẽ:
Do mình vẽ thuần trên giấy A4 lên mình chỉnh hệ số dung sai có vẻ hơi bé so với các bản vẽ cơ điện ME nên mình có fix lại 1 chútCảm ơn các bác đã đóng góp nhé ^^ 
V14.4.0
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

[Tap.Ve.Cad 27]

4 giờ trước, gtvt đã nói:

lisp hay quá. in được cả model cả layout. nhưng bên layout sao em in không hết giấy được bác nhỉ, block làm đúng kích thước A3, chọn in A3 nhưng in xong bản vẽ nó bé , thừa giấy

Có thể do khung tên của bạn có khung của Mtext ăn ra ngoài khung tên nên mới bị tình trạng đó. Lisp cần lọc thêm phần này.

[singfeng 10]

57 phút trước, Tap.Ve.Cad đã nói:

Có thể do khung tên của bạn có khung của Mtext ăn ra ngoài khung tên nên mới bị tình trạng đó. Lisp cần lọc thêm phần này.

Cảm ơn bạn đã giúp mình có ý tưởng nhé. 
Mình đã check bản vẽ bạn trên bị thì đúng là Mtext bị tràn ra ngoài thật 

[mr.thanh2610 1]

1 giờ trước, singfeng đã nói:

Chào mn mình có Fix lỗi liên quan hệ số dung sai giữa các khung bản vẽ:
Do mình vẽ thuần trên giấy A4 lên mình chỉnh hệ số dung sai có vẻ hơi bé so với các bản vẽ cơ điện ME nên mình có fix lại 1 chútCảm ơn các bác đã đóng góp nhé ^^ 
V14.4.0
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

Ngon rồi bác, tks bác

[singfeng 10]

Chào mn mình có Fix lỗi liên quan các Mtext bị tràn khỏi khung bản vẽ (dạng block) dẫn đến việc in bản vẽ không vừa với khổ giấy
Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.1
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

[hoquangvinh 8]

Vào lúc 29/3/2026 tại 16:19, singfeng đã nói:

Chào mn mình có Fix lỗi liên quan các Mtext bị tràn khỏi khung bản vẽ (dạng block) dẫn đến việc in bản vẽ không vừa với khổ giấy
Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.1
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

Mình dùng một số lisp in free rồi, cái này của bạn tốt như một số lisp hay khác nhưng tháy load nhẹ hơn, dung lượng file PDF sau khi nén nhẹ hơn. Cảm ơn bạn.

Có một chỗ này chưa được tối ưu lắm là khi kết thúc 1 lệnh in, Lisp chạy và xuất ra file PDF trùng với tên BV (ok) nhưng khi in tiếp 1 lệnh in nữa (trong file đó) nếu chưa kịp đổi tên file PDF đã xuất ra trước thì lệnh in mới đè luôn vào file PDF cũ. Bạn có thể thêm tiện ích đổi tên BV (Ví dụ Bản vẽ 1, 2, ...) để khi dùng nhiều lệnh in liên tiếp không lo chưa kịp đổi tên file PDF được không?

[singfeng 10]

Chào mn mình có Fix lỗi liên quan đến việc các bác in nhiều hơn 25 layout dẫn đến việc các trang bản vẽ từ layout thứ 25 trở đi in không còn chính xác 
Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.2
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

[singfeng 10]

18 giờ trước, hoquangvinh đã nói:

Mình dùng một số lisp in free rồi, cái này của bạn tốt như một số lisp hay khác nhưng tháy load nhẹ hơn, dung lượng file PDF sau khi nén nhẹ hơn. Cảm ơn bạn.

Có một chỗ này chưa được tối ưu lắm là khi kết thúc 1 lệnh in, Lisp chạy và xuất ra file PDF trùng với tên BV (ok) nhưng khi in tiếp 1 lệnh in nữa (trong file đó) nếu chưa kịp đổi tên file PDF đã xuất ra trước thì lệnh in mới đè luôn vào file PDF cũ. Bạn có thể thêm tiện ích đổi tên BV (Ví dụ Bản vẽ 1, 2, ...) để khi dùng nhiều lệnh in liên tiếp không lo chưa kịp đổi tên file PDF được không?

Cảm ơn bạn đã đóng góp nhé,. Mình sẽ lưu ý ở bản cập nhật sắp tới. 

Rất vui khi lisp của mình hỗ trợ tốt với bạn ^^ 

[singfeng 10]

Chào mn mình có cập nhật thêm chức năng thêm ngày giờ phía sau phần file đã được ghép nhé. Mục đích tránh tình trạng bị ghi đèn file khi in nhiều bản vẽ trong 1 file
Cảm ơn các bác đã đóng góp nhé ^^ 
V14.4.3
https://drive.google.com/drive/u/2/folders/1sYJtJvkAxqreid7PYrmUM0mivaYmCblg

[singfeng 10]

Vào lúc 7/4/2026 tại 20:34, hoquangvinh đã nói:

Mình dùng một số lisp in free rồi, cái này của bạn tốt như một số lisp hay khác nhưng tháy load nhẹ hơn, dung lượng file PDF sau khi nén nhẹ hơn. Cảm ơn bạn.

Có một chỗ này chưa được tối ưu lắm là khi kết thúc 1 lệnh in, Lisp chạy và xuất ra file PDF trùng với tên BV (ok) nhưng khi in tiếp 1 lệnh in nữa (trong file đó) nếu chưa kịp đổi tên file PDF đã xuất ra trước thì lệnh in mới đè luôn vào file PDF cũ. Bạn có thể thêm tiện ích đổi tên BV (Ví dụ Bản vẽ 1, 2, ...) để khi dùng nhiều lệnh in liên tiếp không lo chưa kịp đổi tên file PDF được không?

Mình đã cập nhật theo ý tưởng của bạn nhé. Bản cập nhật sẵn trong thư mục chưa file lisp nhé. 

[amateurday 24]

Tớ có ý này.

Nếu không fit paper thì sao?

Nếu in layout nhiều bản vẽ thì sao?

Nếu layout 1 bản vẽ thì chắc phải thêm lệnh chia layout nữa.

[singfeng 10]

3 giờ trước, amateurday đã nói:

Tớ có ý này.

Nếu không fit paper thì sao?

Nếu in layout nhiều bản vẽ thì sao?

Nếu layout 1 bản vẽ thì chắc phải thêm lệnh chia layout nữa.

Nếu layout nhiều bản vẽ bạn in như Model nhé. Xem video mình gửi kèm nhé. 

[amateurday 24]

25 phút trước, singfeng đã nói:

Nếu layout nhiều bản vẽ bạn in như Model nhé. Xem video mình gửi kèm nhé. 

ý tớ là in 10 layout, mỗi layout có random 1 -> 20 bản vẽ ấy.

[singfeng 10]

Vừa xong, amateurday đã nói:

ý tớ là in 10 layout, mỗi layout có random 1 -> 20 bản vẽ ấy.

à trường hợp này mình chưa tính đến nhưng bạn cứ thử chọn chức năng số 3 - mỗi layout 1 bản vẽ để in xem nhé )