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.
Đăng nhập để thực hiện theo  
ssg

Thay đổi máy in

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

ssg    1.088

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:

Plot1.jpg

 

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

Plot2.jpg

 

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

Plot3.jpg

 

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!

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

 

001.jpg

 

Í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ể.

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

  • 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
ssg    1.088

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.

  • 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
gia_bach    1.442
.....................................

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.

  • 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
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)

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

Đăng nhập để thực hiện theo  

×