Đến nội dung


Hình ảnh

Thay đổi máy in


  • Please log in to reply
5 replies to this topic

#1 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 16 May 2009 - 10:16 AM

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:
Hình đã gửi

2- OK -> phải chọn lại Name cho máy in:
Hình đã gửi

3- Sau đó, phải chọn lại Paper Size và Plot Scale:
Hình đã gửi

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

#2 elleHCSC

elleHCSC

    biết lệnh copy

  • Members
  • PipPipPip
  • 119 Bài viết
Điểm đánh giá: 98 (tàm tạm)

Đã gửi 16 May 2009 - 11:22 AM

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.

Hình đã gửi

Í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ể.
  • 1
Share for all, all will share !

--------------------
HTTP://WWW.HCSC.VN
HTTP://WWW.HCSC.COM.VN

#3 Lương Xuân Hậu

Lương Xuân Hậu

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 299 Bài viết
Điểm đánh giá: 156 (tàm tạm)

Đã gửi 16 May 2009 - 11:50 AM

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é
  • 1
Hạnh phúc gì bằng những đêm đông
Ta bôi DEP rồi đắp chăn đi ngủ
Đời SV nghèo cơm ko đủ
Nên nhiều khi ngủ để quên đời

#4 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 19 May 2009 - 10:33 AM

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

#5 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1431 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 26 November 2009 - 03:08 PM

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

#6 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 28 June 2010 - 02:35 AM

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