Chuyển đến nội dung
Diễn đàn CADViet
nguyentuyen6

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

Các bài được khuyến nghị

Chủ thớt không xuất hiện nữa rồi. Có anh biết vì sao không in đựoc bên layout không vây.

Lisp này mình sử dụng cũng bị như vậy

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.

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

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 12/3/2012)

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

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

 

Hướng dẫn:

7377_giaodien_1.jpg

 

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

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) chọn.

------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" . Có thể chọn 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)

 

 

Mình thấy Lisp của bạn làm in nhiều bản vẽ có nhanh hơn bình thường chút là không phải pick chọn 2 điểm của khung bản vẽ là Rectangle mà chỉ pick chọn một điểm bất kỳ trên khung bản vẽ Rectangle đó. Nhưng nếu có thể giải quyết được vấn đề sau để in nhiều bản vẽ có khung tên là Rectangle với các kích thước khác nhau có cùng layer thì sẽ nhanh hơn.

-Ở mục Print Method chỉ cần tick vào mục Rectangle, chọn kiểu layer là máy tự nhận toàn bộ các khung tên là Rectangle có layer đó trong bản vẽ để in thì đỡ phải pick chọn từng khung tên một để in.

- Với Block cũng tương tự chỉ cần tick vào mục Block, chọn tên Block bỏ qua bước pick chọn thì tốt.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

 

Mình thấy Lisp của bạn làm in nhiều bản vẽ có nhanh hơn bình thường chút là không phải pick chọn 2 điểm của khung bản vẽ là Rectangle mà chỉ pick chọn một điểm bất kỳ trên khung bản vẽ Rectangle đó. Nhưng nếu có thể giải quyết được vấn đề sau để in nhiều bản vẽ có khung tên là Rectangle với các kích thước khác nhau có cùng layer thì sẽ nhanh hơn.

-Ở mục Print Method chỉ cần tick vào mục Rectangle, chọn kiểu layer là máy tự nhận toàn bộ các khung tên là Rectangle có layer đó trong bản vẽ để in thì đỡ phải pick chọn từng khung tên một để in.

- Với Block cũng tương tự chỉ cần tick vào mục Block, chọn tên Block bỏ qua bước pick chọn thì tốt.

chọn kiểu layer là máy tự nhận toàn bộ các khung tên là Rectangle có layer đó trong bản vẽ để in thì đỡ phải pick chọn từng khung tên một để in

Reply: -> Nếu vậy, thì sẽ nhận cái khung nào sinh ra sau thì in trước, khung nào sinh ra trước thì in sau, không theo trật tự do ta định,

Chi bằng thiết lập cho 1 lần in theo kiểu pick -> Lần sau pick 1 cú pick thôi là nó in tất cả theo thứ tự cho mình

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

chọn kiểu layer là máy tự nhận toàn bộ các khung tên là Rectangle có layer đó trong bản vẽ để in thì đỡ phải pick chọn từng khung tên một để in

Reply: -> Nếu vậy, thì sẽ nhận cái khung nào sinh ra sau thì in trước, khung nào sinh ra trước thì in sau, không theo trật tự do ta định,

Chi bằng thiết lập cho 1 lần in theo kiểu pick -> Lần sau pick 1 cú pick thôi là nó in tất cả theo thứ tự cho mình

Mình thấy có phần Sort đó mà. Cái đó không có tác dụng sao bạn? Mà mình cũng muốn in nhanh ở lần đầu đó chứ khi đã chỉnh sửa hoàn thiện các bản vẽ xong in ra rồi thì lần sau có in thì chỉ là bổ sung thôi.

- ở đây nêu theo ý mình thì phần sort đó phải kết hợp lại là từ trên xuống dưới và từ trái qua phải tức là khi in hết một cột từ trên xuống dưới rồi chuyển sang in tiếp cột tiếp theo chẳng hạn (hoặc ngược lại để có thể đa năng hơn có thể in được theo 4 hướng khác nhau để phù hợp với cách sắp xếp bản vẽ khác nhau của từng người) .

P/s: mình cũng tham khảo thấy caí lisp này của Kỹ sư Phan Thanh Tú khá hay gần giải quyết được vấn đề mình đưa ra với việc chỉ pick chọn một Block có thể in tất cả các Block khác cùng tên. Đồng thời lisp này hay ở chỗ là tự động thiết lập cá thông số in như máy in, khổ giấy, nét in.http://www.cadviet.c...8_vnplotv20.rar

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.

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

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 12/3/2012)

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

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

 

Hướng dẫn:

7377_giaodien_1.jpg

 

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

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) chọn.

------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" . Có thể chọn 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)

các bác ơi sao em chọn all thì nó hiển thị dòng thông báo là ko thể in nhiêu file cùng một lúc, chỉ có giá trị tại 1 thời điểm ý, giống như trong lúc in bình thường ở cad mà máy chưa in hết mình lại ctrl+p ấy.

bác nào mà có video hướng dẫn thì hay quá, e ko bít sd thế nào :huh: :huh: :huh:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

chào cả nhà ! em mới vào nghề bác chủ thớt có thể bớt chút thời gian chỉ dạy em cách dùng lisp với ah.

em download file TPL.VLX về mà chẳng biết dùng kiểu j ! mầy mò mãi cũng chưa ra ! mong các bác giúp em ! mail của em là nguyenbang116@gmail.com và yhoo : nguyenbang116 . bác giúp em với nhé

em rất rất cần .

 

 

Em cảm ơn bác nhiều !

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

chào cả nhà ! em mới vào nghề bác chủ thớt có thể bớt chút thời gian chỉ dạy em cách dùng lisp với ah.

em download file TPL.VLX về mà chẳng biết dùng kiểu j ! mầy mò mãi cũng chưa ra ! mong các bác giúp em ! mail của em là nguyenbang116@gmail.com và yhoo : nguyenbang116 . bác giúp em với nhé

em rất rất cần .

 

 

Em cảm ơn bác nhiều !

Bạn load xong bây giờ chỉ việc bấn lệnh in thôi (lệnh là IN hoặc TPL hoặc MP) giờ thì ngồi làm ly cafe chờ máy in làm việc thôi

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Lâu lâu ko động đến lisp lại ngứa ngáy vào sửa cái này :D .

Updated Thêm chức năng "Plot scale" . Có thể chọn in theo các tỷ lệ khác nhau.

Link download tại #1

Mình nghĩ nên thêm chức năng Add Plot Style, bởi vì nhiều khi mình save file plotstyle vào Folder của bản vẽ, không phải vào Folder plotstyle của cad để tránh trường hợp cài lại cad, ko biết thế nào?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Không biết là mình bị mắc lỗi gì, nhưng khi setup tất cả các bước nếu chọn chế độ Preview rồi plot thì in được, nhưng nếu chọn độ Print luôn thì chỉ ra giấy trắng không thui.

Ai biết chỉ giúp mình với :(

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

cam onn pac rat nhieu nhe!

bai viet cua pac giup e rat nhiẻtong luc nay!

biggrin.gif

cảm ơn bạn nhưng mình có  góp ý nhỏ, khi mình in ra thì lề bên phải bản vẽ thừa hơi nhiều, bạn có thể chỉnh lại được không

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

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.

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

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 12/3/2012)

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

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

 

Hướng dẫn:

7377_giaodien_1.jpg

 

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

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) chọn.

------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" . Có thể chọn 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)

 

phải đăng nhập bằng được để cảm ơn tác giả ,một chương trình quá hay ,xin cảm ơn 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Mình có dùng Lisp của bạn, nên mình muốn hỏi bạn vấn đề này một tí,

Khi in chuyển file từ cad sang pdf thì in thủ công một bản vẽ thôi hả bạn,

và lisp này khi in có chức năng tự đánh số khi in từ cad sang pdf không bạn

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

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.

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

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 12/3/2012)

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

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

 

Hướng dẫn:

7377_giaodien_1.jpg

 

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

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) chọn.

------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" . Có thể chọn 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)

 

Chủ thớt ơi, tại sao mình dùng lisp của bạn nó bị là không in cả khung lựa chọn mà cứ offset khung vào 1 khoảng nhỉ, mình muốn khung chọn thì nó là viền giấy luôn, như thế mới đúng tỉ lệ được, bạn xem bản  đính kèm dễ hiểu hơn nhé

http://www.mediafire.com/download/wjto07t9tv0jtyb/giai_thich_lisp_in_nhanh.dwg

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

- Mình đã dùng lisp của chủ thớt được 1 thời gian, thấy rất tuyệt.

- Mình có yêu cầu nhỏ mong chủ thớt giúp đỡ:

 

+ Trong tùy chọn IN của mình thêm 1 ô nữa là Số lượng bản in(Copies)

 

Cảm ơn rất nhiều

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×