In tự động nhiều file bản vẽ cad (2 người xem)

[thuyloitienlu]

Tôi có nhiều file bản vẽ có kích thước, vị trí giống nhau, tôi muốn in tự động các file cad đó mà không phải mở bản vẽ ra và pick thì làm thế nào ? Hoặc tôi đã mở bản vẽ và pick để gửi ra file *.plt thì làm sao để in các file *.plt này ? bạn nào biết giúp tôi với.

 

[PhanTuHuong]

Câu 1: Hơi oái oăm, vì để in thì phải chọn vùng in. Bạn xem thêm tiện ích hỗ trợ in

http://www.giaiphapexcel.com/forum/showthread.php?p=72505#post72505

Câu 2: Lâu lắm không in kiểu này, trước kia có dùng ở Cad 12, bây giờ quên mất.

 

[philip]

Tôi có nhiều file bản vẽ có kích thước, vị trí giống nhau, tôi muốn in tự động các file cad đó mà không phải mở bản vẽ ra và pick thì làm thế nào ?

Cái này bạn nên vào www.cadviet.com để tham khảo. Trước đây tôi cũg có down được của bác Hoành bên cadviet một Lisp với nội dung như bạn vừa nói, nhưng tôi dùng ko thấy một số điểm bất tiện nên thôi luôn

 

[thuyloitienlu]

Vì tôi có rất nhiều bản vẽ cần in có vị trí vùng in như nhau (khoảng 20000 file), để in các bản vẽ này mà cứ ngồi mở ra và pick để in thì mất rất nhiều thời gian.
Nếu không có phần mềm nào hỗ trợ thì các bạn giúp tôi viết code VBA tự động mở file bản vẽ theo 1 đường dẫn cụ thể và pick vùng in theo 1 vị trí tọa độ cố định trên bản vẽ để gửi ra máy in.
Tôi không rành VBA trong Cad nên không biết viết như thế nào.
Các bạn giúp tôi với.

 

[nvson]

Nếu bạn sử dụng AutoCad R14 thì tham khảo đoạn code AutoLISP sau:

(Defun C:MYPRINT (/ w1 w2)
(Princ "\n\n\n ")
(Setq w1 (list [COLOR=red]0 0[/COLOR]))
(Setq w2 (list [COLOR=red]185 285[/COLOR]))
(Command "plot" "w" w1 w2 "5" "" "" "m" "[COLOR=red]10,0[/COLOR]" "[COLOR=red]0[/COLOR]" "" "" "[COLOR=red]1=1[/COLOR]" "")
)

Giải thich:
Vùng in sẽ là (0, 0) đến (185, 285)
Các tham số lệnh PLOT mà bạn cần thay đổi:
"10,0" là tọa độ Origin, bạn cần thay đổi giá trị này cho phù hợp với bản vẽ của bạn.
"1=1" là tỷ lệ in
"0" là góc quay bản vẽ chọn các giá trị: 0, 90, 180, 270
(P/S: Bạn cần thay đổi những chữ màu đỏ trong đoạn code AutoLISP trên)

Paste đoạn code trên vào NotePad, rồi Save thành file MyPrint.lsp
Vào AutoCad, Load file trên. Thử đánh lệnh MyPrint xem sao???

 

[thuyloitienlu]

Với code của bạn NVSon thì phải mở bản vẽ đó ra để load và gõ lệnh Myprint (Vì gửi xong thì phải đợi máy in làm việc) . Có cách nào lisp tự động mở bản vẽ và gửi ra máy in không bạn ? các bạn tìm phương pháp nhanh nhất cho tôi với nhé.

 

[mr_nguyennghia]

Với code của bạn NVSon thì phải mở bản vẽ đó ra để load và gõ lệnh Myprint (Vì gửi xong thì phải đợi máy in làm việc) . Có cách nào lisp tự động mở bản vẽ và gửi ra máy in không bạn ? các bạn tìm phương pháp nhanh nhất cho tôi với nhé.

Cho phép em đào cái top này lên cái. Bác nào có giải chưa ah. Em có nhiều file autocad, mỗi file 1 bản vẽ, có thể in theo kiểu Extend. Giờ làm thể nào để in tất cả các file trong 1 thu mục được

 

[trung duy]

Hi Bạn, in nhiều file Autocad riêng lẽ mà không cần mở bản vẽ lên vẫn có thể in được đó bạn.
Trong autocad có lênh Publish, cụ thể bạn vào đường links hướng dẫn cụ thể nhé
[url]http://pdms24h.weebly.com/th7911-thu7853t.html
[/URL]