Thay đổi máy in

[ssg 1.102]

Ssg thay đổi chỗ làm việc -> máy in cũng thay đổi. Với các bản vẽ mới tạo thì không vấn đề gì, mình dùng một đoạn lisp để thiết lập tự động, cũng như tạo sẵn một số file *.dwt phù hợp. Nhưng với các bản vẽ cũ có sẵn từ trước, khi in rất phiền toái:

 

1- Lệnh plot, nó hiện ra cái này:

 

2- OK -> phải chọn lại Name cho máy in:

 

3- Sau đó, phải chọn lại Paper Size và Plot Scale:

 

Mỗi phiên làm việc, ssg phải xử lý ít nhất vài chục bản như vậy, rất mất thời gian nhưng chưa nghĩ ra cách gì hay hơn. Nhờ các bạn có kinh nghiệm về in ấn chỉ giúp.

Cám ơn nhiều!

[elleHCSC 98]

Chưa nghĩ ra cách nào hay hơn nhưng tôi vẫn làm như vầy khi cần phải in hàng loạt các file trong 1 phiên làm việc:

 

1. In bản đầu tiên và làm các bước thiết lập y chang ssg. mục đích để cho nó lưu lại tham số cơ bản sau của CAD:

- Plot device

- Plotter name

- plot style

- plot setting -> paper size

- printable area -> mm

- Drawing orientation...

- plot scale

 

2. Từ bản in thứ 2 tôi chỉ việc chọn chuyển mục "Page setup name" thành Previous Plot là tất cả các bản in sau nó "ăn" theo config của bản in đầu tiên.

 

 

Ít nhất nếu có in 100 bản thì cũng chỉ phải config 1 lần còn các bản sau chỉ việc chỉnh mỗi mục "Windows" tức là chọn vùng in còn mọi cái cứ chọn là OK.

 

Mà xem trong cái hình config của ssg thấy có cái máy in là Auto HP Laser.. thì bạn vào Control panel của Windows mà xoá hết những thằng máy in có mục Auto... đi. Điều này sẽ tốt hơn khi trong mạng có nhiều máy in được share và tốc độ tìm máy in của máy tính ssg sẽ nhanh lên đáng kể.

[Lương Xuân Hậu 156]

Mỗi phiên làm việc, ssg phải xử lý ít nhất vài chục bản như vậy, rất mất thời gian nhưng chưa nghĩ ra cách gì hay hơn. Nhờ các bạn có kinh nghiệm về in ấn chỉ giúp.

Cám ơn nhiều!

Theo em bác nên chuyển qua CAD2007 trở đi, chỉ cần thiết lập in cho bản vẽ ban đầu thôi.

Xin lỗi lâu rồi e ko dùng CAD2004, nếu trả lời ko đúng ý bác thì bác bỏ qua cho nhé

[ssg 1.102]

Cám ơn các bạn đã quan tâm!

 

@elle

Plot Scale trong loạt bản vẽ của ssg nói chung là rất khác nhau, không chơi kiểu Previous được!

 

@Xuân Hậu

Trong máy ssg cài cả 2 bản 2002 và 2007. Tuy nhiên, vì nhiều lý do khác nhau (rất chính đáng) nên trong công việc, ssg vẫn dùng bản 2002. Bản 2007 chỉ để "ngâm cứu" thôi! Ssg cũng chưa thử với 2007 có đáp ứng được không nữa.

 

Ssg đã giải quyết vấn đề trên bằng Lisp. Bạn nào quan tâm có thể tham khảo:

 

;;;-------------------------------------------------------
(defun C:RP( / MyPrinter AcObj ADoc ALay PSize) ;;;Reset Printer
(vl-load-com)
(setq
   MyPrinter "HP Laser Jet 5100 PCL 6 on PHAMBAHUNG-CK"
   AcObj (vlax-get-acad-object) ;;;AutoCAD Object
   ADoc (vla-get-ActiveDocument AcObj) ;;;ActiveDocument
   ALay (vla-get-ActiveLayout ADoc) ;;;ActiveLayout
   PSize (vlax-get-property ALay 'CanonicalMediaName) ;;;PaperSize
)
(vla-put-ConfigName ALay MyPrinter) ;;;Set MyPrinter
(vlax-put-property ALay 'CanonicalMediaName PSize) ;;;Reset PaperSize
(command "qsave")
(princ)
)
;;;-------------------------------------------------------

 

Dùng tốt, chỉ có chỗ chưa hài lòng lắm là biến MyPrinter phải làm thủ công, đang thử tìm cách lấy tự động nhưng chưa được. Tạm thời chấp nhận như vậy (ssg đang còn rất nhiều việc khác phải làm).

Bạn nào biết cách lấy thông tin này xin chỉ giúp (tên máy in đang "Set As Default" trong Control Panel của System)

Cám ơn.

[gia_bach 1.549]

.....................................

Bạn nào quan tâm có thể tham khảo:

;;;-------------------------------------------------------
(defun C:RP( / MyPrinter AcObj ADoc ALay PSize) ;;;Reset Printer
(vl-load-com)
(setq
   MyPrinter "HP Laser Jet 5100 PCL 6 on PHAMBAHUNG-CK"
   AcObj (vlax-get-acad-object) ;;;AutoCAD Object
   ADoc (vla-get-ActiveDocument AcObj) ;;;ActiveDocument
   ALay (vla-get-ActiveLayout ADoc) ;;;ActiveLayout
   PSize (vlax-get-property ALay 'CanonicalMediaName) ;;;PaperSize
)
(vla-put-ConfigName ALay MyPrinter) ;;;Set MyPrinter
(vlax-put-property ALay 'CanonicalMediaName PSize) ;;;Reset PaperSize
(command "qsave")
(princ)
)
;;;-------------------------------------------------------

 

Dùng tốt, chỉ có chỗ chưa hài lòng lắm là biến MyPrinter phải làm thủ công, đang thử tìm cách lấy tự động nhưng chưa được. Tạm thời chấp nhận như vậy (ssg đang còn rất nhiều việc khác phải làm).

Bạn nào biết cách lấy thông tin này xin chỉ giúp (tên máy in đang "Set As Default" trong Control Panel của System)

Cám ơn.

Chào Bác Ssg

Gửi bác Lisp lấy tên máy in đang "Set As Default" trong Control Panel của System

 

(setq prn "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"

prn (vl-registry-read prn "Device")

prn (substr prn 1 (vl-string-search "," prn)))

 

đã kiểm tra trên Win XP & CAD2010

 

Từ Lisp trên chúng ta có thể mở rộng cho tất cả các thông số khác đuợc ghi trong REGISTRY, nếu biết đuờng dẫn trong registry của thông số đó.

Chúc bác sức khỏe.

[TRUNGNGAMY 91]

Những bài viết này đã lâu rồi, tuy nhiên mình đưa ra cách mà mình in hàng loạt để các bạn tham khảo.

Mỗi bản vẽ thường đc in theo khổ giấy khác nhau và tỷ lệ khác nhau kèm theo những qui định. Thông thường mỗi bv có 1 khung, mình dựa vào khung này để gán cho mỗi bản vẽ một dữ liệu mở rộng. Ví dụ : Bv A3, in tl 2:1 mình có thể đặt tên dlmr là "A3_2_1" và viết một lisp kèm theo để in bv này. sau khi lưu thông tin này sẽ đc lưu theo bv. Sau một thới gian muốn in bản vẽ này ta chỉ cần truy xuất vào thông tin đó sẽ xác định đc vị trí, khổ giấy, tỷ lệ ...cho từng bv. Cho dù trên 1 file có bao nhiêu bv hoặc bv hiện diện trên nhiều file ta đều nhận diện đc và in hàng loạt một cách chính xác (tất nhiên lisp phải phù hợp với máy in)