Print Page Setups (Plot Configures) in AutoCAD

[hopbuivan 0]

Mình đang có một vấn đề mà trong cadviet cũng đã bàn và trên mạng cũng bàn nhiều rồi nhưng mình thấy các giải pháp các bác đưa ra không giải quyết được, hoặc không linh động được, đó là vấn đề in ấn.,vì mỗi người, mỗi công ty làm 1 kiểu

Bản vẽ (khung tên) thì có thể trình bày trong Layout hoặc Model tùy từng người/công ty. Nếu dùng lệnh Publish có thể in được cho cả trong Model lẫn Layout, vấn đề ở chỗ nó không cho phép mình dùng một mẫu để publish cho tất cả các file. Dùng Sheet Sets Manager thì bắt buộc phải để (khung bản vẽ) ở Layout và mỗi Layout chỉ được 1 bản vẽ?

Vậy nên mình thấy tổng quát nhất để giải quyết vấn đề này là: Tạo ra các Page Setup (trong đó có đầy đủ thông tin cần để in ấn như máy in, đường nét, vùng in...) cho 1 file mẫu,mỗi khi cần in 1 bản vẽ bất kỳ (miễn sao đảm bảo điều kiện: tọa độ các vùng cần in phải giống file mẫu ở trên) có thể import các Page Setup đó vào là nhanh nhất.

Vấn đề đặt ra, và mình cũng đang mày mò mà mãi chẳng ra vì k chuyên về lập trình., là viết đoạn mã bằng VBA hoặc lisp để ra lệnh cho chương trình in các Page Setups đó (Plot Configures)

Vậy nhờ các cao thủ lập trình giúp đoạn mã để giải quyết vấn đề này giùm nhé. Thanks các pác

Kèm theo là bản vẽ ví dụ trong đó đã có các Page setup với đầy đủ thông tin cần để in

http://www.mediafire.com/?x0paw9waz6vkk6b

[phamngoctukts 714]

Mình đang có một vấn đề mà trong cadviet cũng đã bàn và trên mạng cũng bàn nhiều rồi nhưng mình thấy các giải pháp các bác đưa ra không giải quyết được, hoặc không linh động được, đó là vấn đề in ấn.,vì mỗi người, mỗi công ty làm 1 kiểu

Bản vẽ (khung tên) thì có thể trình bày trong Layout hoặc Model tùy từng người/công ty. Nếu dùng lệnh Publish có thể in được cho cả trong Model lẫn Layout, vấn đề ở chỗ nó không cho phép mình dùng một mẫu để publish cho tất cả các file. Dùng Sheet Sets Manager thì bắt buộc phải để (khung bản vẽ) ở Layout và mỗi Layout chỉ được 1 bản vẽ?

Vậy nên mình thấy tổng quát nhất để giải quyết vấn đề này là: Tạo ra các Page Setup (trong đó có đầy đủ thông tin cần để in ấn như máy in, đường nét, vùng in...) cho 1 file mẫu,mỗi khi cần in 1 bản vẽ bất kỳ (miễn sao đảm bảo điều kiện: tọa độ các vùng cần in phải giống file mẫu ở trên) có thể import các Page Setup đó vào là nhanh nhất.

Vấn đề đặt ra, và mình cũng đang mày mò mà mãi chẳng ra vì k chuyên về lập trình., là viết đoạn mã bằng VBA hoặc lisp để ra lệnh cho chương trình in các Page Setups đó (Plot Configures)

Vậy nhờ các cao thủ lập trình giúp đoạn mã để giải quyết vấn đề này giùm nhé. Thanks các pác

Kèm theo là bản vẽ ví dụ trong đó đã có các Page setup với đầy đủ thông tin cần để in

http://www.mediafire.com/?x0paw9waz6vkk6b

Bạn thử cái này xem sao: http://www.cadviet.com/forum/index.php?showtopic=34986&st=80

Chương trình chưa hoàn thiện nhưng hoàn toàn có thể đáp ứng được yêu cầu của bạn. Nó có thể lưu lại thông số in của từng bản vẽ. Bạn thử nghiên cứu xem.

[hopbuivan 0]

Bạn thử cái này xem sao: http://www.cadviet.com/forum/index.php?showtopic=34986&st=80

Chương trình chưa hoàn thiện nhưng hoàn toàn có thể đáp ứng được yêu cầu của bạn. Nó có thể lưu lại thông số in của từng bản vẽ. Bạn thử nghiên cứu xem.

cảm ơn bạn nhé, mình cũng đã dùng cái VB Plot bản Pro của bạn rồi nhưng có mấy điểm sau

-Tốc độ hơi chậm, hay bị lỗi lắm và không ổn định

-Có thể lưu vùng in/cấu hình in được nhưng khi in file đầu tiên xong, Bấm Save cấu hình đó/OK-->Mở file khác ra bấm In (trên VB Plot) ngay thì nó có dấu gạch chéo và đánh số trên bản vẽ (đã in ra)-->>> :rolleyes:

-Nét in mình chỉnh rất OK rồi nhưng đôi khi nó không ra nét đen/trắng kiểu mono mà lại có màu nữa?

Có vài nhận xét vậy, dù sao có Code để in Page setup rồi add vào file luôn thì tốt nhất và nhanh nhất

[hopbuivan 0]

Đây là đoạn mã (Trong Help của AutoCAD) liệt kê ra các Page setups có trong bản vẽ và cho nó in ra, nhưng nó chỉ in ra được Pagesetup đầu tiên thôi:

 

Sub Example_PlotConfigurations()

' This example will access the PlotConfigurations collection for the current drawing,

' add a plot configuration, and list basic information about the

' plot configurations in the drawing.

 

Dim PlotConfigurations As AcadPlotConfigurations

Dim PlotConfiguration As AcadPlotConfiguration

Dim msg As String

 

' Get PlotConfigurations collection from document object

Set PlotConfigurations = ThisDrawing.PlotConfigurations

 

' If there aren't any plot configurations, then add one

If PlotConfigurations.Count = 0 Then

'*** Customize the new configuration to your satisfaction ***

PlotConfigurations.Add "NEW_CONFIGURATION"

End If

 

msg = vbCrLf & vbCrLf ' Start with a space

 

' Get the names of the plot configurations in this drawing

For Each PlotConfiguration In PlotConfigurations

msg = msg & PlotConfiguration.Name & vbCrLf

Next

 

' Display a list of available plot configurations

MsgBox "There are " & PlotConfigurations.Count & " plot configuration(s) in " & _

ThisDrawing.WindowTitle & ":" & msg

ThisDrawing.Plot.PlotToDevice

 

End Sub

 

 

Các cao thủ cho ý kiến giúp nhé, làm sao để cho nó in hết các Page setups (Setup1, Setup2...) có trong bản vẽ. Thanks