Đến nội dung


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

Thêm 1 lisp in nhiều bản vẽ


  • Please log in to reply
142 replies to this topic

#1 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 08 April 2011 - 05:31 PM

Muốn tự viết cái Lisp in cho mình nên em mới viết cái Lisp này. Các bác cho em nhận xét.

- Do chỉ dùng cad trên Model và không biết về LayOut nên bác nào dùng trong layout thấy không được cũng đừng hỏi nhé ( mình không biết để trả lời đâu ). sorry

Sử dụng: Dùng để in nhiều bản vẽ trong 1 file cad (dwg) mà chỉ phải chỉnh 1 lần.

 

Cập nhật:

23/11/2014:

http://www.mediafire...gu6/TPL-DNM.VLX

Cho phép chọn cả khung tên dynamic ( bạn nào không dùng khung dynamic thì không cần phải down lại)

Nếu bị lỗi thì dùng bản  10/7/2014 hoặc 11/3/2012

10/7/2014: - Sửa lỗi in nhiều bản vẽ,

- Thêm chọn nhiều block làm khung tên bằng cách ghi vào ô Name . VD: tenblock1,tenblock2,tenblock3 ( Tối đa 3 block, cách nhau bằng dấu , . Không chấp nhận khoảng trắng).

5/7/2014: - Thêm lựa chọn in tất cả các đối tượng trong bản vẽ

4/7/2014: - Thêm mục Load PlotStyle, Drawing Orientation ( Auto, Portrait, Landscape) ...bla...bla

1/7/2014: - Thêm mục "Nums of Copy". Dùng để in bản vẽ thành nhiều bản.

- Thêm lựa chọn in trong nút "Preview".

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

11/3/2012: - Thêm lựa chọn "All" trong mục Print Method. Cho phép nhận nhiều đối tượng khác nhau làm khung in.
Chú ý: Không chọn được các đối tượng là: Text, Mtext, Dim, Xline, Leader, Line, Ray.
+ Khi chọn All thì thứ tự sắp sếp bản vẽ trong mục Sort sẽ chạy không đúng trong một số trường hợp.( Nên để Normal rồi Pick chọn từng cái :P )
10/3/2012: -Thêm chức năng "Plot scale". Có thể chọn in theo các tỷ lệ khác nhau.
- Sửa vài chỗ linh tinh.
8/3/2012: Thêm chức năng Pick layer. Thay thế các hàm Acet = lisp giúp không cần cài Express tools
+ 2011:
- 20/4: Sửa lỗi
- 18/4: Sửa lỗi+ thêm phần Plot offset
- 16/4: Sửa lỗi trong phần PLOT to File, khi chọn đường dẫn bị lưu sai chỗ. Sửa phần SORT đối với lệnh in ko xếp theo thứ tự!!!


Download: ( Tên Lệnh: TPL hoặc IN hoặc MP )

TPL-IN-MP (New 10/7/2014)

TPL-IN-MP (12/3/2012)

Hướng dẫn:

7377_7152014_111258_pm_1.jpg

1: Chọn tên máy in, khổ giấy, plotstyle cần in

 // STYLESMANAGER Nút Add để tải PlotStyle có sẵn ( Tên không được trùng với PlotStyle đã có)
2: Có 3 lựa chọn :
------Block: Khi chọn, vùng in sẽ nằm trong block chọn. Để lấy block mẫu ấn vào nút Pick
------Rectangle: Khi chọn, vùng in sẽ nằm trong rectangle( có layer ở khung layer).
------All: Cho phép nhận nhiều đối tượng khác nhau làm khung in.
Chú ý: Không chọn được các đối tượng là: Text, Mtext, Dim, Xline, Leader, Line, Ray.
3: Chức năng "Plot scale" . Chọn Custom in theo các tỷ lệ khác nhau. ( Numerator : Tử,  Denominator: Mẫu)
4: Khi muốn xuất ra PDF thì chọn đường dẫn lưu File. Khi in ra, nếu không thấy file .pdf thì in "mồi" 1 lần = lệnh .plot rồi thử lại (chưa biết cách khắc phục)
5: Sắp xếp in:
------ Normal: cái nào chọn trước in trước
------ Left->Right : in từ trái sang phải bất kể chọn cái nào trước
------ Top->Bottom : in từ trên xuống dưới bất kể chọn cái nào trước.
6: Chỉnh Plot Offset
Thank!!!. Các bác gặp lỗi gì thì thông báo giúp e nhé, e sẽ tìm cách khắc phục.
P/s: Lisp bị lỗi khi trong bản vẽ có block anonymous (Các bạn search trên diễn đàn cách biến block anonymous thành block thường)


Bài viết đã được chỉnh sửa nội dung bởi nguyentuyen6: 23 November 2014 - 01:47 AM

  • 33

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#2 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 08 April 2011 - 06:51 PM

Muốn tự viết cái Líp in cho mình nên Em mới viết cái Lisp này. Các bác cho em nhận xét nhé.
Tên lệnh là PL

http://www.cadviet.c...pfiles/3/pl.rar

Rất ấn tượng. Mỗi tội trùng lênh pline.
  • 3
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#3 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 08 April 2011 - 07:03 PM

Rất ấn tượng. Mỗi tội trùng lênh pline.

Hix!! Em không chú ý cái đó. Đổi lại thành PLT tại #1
http://www.cadviet.c...files/3/plt.rar
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#4 dinhcong

dinhcong

    biết vẽ arc

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

Đã gửi 08 April 2011 - 07:39 PM

Mình thấy còn 1 số vấn đề:
1. Chọn Prin method là Rec thì preview thêm các đối tượng không cần thiết của mỗi bản vẽ, rồi mới tới toàn bộ bản vẽ cần in.
2. Mình chưa hiểu Prin method: Block
Chủ topic giải đáp dùm nhé. Thanks.
Mà hình như cách này nhanh hơn cách in thủ công 1 tí. Chưa in thử ra máy in, không biết có lỗi gì không?
  • 1

#5 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 08 April 2011 - 09:15 PM

Mình thấy còn 1 số vấn đề:
1. Chọn Prin method là Rec thì preview thêm các đối tượng không cần thiết của mỗi bản vẽ, rồi mới tới toàn bộ bản vẽ cần in.
2. Mình chưa hiểu Prin method: Block
Chủ topic giải đáp dùm nhé. Thanks.
Mà hình như cách này nhanh hơn cách in thủ công 1 tí. Chưa in thử ra máy in, không biết có lỗi gì không?


Cảm ơn bạn đã góp cho mình!
1. Nếu bạn chọn Rectangle thì khi bạn chọn khung tên thì chỉ chọn cái Rectangle ở ngoài cùng của khung tên thôi thì sẽ ko bị in những cái thừa. Do mình để nhận biết cái Rec.... đó là LWPOLYLINE thôi. Có lẽ thêm cái là LWPOLYLINE đó phải có 4 vectex nữa thì chắc hơn nhỉ. :rolleyes:
2. Còn cái lựa chọn là block: Thuờng thì khung tên được cho vào block cho dễ chỉnh sửa. Bạn chọn nút Pick để lấy tên của block khung tên mẫu rồi làm cũng như Rectangle thôi.
Cái này nhanh hơn vì nó có thể in nhiều bản vẽ 1 lúc mà chỉ mất 1 lần chỉnh thôi bạn ạ.

Mình cũng test thử trên máy cty mình rồi thì thấy chạy tốt. Nhưng có 1 cái là nếu chọn xuất ra PDF thì phải in mồi thủ công 1 phát đầu = lệnh PLOT rồi mới in được bằng Líp này ( Chỗ này mình chả hiểu tại sao ). Với lại mình cũng ko biết cách làm sao để chỉnh được chỗ để lưu File PDF đó. Toàn phải vào Options của Cad để chỉnh thủ công. Mình cũng đã thử sửa cái đường dẫn đó = cách vào Registry mà không được, :wub:
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#6 dinhcong

dinhcong

    biết vẽ arc

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

Đã gửi 08 April 2011 - 11:00 PM

Mình đóng góp thêm chút ý kiến:
1. Chế độ in Rec mà có nhiều bản vẽ cùng in, nếu chỉ chọn rec ngoài cùng thì chưa tối ưu lắm, chọn tất cả vùng các bản vẽ thì nhanh hơn.
2. In đồng thời được thì tốt hơn :D chư
Bạn chỉnh lại xem sao nhé.
  • 0

#7 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 09 April 2011 - 07:43 AM

Mình cũng test thử trên máy cty mình rồi thì thấy chạy tốt. Nhưng có 1 cái là nếu chọn xuất ra PDF thì phải in mồi thủ công 1 phát đầu = lệnh PLOT rồi mới in được bằng Líp này ( Chỗ này mình chả hiểu tại sao ). Với lại mình cũng ko biết cách làm sao để chỉnh được chỗ để lưu File PDF đó. Toàn phải vào Options của Cad để chỉnh thủ công. Mình cũng đã thử sửa cái đường dẫn đó = cách vào Registry mà không được, :wub:

Bạn nghiên cứu thử cái method plotToFile xem.
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#8 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 09 April 2011 - 08:55 AM

Cái này in scale to fit hả bạn?
mình muốn in đúng tỉ lệ 1:1 thì làm sao?
muốn chuyển sang landscape làm thế nào?
Có thể thêm plot stamp vào ko?
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#9 duyhung

duyhung

    biết vẽ rectang

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

Đã gửi 09 April 2011 - 11:35 AM

Cái này nó tự nhận landscape mà bác.
Thanks bác nguyentuyen6 đã share, mong lisp ngày càng hoàn thiện.
  • 0
Song va chien dau!

#10 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 09 April 2011 - 11:51 AM

Mình sử dụng với block thì bị lỗi này :)

From nguyentuyen6 @CadViet
Cai Express-Tools truoc khi su dung!!!
Chon Block khung ten:
Chon khung ten can in:
Chon BLOCK can xem:
Select objects: 1 found

Select objects: ; error: invalid point: (4406.31 -2.0654e+175 0.0)


  • 3

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#11 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 09 April 2011 - 10:47 PM

Mình mới thêm phần Plot to File để chọn đường dẫn lưu file khi in ra PDF :D
Update ở #1 nhé!!!

Bạn nghiên cứu thử cái method plotToFile xem.

Thank bạn nhiều!!Mình mò được cái đấy rồi. Nhưng cái phải in mồi 1 phát đầu = lệnh Plot thì ko biết sửa cách nào cả

Cái này in scale to fit hả bạn?
mình muốn in đúng tỉ lệ 1:1 thì làm sao?
muốn chuyển sang landscape làm thế nào?
Có thể thêm plot stamp vào ko?

- Líp Tự nhận landscape và Portrail
- Mình đặt nó là Scale To Fit Bạn ạh!!!
- Còn cái in theo tỷ lệ thì mình đang làm bạn ạ!

Mình sử dụng với block thì bị lỗi này :)

Mình cũng ko hiểu sao lại bị bạn ạ, hehe. Hay bạn thử với cái block khác hoặc Load lại líp xem dc ko :lol:. Nếu vẫn ko đc thì bạn gửi mình cái Block khung ý để mình thử Debug nó trong Vlide xem.
Thank!!!
  • 2

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#12 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 11 April 2011 - 09:30 AM

@NTuyen6 : rất đau lòng là hôm nay mình test lại file đó thì lại OK. Vậy chắc chắn là do có biến nào đó ảnh hưởng đến lisp của bạn ^^ Lỗi lần trước nó tạo thành 1 khung bao rất to màu đỏ, nhưng không in gì :)
P/S : mình thích cách bạn lưu thông tin :"> Bravo
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#13 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 12 April 2011 - 04:33 PM

Mới update thêm vài thứ linh tinh nữa. Mọi người xem qua nhé :lol:
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#14 tvgtyb08

tvgtyb08

    biết vẽ spline

  • Members
  • PipPip
  • 92 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 12 April 2011 - 05:48 PM

Mới update thêm vài thứ linh tinh nữa. Mọi người xem qua nhé :lol:

Link vẫn ở #1 àh bạn?
  • 0

#15 dinhcong

dinhcong

    biết vẽ arc

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

Đã gửi 12 April 2011 - 08:24 PM

Link có vấn đề rồi chủ thớt? Xem lại dùm nhé.
  • 0

#16 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 12 April 2011 - 09:12 PM

Link vẫn ở #1 àh bạn?

vẫn ở #1 bạn àh. :)

Link có vấn đề rồi chủ thớt? Xem lại dùm nhé.

Mình vừa kiểm tra vẫn tốt mà bạn! Ko dùng cái hỗ trợ download nhé
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#17 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 13 April 2011 - 02:51 PM

hic. định áp dụng zô file của mình.
ai ngờ lisp này để in nhiều khung trong cùng một file. hic.
dù sao cũng chúc pác thành công nhá!
:)
  • 1
Hình đã gửi

#18 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 13 April 2011 - 03:19 PM

hic. định áp dụng zô file của mình.
ai ngờ lisp này để in nhiều khung trong cùng một file. hic.
dù sao cũng chúc pác thành công nhá!
:)

Hì!! cảm ơn bác nhé. Chắc bác định làm cái in cả folder à ^_^
  • 1

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#19 demen250988

demen250988

    biết pan

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

Đã gửi 13 April 2011 - 03:20 PM

Muốn tự viết cái Líp in cho mình nên Em mới viết cái Lisp này. Các bác cho em nhận xét nhé.
Tên lệnh là: TPL :lol:

Download: TPL

Hình đã gửi

Hướng dẫn:

1: Chọn tên máy in, khổ giấy, plotstyle cần in
2: Có 2 lựa chọn :
------Block: Khi chọn vùng in sẽ nằm trong block chọn. Để lấy block mẫu ấn vào nút Pick
------Rectangle: Khi chọn vùng in sẽ nằm trong rectangle chọn. Và chỉ chọn đc Rec có layer ở khung layer
3: Khi muốn xuất ra PDF thì chọn đường dẫn lưu File
4: Sắp xếp in:
------ Nomal: cái nào chọn trước in trước
------ Left->Right : in từ trái sang phải bất kể chọn cái nào trước
------ Top->Bottom : in từ trên xuống dưới bất kể chọn cái nào trước.
Thank!!!


cam onn pac rat nhieu nhe!
bai viet cua pac giup e rat nhiẻtong luc nay!
:D
  • 0

#20 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 13 April 2011 - 04:14 PM

Hì!! cảm ơn bác nhé. Chắc bác định làm cái in cả folder à ^_^

em cũng ko biết. nhưng nếu bác nghiên cứu jùm cái đó thì nhất định em ko chỉ thanks bác 1 lần đâu.
hehhe. em thì ko biết gì về VBA nhưng em thấy nó tương tác trên nhiều BV độc lập được thì in chắc cũng có cách chứ ah
  • 0
Hình đã gửi