Đến nội dung


Hình ảnh
* * * * - 2 Bình chọn

Lisp In Nhiều Bản Vẽ (Kể Cả Layout)


  • Please log in to reply
389 replies to this topic

#1 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 09 April 2016 - 09:28 PM

Chào ace!
Hiện tại, trên diễn đàn đã có nhiều LISP có chức năng in nhiều bản vẽ (MPLOT, TPL, MPL ...). Song, có nhiều người than phiền thiếu chức năng in bên layout hoặc chỉ in được 1 bản với 1 layout.
Nay, nhàn cư mình có làm cái lsp bổ sung chức năng nói trên (phục vụ cá nhân là chính) và chia sẻ cùng ace (kiến thức học hỏi cũng từ diễn đàn và ...).
* Lisp chỉ dùng với Block (kể cả Dyn-Block)
* Lisp mình đã test tương đối kỹ, nhưng có lẽ vẫn còn lỗi chưa phát hiện, nếu phát hiện lỗi gì thì ace báo ở dưới để mình khắc phục, hoàn thiện.
* Lisp có khóa, mặc dù biết là khóa đểu mong ace thông cảm (mục đích là thăm dò nhu cầu người dùng thôi!) hehehe...
* Không dám múa rìu qua mắt thợ đâu, bác nào có lướt qua thì dừng chân góp ý cho em với...!
*** Ý như vậy không biết có phạm môn quy hay không, nếu có các sư huynh cứ trừng phạt...
*** ACE nào có nhu cầu cứ để lại SERI ở dưới đây, mình sẽ cấp KEY (ACE nào chọc được không cần KEY thì cứ tẹt ... hehehe...). :D
*** Sau đây là giới thiệu sơ qua chức năng bổ sung của LISP (Các chức giống các Lisp trước mình không đề cập nữa):
I. Tùy chọn Model-Layout: Khi chọn tab nào thì lisp tự chuyển vùng nhìn về tab đó, tiếp tục mình có thể dùng các chức năng chọn Block, preview, print...
Lisp sẽ in tất cả các block được chọn trong tab.
II. Chức năng sort gồm:
 1. Theo hàng từ trái qua phải, rồi từ trên xuống dưới.
 2. Theo cột từ trên xuống dưới, rồi từ trái qua phải.
 3. Theo hàng từ trái qua phải, rồi từ dưới lên trên.
 4. Khác biệt các Lisp trước có thêm chức năng sort Tag của block thuộc tính, ví dụ: Khung tên của mình là ATT-Block có TagName là KHBV dùng để đánh số thứ tự bản vẽ: BV-01, BV-02, BV-03 ... sắp xếp trên view không theo trật tự nào cả, thì lisp vẫn in ra theo thứ tự từ nhỏ tới lớn.
III. Chức năng PlotAll: Sau khi chọn được tên Block cần in, trừ Model ra, lisp sẽ tự động duyệt qua từng layout và in tất cả chúng chỉ với 1 Pick.
IV. Giao diện của Lisp:
141736_qpl2.jpg
V. File lisp (Lệnh QPL):
Vazs1T7iM8E

  • 4

#2 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 09 April 2016 - 09:32 PM

 

Chào ace!
Hiện tại, trên diễn đàn đã có nhiều LISP có chức năng in nhiều bản vẽ (MPLOT, TPL, MPL ...). Song, có nhiều người than phiền thiếu chức năng in bên layout hoặc chỉ in được 1 bản với 1 layout.
Nay, nhàn cư mình có làm cái lsp bổ sung chức năng nói trên (phục vụ cá nhân là chính) và chia sẻ cùng ace (kiến thức học hỏi cũng từ diễn đàn và ...).
* Lisp chỉ dùng với Block (kể cả Dyn-Block)
* Lisp mình đã test tương đối kỹ, nhưng có lẽ vẫn còn lỗi chưa phát hiện, nếu phát hiện lỗi gì thì ace báo ở dưới để mình khắc phục, hoàn thiện.
* Lisp có khóa, mặc dù biết là khóa đểu mong ace thông cảm (mục đích là thăm dò nhu cầu người dùng thôi!) hehehe...
* Không dám múa rìu qua mắt thợ đâu, bác nào có lướt qua thì dừng chân góp ý cho em với...!
*** Ý như vậy không biết có phạm môn quy hay không, nếu có các sư huynh cứ trừng phạt...
*** ACE nào có nhu cầu cứ để lại SERI ở dưới đây, mình sẽ cấp KEY (ACE nào chọc được không cần KEY thì cứ tẹt ... hehehe...). :D
*** Sau đây là giới thiệu sơ qua chức năng bổ sung của LISP (Các chức giống các Lisp trước mình không đề cập nữa):
I. Tùy chọn Model-Layout: Khi chọn tab nào thì lisp tự chuyển vùng nhìn về tab đó, tiếp tục mình có thể dùng các chức năng chọn Block, preview, print...
Lisp sẽ in tất cả các block được chọn trong tab.
II. Chức năng sort gồm:
 1. Theo hàng từ trái qua phải, rồi từ trên xuống dưới.
 2. Theo cột từ trên xuống dưới, rồi từ trái qua phải.
 3. Theo hàng từ trái qua phải, rồi từ dưới lên trên.
 4. Khác biệt các Lisp trước có thêm chức năng sort Tag của block thuộc tính, ví dụ: Khung tên của mình là ATT-Block có TagName là KHBV dùng để đánh số thứ tự bản vẽ: BV-01, BV-02, BV-03 ... sắp xếp trên view không theo trật tự nào cả, thì lisp vẫn in ra theo thứ tự từ nhỏ tới lớn.
III. Chức năng PlotAll: Sau khi chọn được tên Block cần in, trừ Model ra, lisp sẽ tự động duyệt qua từng layout và in tất cả chúng chỉ với 1 Pick.
IV. Giao diện của Lisp:
141736_qpl2.jpg
V. File lisp (Lệnh QPL):

P/S: Văn dốt, trình bày hơi kém mọi người thông cảm.

 

Lisp đã TEST trên Cad2007 và Cad2013x64

-------------------------------------​------------------------

 ​Update 1 (11/4/2016)

+ Chạy trên Cad2017x64

​+ Bổ sung plot to file, đường dẫn đến thư mục chứa file (.PDF) =>*** Nếu dùng máy in ảo pdfFactory pro thì chức năng này không cần thiết. Chỉ tác dụng với máy in "DWG to PDF.pc3".

*** Lời khuyên: Nếu muốn in PdF thì nên dùng pdfFactory pro vì nó tự động nối file, in nhiều lần không sợ file bị đè.

file: http://www.cadviet.c..._qpl_update.rar

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

Update 2 (11/4/2016)

* Sửa lỗi command, command-s trên Cad >= 2015.

 

http://www.cadviet.c..._qplupdate2.rar

 

Update 3: (23/9/2016)

​* Bổ sung chọn Pline, đánh dấu vùng vừa in xong.

V1.1: https://drive.google...iew?usp=sharing

Trial: http://www.cadviet.c...ayout/?p=407678


  • 7

#3 enix

enix

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 10 April 2016 - 10:55 AM

Test trước bác ơi  :)

128185 358FCD 935C0


  • 0

#4 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 01:25 PM

Test trước bác ơi  :)

128185 358FCD 935C0

Của bạn đây: BIFW-TUTA


  • 0

#5 enix

enix

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 10 April 2016 - 01:44 PM

Của bạn đây: BIFW-TUTA

 

AutoCAD 2016 x64 - Windows 10 Pro x64

Load lisp chạy lệnh đứng hình, ko pick, ko plot, ko preview, ko cancel được luôn. Chỉ có 1 đường là end task CAD  :)

20164d379b5b-94c7-47a2-810e-053f860578dc


  • 0

#6 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 01:54 PM

Vậy à! Mình chỉ test với CAD2007 và CAD2013x64 W10. Không biết > CADD2013 gì có khác, mình chưa cài.

Bạn có link Cad2016x64 không?


  • 0

#7 enix

enix

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 10 April 2016 - 02:00 PM

Vậy à! Mình chỉ test với CAD2007 và CAD2013x64 W10. Không biết > CADD2013 gì có khác, mình chưa cài.

Bạn có link Cad2016x64 không?

 

Lỡ rồi test luôn cho 2017 luôn đi bác  :)

http://www.cadviet.c...h-ng-d-n-cai-t/


  • 0

#8 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 02:05 PM

OK! Thanks!


  • 0

#9 doductiep

doductiep

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 10 April 2016 - 03:06 PM

Lisp đã TEST trên Cad2007 và Cad2013x64

 

 

Chào ace!
Hiện tại, trên diễn đàn đã có nhiều LISP có chức năng in nhiều bản vẽ (MPLOT, TPL, MPL ...). Song, có nhiều người than phiền thiếu chức năng in bên layout hoặc chỉ in được 1 bản với 1 layout.
Nay, nhàn cư mình có làm cái lsp bổ sung chức năng nói trên (phục vụ cá nhân là chính) và chia sẻ cùng ace (kiến thức học hỏi cũng từ diễn đàn và ...).
* Lisp chỉ dùng với Block (kể cả Dyn-Block)
* Lisp mình đã test tương đối kỹ, nhưng có lẽ vẫn còn lỗi chưa phát hiện, nếu phát hiện lỗi gì thì ace báo ở dưới để mình khắc phục, hoàn thiện.
* Lisp có khóa, mặc dù biết là khóa đểu mong ace thông cảm (mục đích là thăm dò nhu cầu người dùng thôi!) hehehe...
* Không dám múa rìu qua mắt thợ đâu, bác nào có lướt qua thì dừng chân góp ý cho em với...!
*** Ý như vậy không biết có phạm môn quy hay không, nếu có các sư huynh cứ trừng phạt...
*** ACE nào có nhu cầu cứ để lại SERI ở dưới đây, mình sẽ cấp KEY (ACE nào chọc được không cần KEY thì cứ tẹt ... hehehe...). :D
*** Sau đây là giới thiệu sơ qua chức năng bổ sung của LISP (Các chức giống các Lisp trước mình không đề cập nữa):
I. Tùy chọn Model-Layout: Khi chọn tab nào thì lisp tự chuyển vùng nhìn về tab đó, tiếp tục mình có thể dùng các chức năng chọn Block, preview, print...
Lisp sẽ in tất cả các block được chọn trong tab.
II. Chức năng sort gồm:
 1. Theo hàng từ trái qua phải, rồi từ trên xuống dưới.
 2. Theo cột từ trên xuống dưới, rồi từ trái qua phải.
 3. Theo hàng từ trái qua phải, rồi từ dưới lên trên.
 4. Khác biệt các Lisp trước có thêm chức năng sort Tag của block thuộc tính, ví dụ: Khung tên của mình là ATT-Block có TagName là KHBV dùng để đánh số thứ tự bản vẽ: BV-01, BV-02, BV-03 ... sắp xếp trên view không theo trật tự nào cả, thì lisp vẫn in ra theo thứ tự từ nhỏ tới lớn.
III. Chức năng PlotAll: Sau khi chọn được tên Block cần in, trừ Model ra, lisp sẽ tự động duyệt qua từng layout và in tất cả chúng chỉ với 1 Pick.
IV. Giao diện của Lisp:
141736_qpl2.jpg
V. File lisp (Lệnh QPL):
Vazs1T7iM8E

 

Cho em test với bác. Thành công thì em xin cảm ơn luôn ^^. Hiện giờ em đang dùng lisp inan nhưng xem ra không hay bằng của bác vì nhiều hạn chế hơn

Sê zi của em đây: 601225 10960I 129F9


  • 0

#10 nhoclangbac

nhoclangbac

    biết vẽ circle

  • Members
  • PipPip
  • 38 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 10 April 2016 - 03:09 PM

Lisp đã TEST trên Cad2007 và Cad2013x64

 

 

Oh yeah! Sư huynh có progn mới ah . Tick thanks cái đã .... :P . Mã của Nhoc đây

345771 809E3C 5559

Cho Nhoc xin Key :P


  • 0

#11 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 03:41 PM

Cho em test với bác. Thành công thì em xin cảm ơn luôn ^^. Hiện giờ em đang dùng lisp inan nhưng xem ra không hay bằng của bác vì nhiều hạn chế hơn

Sê zi của em đây: 601225 10960I 129F9

CCFG-AZWJ

 

 

Oh yeah! Sư huynh có progn mới ah . Tick thanks cái đã .... :P . Mã của Nhoc đây

345771 809E3C 5559

Cho Nhoc xin Key :P

 

HHBV-DTJ

;;;----------------------------------

 


  • 0

#12 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 03:44 PM

Oh yeah! Sư huynh có progn mới ah . Tick thanks cái đã .... :P . Mã của Nhoc đây

345771 809E3C 5559

Cho Nhoc xin Key :P

 

 

 

 

 

 

 
Mã: HHBV-DTJ

 

 

 

 


  • 0

#13 enix

enix

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 10 April 2016 - 04:41 PM

 

Oh yeah! Sư huynh có progn mới ah . Tick thanks cái đã .... :P . Mã của Nhoc đây

345771 809E3C 5559

Cho Nhoc xin Key :P

 

 

 

 

 

 

 
Mã: HHBV-DTJ

 

 

 

 

 

 

Em đã chạy thử lisp 2 bác inbox em.

1 vài nhận xét:

1. In trong Model:

Không in được hàng loạt, chỉ in được block đầu tiên.

Không có tùy chọn Center the plot, nên in ra file bị lệch về 1 bên.

2. In trong Layout:

Chọn Printer không có tác dụng, nó cứ mặc định nhận cái máy in đầu tiên và in cái máy này.

Chiều của tờ giấy ko auto, in cứ ra khổ giấy dọc.

 

Túm lại là với bản CAD mới bác còn nhiều việc phải làm  :)

 

P.S: Ý kiến phần Thứ tự in bác để khó hiểu quá, chưa in được nên ko biết nó ra sao? Em đoán:

1. Hàng - Cột: Trái qua phải, trên xuống dưới:

2.Column - L>R: Trên xuống dưới, trái qua phải

3. Row - B>T: Trái sang Phải, Dưới lên Trên

 

Còn thiếu nhiều trường hợp lắm bác, ví dụ hay gặp in từ Dưới lên Trên, Trái qua Phải.


  • 0

#14 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 05:10 PM

Em đã chạy thử lisp 2 bác inbox em.

1 vài nhận xét:

1. In trong Model:

Không in được hàng loạt, chỉ in được block đầu tiên.

Không có tùy chọn Center the plot, nên in ra file bị lệch về 1 bên.

2. In trong Layout:

Chọn Printer không có tác dụng, nó cứ mặc định nhận cái máy in đầu tiên và in cái máy này.

Chiều của tờ giấy ko auto, in cứ ra khổ giấy dọc.

 

Túm lại là với bản CAD mới bác còn nhiều việc phải làm  :)

 

P.S: Ý kiến phần Thứ tự in bác để khó hiểu quá, chưa in được nên ko biết nó ra sao? Em đoán:

1. Hàng - Cột: Trái qua phải, trên xuống dưới:

2.Column - L>R: Trên xuống dưới, trái qua phải

3. Row - B>T: Trái sang Phải, Dưới lên Trên

 

Còn thiếu nhiều trường hợp lắm bác, ví dụ hay gặp in từ Dưới lên Trên, Trái qua Phải.

Thanks! đã góp ý! Bản cad mới 5.5Gb down mệt quá mới được 20%.

ý 1 và 2 thì Cad2013 trở xuống là Ok rồi. 2014 trở lên chưa thử ...

Bổ sung phần sort thì đơn giản thôi, chỉ cần thay đổi dấu (< hay > là xong).

P/s: Làm khung tên chuyên nghiệp tý thì nên làm Att-Block, và sort không quan tâm vị trí, chỉ quan tâm đến ký hiệu bản vẽ thôi.


  • 0

#15 enix

enix

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 10 April 2016 - 08:23 PM

Thanks! đã góp ý! Bản cad mới 5.5Gb down mệt quá mới được 20%.

ý 1 và 2 thì Cad2013 trở xuống là Ok rồi. 2014 trở lên chưa thử ...

Bổ sung phần sort thì đơn giản thôi, chỉ cần thay đổi dấu (< hay > là xong).

P/s: Làm khung tên chuyên nghiệp tý thì nên làm Att-Block, và sort không quan tâm vị trí, chỉ quan tâm đến ký hiệu bản vẽ thôi.

 

Nếu mình làm thì ko còn gì để nói, thậm chí mình đã dàn hết publish ra gọn đẹp, nhưng khung người khác làm thì mệt lắm bác, nhiều khi đưa file in muốn khùng, nên cho nhiều tùy chọn thì tốt hơn bác để gặp thằng nào cũng chiến được  :)


  • 0

#16 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 08:34 PM

Nếu mình làm thì ko còn gì để nói, thậm chí mình đã dàn hết publish ra gọn đẹp, nhưng khung người khác làm thì mệt lắm bác, nhiều khi đưa file in muốn khùng, nên cho nhiều tùy chọn thì tốt hơn bác để gặp thằng nào cũng chiến được  :)

Nhờ bạn một tý! Bạn có thể cài Cad thấp hơn và test, rồi góp ý thêm để mình bổ sung. Mình đang down cad2017 để xem cần thay đổi chỗ nào cho phù hợp các đời cad.


  • 1

#17 Huynh Nghia

Huynh Nghia

    biết vẽ ellipse

  • Members
  • PipPip
  • 52 Bài viết
Điểm đánh giá: -22 (kém)

Đã gửi 10 April 2016 - 08:38 PM

Seri của mình: 76825F 450H25 251BI

Cho mình xin Key với. Thanks bạn trước nha! 


  • 0

#18 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 08:41 PM

Seri của mình: 76825F 450H25 251BI

Cho mình xin Key với. Thanks bạn trước nha! 

Của bạn đây: CFWY-CFSZ


  • 0

#19 Huynh Nghia

Huynh Nghia

    biết vẽ ellipse

  • Members
  • PipPip
  • 52 Bài viết
Điểm đánh giá: -22 (kém)

Đã gửi 10 April 2016 - 08:52 PM

Không biết bị sao mà khi nhập key xong rồi bấm ok thì màn hình chỉ nhá lên rồi thôi chứ không xuất hiện hộp thoại để chọn. cả cad 2007 và 2014 vẫn như vậy?


  • 0

#20 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 10 April 2016 - 08:56 PM

Bạn thử down lại cái này xem, và nhớ cho ý kiến nhé!

http://www.cadviet.c...1736_qpl2_1.rar


  • 1