Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
nguyentuyen6

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

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

nguyentuyen6    127

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.com/download/8ofyvcxpu7sfgu6/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)

Chỉnh sửa theo nguyentuyen6
  • Vote tăng 38
  • Vote giảm 2

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
phamngoctukts    708

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.com/upfiles/3/pl.rar

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

  • Vote tăng 3

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
dinhcong    4

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?

  • Vote tăng 1

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
nguyentuyen6    127

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:

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
dinhcong    4

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é.

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
phamngoctukts    708

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.

  • Vote tăng 1

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
Detailing    278

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?

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
ketxu    2.652

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)

  • Vote tăng 3

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
nguyentuyen6    127

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!!!

  • Vote tăng 2

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
ketxu    2.652

@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

  • Vote tăng 1

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
nguyentuyen6    127

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é

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
lp_hai    207

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á!

:)

  • Vote tăng 1

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
nguyentuyen6    127

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 à ^_^

  • Vote tăng 1

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
demen250988    0

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

 

1111_2.jpg

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

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
lp_hai    207

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

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
ketxu    2.652

Ké topic của Nguyentuyen 1 chút về việc batch print :

In trong toàn thư mục VBA mình bị vấp 1 chỗ, đó là nếu user để chế độ alert nếu có VBA thì mỗi file mở ra nó lại có cái bảng ^^ MẶc dù đã dùng cả cách tắt security trong reg của cad rồi cũng không ăn thua, hy vọng ai có giải pháp thì giúp giùm ketxu với ^^

Còn tắt nó đi thì k phải ngợi.. In cứ gọi là ... ^^

  • Vote tăng 2

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
nguyentuyen6    127

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

Ha!! MÌnh cũng ko biết gì VBA cả bạn ah. :wub:

Tiện thể sửa thêm 1 chút là: sau khi PREVEW xong thì sẽ ko thoát khỏi Lisp luôn. :D. Đã úp ở #1

 

-Mình nghĩ cái này cũng có thể làm đc in trong cùng 1 Folder

Tạo 1 file .txt lưu: tên máy in, khổ giấy,tên block khung tên. 1 file lisp mà cứ load lên là in luôn (líp này lấy tên máy in + khổ giấy + tên block khung tên ở trong file .TXT). Rồi dùng cái ScriptPro của bác Hoành giới thiệu ở đây rồi chạy.

http://www.cadviet.com/forum/index.php?showtopic=10618

Nghĩ vậy nhưng chưa thử :lol:

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
ketxu    2.652

Vậy tại sao bạn không duyệt qua toàn bộ file dwg ở thư mục, rồi mở, in, rồi đóng như truyền thống (nếu k tính tới cái khó ketxu đề cập trên kia)?

  • Vote tăng 1

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
lp_hai    207

Ké topic của Nguyentuyen 1 chút về việc batch print :

In trong toàn thư mục VBA mình bị vấp 1 chỗ, đó là nếu user để chế độ alert nếu có VBA thì mỗi file mở ra nó lại có cái bảng ^^ MẶc dù đã dùng cả cách tắt security trong reg của cad rồi cũng không ăn thua, hy vọng ai có giải pháp thì giúp giùm ketxu với ^^

Còn tắt nó đi thì k phải ngợi.. In cứ gọi là ... ^^

hehhe vậy bác cứ để một bảng hướng dẫn sữ dụng là tắt chế độ alert đi. bác cho em cái VBA đó 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
lp_hai    207

@ketxu

không biết cái này có júp bác ko?

em chả biết j, bác đừng phiền nhá

 

 

Enable Macro Virus Protection

 

The virus protection mechanism displays a built-in warning message whenever you open a drawing that may contain macro viruses.

 

To set the AutoCAD VBA project options

 

1.From the Tools menu choose Macro Macros to open the VBA Macros dialog box.

2.From the VBA Macros dialog box, choose Options to open the Options dialog box.

3.From the Options dialog box, select the options you want to enable.

Choose OK.

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


×