Đến nội dung


Hình ảnh
- - - - -

VnPlot 2.0-Tự động in bản vẽ cho AutoCad 2004-2010(Ko cần VBA)


  • Please log in to reply
42 replies to this topic

#21 hien05x2a

hien05x2a

    biết pan

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

Đã gửi 06 April 2011 - 11:05 AM

VnPlot 2.0-Tự động in bản vẽ cho AutoCad 2004-2010 (Không cần cài VBA Enabler)

Chương trình chỉ bao gồm một tệp duy nhất, dung lượng gọn nhẹ , không cần cài đặt với giao diện tiếng Việt thân thiện dễ sử dụng với người dùng.Tương thích với hầu hết các phiên bản AutoCad hiện có trên thị trường Việt Nam
Chương trình phát triển để bổ sung hoàn thiện tính năng cho những chương trình hỗ trợ in ấn trên Cad trước đây, nâng cấp phiên bản 1.0 đã được giới thiệu ở CadViet
http://www.cadviet.c...showtopic=27537


Để sử dụng , trước tiên bạn tiến hành tải về từ địa chỉ sau:
http://tudaihiep.com/VnPlotV2.1.rar

Đây là bản hoàn thiện mới nhất
Có tự động sắp xếp bản vẽ khi in ra để khỏi phải ngồi xếp bản vẽ nữa :">

Sau đó giải nén tệp tin, sẽ có 2 tệp, tệp Lisp và tệp chương trình chính.
Hình đã gửi

Bạn cũng có thể chạy trực tiếp tệp VnPlotV2.0.exe để kích hoạt. Nếu như bạn chưa bật AutoCad chương trình sẽ hỏi bạn và bật hộ bạn AutoCad

Hình đã gửi

Nhưng cách quen thuộc nhất vẫn là vào trong Autocad để Load tệp LSP lên (IN)Chuong Trinh In Tu Dong Full VNPLOT.lsp (bằng lệnh AP trong cad)
Hình đã gửi

Lệnh của chương trình là IN (IN ấn)
Hình đã gửi
Giao diện chính của chương trình như sau:
Hình đã gửi
Trước hết bạn chọn máy in muốn in trong danh sách hiện thời, chương trình sẽ tự động tìm kiếm các cỡ giấy được hỗ trợ bởi máy in trong danh sách “Cỡ giấy in”.
Tiếp đó là việc chọn file nét in của bạn, theo mình để thuận tiện và dễ dàng quản lý các bạn nên đặt nét theo layer, file nét các bạn chỉ cần chỉnh màu là đen và để đối tượng theo màu của layer.
Ở bên phải là danh mục các cỡ giấy in, các bạn chọn cho phù hợp, như ở trên mình chọn máy in, HP LaserJet 5200, cỡ giấy A3, và file nét là monochrome.ctb (Chú ý các bạn chọn đúng file nét của mình)
Để thuận tiện cho lần sử dụng sau, vì hầu như chúng ta chỉ sử dụng một máy in trong công ty cũng như cỡ giấy và nét in thông thường sử dụng nhất nên các bạn nên nhấn vào “Lưu thông số in” để lần sau các bạn không phải thiết lập lại”/
Được sự góp ý của các bạn , mình đã bổ sung thêm phần cấu hình để chọn đường biên nhanh chóng
Các bạn có thể xem hình :
Hình đã gửi
-ở tùy chọn đầu tiên, cchương trình cho phép bạn chọn bất kỳ đối tượng nào bạn muốn, sẽ tự động lọc block, hay rectangle, và xref

-tùy chọn thứ 2 rất thú vị, nếu như block hay xref khung tên của bạn có tên cố định (thông thường là như thế), bạn chỉ cần chọn một , chương trình sẽ tự động lấy nốt các khung tên còn lại
Ví dụ bạn có 38 bản vẽ kết cấu, có block khung tên tên la "KHUNGTENCHUAN", bạn chọn tùy chọn này và sau đó, chọn 1 trong 38 khugn tên đó, chương trình sẽ lấy nốt 37 khung tên còn lại

Tính năng này hoạt động tốt cả trong trường hợp layout có nhiều khung tên , ví dụ layout hiện thời của bạn có 10 khung tên thì chương trình vẫn chạy tốt

- và cuối cùng là tùy chọn thứ 3 dành chọn bạn nào thích thoải mái :iluvyousmiley:

Chương trình sẽ tự động tìm kiếm ra vùng cần in, và tự động xoay khổ giấy ngang hay dọc, bạn không cần phải lo lắng.
(cái này bạn chú ý, một số máy in có cùng khổ giấy nhưng có thể 2 loại ngang dọc khác nhau, ở đây mình viết cho loại đứng (thường dùng cho các máy in HP, PrimoPDF,...) ví dụ A3 ,A4

Sau đó muốn xem qua kết quả bạn có thể nhấn vào “Preview (Xem thử)”
Được sự góp ý của các bạn, phần này mình đã hoàn thiện như sau:
Nếu chỉ có một vùng được chọn thì sẽ tự hiện ra PREVIEW luôn
Nếu từ hai vùng trở lên sẽ hiện ra hộp thoại như sau:
Hình đã gửi
Mỗi lần xem xong 1 bản vẽ, chương trình tự động tăng lên bản vẽ sau, bạn có thể nhấn "Xem tiếp " để tiếp tục

Chương trình sẽ nhận biết tổng số vùng in, bạn có thể chuyển qua lại giữa các vùng in và nhấn "Xem tiếp", nếu không có trục trặc gì các bạn có thể nhấn "Đóng Lại"

Cuối cùng, nếu những thiết lập đã hoàn thành bạn chỉ việc nhấn “ Plot – In tự động”
Lúc này chương trình sẽ tiến hành tự động từ a-z cho bạn
Việc của bạn chỉ là nghỉ ngơi và chờ đợi thành quả của mình.
Trong phiên bản này, chương trình cho phép bạn chọn chế độ in căn giữa hay tự chỉnh
cũng như thiết lập in (Scale to Fit) hoặc tỷ lệ người dùng nhập

Một năng thú vị khác của chương trình là khả năng xuất hàng loạt bản vẽ ra PDF,JPG,PNG,...
Bạn vào mục cấu hình và chọn đương dẫn, mỗi khi bạn sử dụng máy in DWG to PDF hay WebtoJpg,.... có sẵn trong CAD 2007-2010 toàn bộ bản vẽ sẽ được xuất vào đó theo thứ tự được đánh số từ nhỏ đến lớn
Hình đã gửi
VD tên bản vẽ là : kietrucnha.dwg thì bản vẽ ra sẽ có dạng kientrucnha-01.dwg, kientrucnha-02.dwg,kientrucnha-03.dwg

Hình đã gửi
Hình đã gửi

Dù đã cố gắng tuy nhiên do điều kiện thời gian và trình độ còn hạn chế nên chương trình vẫn còn lỗi này hay lỗi khác rất mong được các bạn góp ý để có thể hoàn thiện hơn trong phiên bản sau.

Chương trình được xây dựng và phát triển bởi tác giả Phan Thanh Tú – Hà Tĩnh, rất mong nhận được ý kiến đóng góp của các bạn thông qua Email: Vansulich@yahoo.com Website: http://tudaihiep.com

Chào bác Tú,e đã test chương trình in của bác
E chưa hiểu tỉ lệ in trong chương trình của bác. Cụ thể là ví dụ khi in A3 nếu khung đúng khổ giấy A3 thì in bằng lệnh in của cad chọn tỉ lẹ in là 1:1 và in bằng chương trình của bác cũng chọn tỉ lệ in là 1/1 thì bản vẽ in ra là giống nhau. Nhưng khi bản vẽ được scale lên 2 lần(để tiện tính toán) thì khi in bằng lệnh in của cad thì chọn tỉ lệ in là 1:2 là được(canh lề đúng theo yêu cầu),nhưng nếu in bằng chương trình của bác thì tỉ lệ in phải chọn không phải là 1/2 mà là 1/49.2992 và canh lề theo yêu cầu cũng rất khó
Như vậy trong trường hợp bản vẽ không đúng khổ thì bản vẽ in ra không đúng yêu cầu
Nói tóm lại e chưa hiểu tỉ lệ in trong chương trình của bác
Mong bác chỉ giáo
  • 0

#22 duccamranh

duccamranh

    biết zoom

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

Đã gửi 21 April 2011 - 10:31 AM

hay quá nhỉ,cảm ơn bác nhiều!
  • 0

#23 VoHoan

VoHoan

    biết lệnh move

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

Đã gửi 22 April 2011 - 09:15 AM

Mình góp ý này nhé: khi thực hiện "Preview" xem bản in, đế xem được bản in tiếp theo thì phải bấm phím "ESC" và dùng chuột chuyển sang "VnPlot Preview" rồi nhấn "xem tiếp"; như thế thì bất tiện quá. Bạn có thể cải thiện bằng cách cho cửa số "VnPlot Preview" hiện nổi trên cửa số Cad để tiện bấm táp "xem tiếp" thuận tiện hơn không?
  • 0

#24 hbct02

hbct02

    biết vẽ line

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

Đã gửi 22 April 2011 - 03:44 PM

Sao mình tải về chỉ thấy có 1 file .exe chư ko thấy file Lips đau nhỉ. Cái này mình đang cần cảm ơn bác nha.
  • 0

#25 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 22 April 2011 - 03:46 PM

Sao mình tải về chỉ thấy có 1 file .exe chư ko thấy file Lips đau nhỉ. Cái này mình đang cần cảm ơn bác nha.

Đây là 1 ứng dụng application, bạn kích chạy trực tiếp, k cần gọi trong CAD. . Nếu cần lisp thì bạn search v1 tác giả có kèm lisp startapp để gọi lệnh trong cad.
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#26 tinya1225

tinya1225

    biết lệnh copy

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

Đã gửi 16 June 2011 - 10:01 AM

Chương trình bác viết in rất ổn. Bổ xung thêm plot nhiều layout nữa thì còn j bằng. mong bác cố gắng sớm hoàn thiện cho anh em đc nhờ :rolleyes:
  • 0
Thấy bài có ích thì ấn thật nhiều Thank + các bác nhé^^

#27 tunsamun

tunsamun

    biết pan

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

Đã gửi 21 June 2011 - 11:34 AM

Ver 2.0 của bác dùng khá tốt,cám ơn và mong bác phát triển thêm cho hoàn thiện!Cám ơn rất nhiều!
  • 0

#28 cocobubu

cocobubu

    biết zoom

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

Đã gửi 20 March 2012 - 11:29 AM

Em thấy in được nhưng sắp xếp bản vẽ theo thứ tự thì lại chưa thấy đâu,số bản in cũng ko có.
  • 0

#29 cocobubu

cocobubu

    biết zoom

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

Đã gửi 21 March 2012 - 10:38 AM

Phần tỷ lệ tự động em muốn chọn 1mm=1 đơn vị trong bản vẽ thì làm thế nào?trong khi em đã chuyển đơn vị bản vẽ về mm rồi nhưng khi in nó vẫn để tỷ lệ theo đơn vị inches.
  • 0

#30 TimMusT

TimMusT

    Chưa sử dụng CAD

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

Đã gửi 18 October 2012 - 11:32 AM

bác KS.PhanThanhTu ơi. e cũng đang tìm hiểu về cách in hàng loạt. e giải nén file của bác ko có lisp. bác cho e xin cái lisp Chương trình in tự động Full, e tìm trên diễn đàn ko có. gửi vào mail : hanik3n4z@gmail.com zúp em nhé. Thanks bác nhiều ^^
  • 0

#31 ramborock

ramborock

    biết vẽ arc

  • Members
  • PipPip
  • 40 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 18 October 2012 - 04:49 PM

Chương trình hay, tuy nhiên ở cty của mình, thì mình chỉ viết 2 dòng lisp là đủ rùi, 1 lệnh cho layout, 1 cho model. Còn cái này phải set nhiều thứ quá
  • 0

#32 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 25 October 2012 - 07:58 AM

Chương trình hay, tuy nhiên ở cty của mình, thì mình chỉ viết 2 dòng lisp là đủ rùi, 1 lệnh cho layout, 1 cho model. Còn cái này phải set nhiều thứ quá

hay vậy bạn nên share lên cho ae học hỏi chứ, đây là diễn đàn để ae cùng học thêm nhiều kiến thức bổ ích đây????
  • 0

#33 ramborock

ramborock

    biết vẽ arc

  • Members
  • PipPip
  • 40 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 31 October 2012 - 12:43 PM

Các bạn tham khảo nha
(defun C:1 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "No" "Yes" "No" "No" "Yes" "Yes")
)
;model
(defun C:0 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "As displayed" "No" "Yes" "Yes")
)

  • 0

#34 ramborock

ramborock

    biết vẽ arc

  • Members
  • PipPip
  • 40 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 31 October 2012 - 12:45 PM

sorry

(defun C:1 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "No" "Yes" "No" "No" "Yes" "Yes")
)
;model
(defun C:0 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "As displayed" "No" "Yes" "Yes")
)

  • 0

#35 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 31 October 2012 - 02:06 PM

sorry


(defun C:1 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "No" "Yes" "No" "No" "Yes" "Yes")
)
;model
(defun C:0 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "As displayed" "No" "Yes" "Yes")
) min

Cái này làm sao chọn khung in hàng loạt, mình mang về sữa lại đúng máy in của mình in trên model chỉ in được đúng 1 bản nhưng khung in là toàn màn hình
  • 0

#36 ramborock

ramborock

    biết vẽ arc

  • Members
  • PipPip
  • 40 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 31 October 2012 - 06:53 PM

Lệnh "1" dùng nhiều hơn, in bên layout, còn lệnh "0" mình chỉ xài trong trường hợp model chỉ có 1 hình cần in, muốn in bao nhiêu tờ thì nhấn lệnh bấy nhiêu, còn in hàng loạt nhiều file thì cty mình ít làm vì phải chắc các bản vẽ không bị lỗi, luôn phải kiểm tra lại trước khi in. Kiến thức lisp hạn hẹp, chỉ viết được đến đó thui bạn và chỉ dùng cho cad 2007 còn các phiên bản khác thì mình không chắc.
  • 1

#37 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 31 October 2012 - 08:14 PM

ok để mình thử xem sao?? cám ơn bạn nhiều
  • 0

#38 ps8x766

ps8x766

    biết pan

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

Đã gửi 24 December 2012 - 01:01 AM

Cám ơn bác! Lisp rất hay và dễ sử dụng! Nói chung là rất ok! Thanks alot!
  • 0

#39 congcd4

congcd4

    biết pan

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

Đã gửi 27 May 2013 - 05:30 PM

Có chức năng Published của cad rồi cần gì p hải Lisp với VBA cho mệt, kết hợp với sheetset nữa thì quá ổn, quá trình in ấn tự động, báo lỗi khi phát sinh trong khi in!


  • 0

#40 vuducdai

vuducdai

    biết pan

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

Đã gửi 18 July 2013 - 03:14 PM

Chuẩn. Mình cũng đã thử Publish khi in rồi, rất hay. Tuy nhiên có hạn chế là mỗi layout chỉ có một khung bản vẽ để in thôi, Bạn nào có cách khắc phục không. Nếu trong 1 layout mình muốn in 2 bản vẽ thì làm thế nào?


  • 0