Đến nội dung


Hình ảnh
- - - - -

In nhiều bản vẽ?


  • Please log in to reply
9 replies to this topic

#1 redsea_tq

redsea_tq

    biết lệnh erase

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

Đã gửi 06 April 2011 - 08:29 PM

Chào các bác trên diễn đàn, em đang muốn làm một ứng dụng nhỏ để in nhiều bản vẽ khắc phục tình trạng khi in trắc ngang hoặc in nhiều bản vẽ bên layout. em có đọc help nhưng chưa thông vì chưa tìm được hướng đi đúng. các bác cho em hỏi các để in trên model và trên layout, trên model thì đối tượng nào quản lý quá trình in và bên layout cũng vậy, vấn đề này em còn lơ tơ mơ lắm mong các bác chỉ giúp em, em xin chân thành cảm ơn!
  • 0

#2 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 03 May 2011 - 01:45 AM

Chào các bác trên diễn đàn, em đang muốn làm một ứng dụng nhỏ để in nhiều bản vẽ khắc phục tình trạng khi in trắc ngang hoặc in nhiều bản vẽ bên layout. em có đọc help nhưng chưa thông vì chưa tìm được hướng đi đúng. các bác cho em hỏi các để in trên model và trên layout, trên model thì đối tượng nào quản lý quá trình in và bên layout cũng vậy, vấn đề này em còn lơ tơ mơ lắm mong các bác chỉ giúp em, em xin chân thành cảm ơn!

Đối tượng in trong cad là layout bạn đọc trong object layout. Đối tượng layout lại phân ra làm 2 trường hợp là modelspace và paperspace (chính là layout)
ví dụ lấy khung in:
trong model: ThisDrawing.ModelSpace.Layout.SetWindowToPlot(LowerLeft, UpperRight)
trong layout: ThisDrawing.PaperSpace.Layout.SetWindowToPlot(LowerLeft, UpperRight)
  • 2
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#3 redsea_tq

redsea_tq

    biết lệnh erase

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

Đã gửi 29 May 2011 - 06:04 PM

Cám ơn bạn nhiều nhé, dạo này mình bận quá giờ mới trả lời bạn được!
  • 0

#4 Gà mờ

Gà mờ

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 October 2011 - 03:55 PM

Các bác xem giúp em đoạn CODE sau
------------------------------------------------------------------
Set Layout = AcadApp.ActiveDocument.ActiveLayout
With Layout
.ConfigName = PrinterName
.CanonicalMediaName = Size
.StyleSheet = Style
.SetCustomScale 1, scale
.PlotType = acWindow
.SetWindowToPlot pt1, pt2
End With
------------------------------------------------------------------
Khi chạy nó cứ báo lỗi 2 dòng sau
------------------------------------------------------------------
.StyleSheet = Style ->>>> Error : Invalid Input
.SetWindowToPlot pt1, pt2 ->>>> Error : Invalid procedure call or argument
------------------------------------------------------------------
Khi check thì thấy giá trị hiện tại của StyleSheet đang lấy theo mặc định hệ thống, còn Style là giá trị mới cần gán vào
Xem giúp em với
  • 0

#5 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 17 October 2011 - 05:02 PM

Cái StyleName mình không rành, nhưng bạn bỏ đi xem có dùng được không.
Còn 2 điểm pt1, pt2 là mảng 2 phần từ (Variant (two-element array of doubles))
  • 0
Clear sky!

MF Rock collection.

#6 Gà mờ

Gà mờ

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 October 2011 - 06:47 AM

Hix, vậy còn cái Plot Offset làm sao để chỉnh X,Y theo ý muốn bác nhỉ
  • 0

#7 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 18 October 2011 - 08:29 AM

Hix, vậy còn cái Plot Offset làm sao để chỉnh X,Y theo ý muốn bác nhỉ

Dùng PlotOrigin để chỉnh.

Các chi tiết về thuộc tính và hàm đối tượng sử dụng file Help của CAD trong thư mục Help.
Mở file acad_dev*.chm, chọn ActiveX and VBA reference ấy.
  • 0
Clear sky!

MF Rock collection.

#8 Gà mờ

Gà mờ

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 October 2011 - 10:50 AM

Cảm ơn bác nhiều, các bác giúp em thêm một cái nữa : làm sao lấy được tất cả các Paper Size ứng với một loại máy in khi mình chọn
  • 0

#9 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 18 October 2011 - 11:51 AM

Của bạn đây:

Lấy danh sách các máy in (mảng các chuỗi): .GetPlotDeviceNames
Chọn máy in: .ConfigName
Lấy danh sách các khổ giấy tương ứng với máy in trên (mảng chuỗi): .GetCanonicalMediaNames

Mấy cái này có trong help hết, bạn xem là có.
  • 0
Clear sky!

MF Rock collection.

#10 Gà mờ

Gà mờ

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 October 2011 - 01:22 PM

Thanks bác nhiều, em cũng có tham khảo trong Help mà sử dụng nó cứ bị lỗi tùm lum, hix
  • 0