Đế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

#1 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 15 November 2010 - 08:32 PM

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
  • 16
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 17 November 2010 - 10:11 PM

Hổm rày e test thấy với xref chạy mượt rồi,mà e quên chưa hỏi bác là nó có sắp xếp thứ tự in từ trái qua phải từ trên xuống dưới hok ^^ (e wên chưa test ^^)
Với lị bác cho e hỏi bản này là vb chứ k còn là vba nữa ạ ?
  • 2

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


#3 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 17 November 2010 - 10:43 PM

Tên ketxu này nhanh tay quá :iluvyousmiley:
Uh nâng cấp lên VB cho nó bảo mật mã nguồn với lại 2010-2011 cad không tích hợp VBA nữa rồi
Chuyển đổi nhanh ko ấy mà :D
Cái vụ sắp xếp bản vẽ thì chưa nghĩ ra cách nào tiện cho người dùng nhất cả , mỗi người 1 kiểu mà
  • 0
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 17 November 2010 - 10:43 PM

Hì hì,Hỏi xong thì e cũng test xong.Tình hình là vnplot đã in từ phải sang trái n lại không nhất quán bác ạ
  • 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


#5 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 17 November 2010 - 10:47 PM

Èo,e tưởng lên 2011 người ta vẫn có plugin để chạy ứngdụng vba ạ :iluvyousmiley: không thì mấy phần mềm vba e đang dùng ngỏm mất thì toi :D(
Mà dvb là cũng bảo mật chán rồi.sao bác k để bao giờ finish thì chuyển sang EXE 1 thể ạ.
Tiện nếu bác có onl thì YM e nhờ tí ạ
  • 1

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


#6 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 17 November 2010 - 10:50 PM

UHm đúng là Cad 2010 và 2011 thì có bộ cài bổ sung nhưng mình nghĩ thế cũng bất tiện
Với lại DVB ko bảo mật đâu ketxu ạ
:iluvyousmiley:

QUên nick YM của mình là vansulich nhé
Ketxu và các bạn add nick trao đổi cho vui nha ^^
  • 0
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#7 nguoi_tho_mo

nguoi_tho_mo

    biết vẽ arc

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

Đã gửi 17 November 2010 - 10:54 PM

Hay quá!
Em không test được vì máy ko cài cad.
Nhờ các bác giúp: có chọn được block trong vùng chọn window không nhé.
Rất mong các cao thủ bổ xung và hoàn thiền
  • 0

#8 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 17 November 2010 - 11:18 PM

Hay quá!
Em không test được vì máy ko cài cad.
Nhờ các bác giúp: có chọn được block trong vùng chọn window không nhé.
Rất mong các cao thủ bổ xung và hoàn thiền
Vô cadviet mà ko cài cad à , ăn nhởi quá :->

Chọn đc chứ bạn, bạn quét thoải mái, chương trình chỉ nhận block thôi, những thứ khác sẽ ko ảnh hưởng gì cả :iluvyousmiley:
  • 0
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#9 nguoi_tho_mo

nguoi_tho_mo

    biết vẽ arc

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

Đã gửi 17 November 2010 - 11:25 PM

Hay quá!
Em không test được vì máy ko cài cad.
Nhờ các bác giúp: có chọn được block trong vùng chọn window không nhé.
Rất mong các cao thủ bổ xung và hoàn thiền
Vô cadviet mà ko cài cad à , ăn nhởi quá :->

Chọn đc chứ bạn, bạn quét thoải mái, chương trình chỉ nhận block thôi, những thứ khác sẽ ko ảnh hưởng gì cả :iluvyousmiley:

Đang ngồi máy hàng xóm mà bác.
Trong file có 100 bản vẽ, em muốn in 1/2 =50bản bằng cách chọn block khung tên được chú ah.
bác có nhieu fphần mềm hay lắm, em rất thích "tietkiemdien" của bác >>>> rất vui và có ích
  • 0

#10 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 19 November 2010 - 11:46 PM

Cập nhật link mới cho các bạn
http://adf.ly/BVH1
Các bạn có thắc mắc hay muốn bổ sung gì có thể reply hoặc comment trong blog của mình nha
  • 0
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#11 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 20 November 2010 - 12:12 AM

Cập nhật link mới cho các bạn
http://adf.ly/BVH1
Các bạn có thắc mắc hay muốn bổ sung gì có thể reply hoặc comment trong blog của mình nha

Mình xin có góp ý nho nhỏ như thế này. Phần chọn block có thêm lựa chọn để lọc các block (có ô để nhập tên block muốn chọn, hoặc pick chọn để lấy tên block). Mình thấy chỗ này hơi bất tiện là sau khi kích chọn vào chọn đối tượng bao lại phải đi pick tường thằng block hới mất thời gian nếu số lượng bản vẽ nhiều. Thank bạn vì phần mềm rất hay này.
  • 0
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!

#12 sugia294

sugia294

    biết pan

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

Đã gửi 20 November 2010 - 09:32 AM

Cập nhật link mới cho các bạn
http://adf.ly/BVH1
Các bạn có thắc mắc hay muốn bổ sung gì có thể reply hoặc comment trong blog của mình nha

Mình có một vài ý kiến cho phần mềm của bạn. Bạn có thể bổ sung thứ tự in xref ưu tiên thứ tự từ trên xuống dưới rồi từ trái qua phải để dễ quản lý bản vẽ khi in. Trong Nova co chức năng in nhiều bản vẽ thoả mãn được điều đó nhưng có 1 nhược điểm là khi ta thay 1 xref thì xref đó sẽ bị đẩy in về phía sau. Bạn có thể khắc phục những vấn để đó cho phần mềm của mình. Chúc bạn thành công!
  • 0

#13 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 20 November 2010 - 10:25 AM

Mình xin có góp ý nho nhỏ như thế này. Phần chọn block có thêm lựa chọn để lọc các block (có ô để nhập tên block muốn chọn, hoặc pick chọn để lấy tên block). Mình thấy chỗ này hơi bất tiện là sau khi kích chọn vào chọn đối tượng bao lại phải đi pick tường thằng block hới mất thời gian nếu số lượng bản vẽ nhiều. Thank bạn vì phần mềm rất hay này.

Cái này nếu bạn chọn trong mục cấu hình ở mục thứ 2 đó thì chỉ cần click 1 lần duy nhất vào khung tên trong bản vẽ của bạn sẽ tự động tìm các khugn tên còn lại (có cùng tên block trong bản vẽ)

Về thứ tự bản vẽ thì mình sẽ bổ sung sau vì mỗi người lại bố trí 1 kiểu mà cũng là công việc sau cùng.
  • 0
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#14 blacknblue

blacknblue

    Chưa sử dụng CAD

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

Đã gửi 22 November 2010 - 08:47 AM

Chạy file .exe thì ko sao, sử dụng lệnh thỉ bị lỗi này là sao nhỉ? "error: bad argument type: stringp nil"
  • 0

#15 duyhung

duyhung

    biết vẽ rectang

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

Đã gửi 26 November 2010 - 02:13 PM

Bạn ơi chưa bổ sung chức năng load các layout trong toàn bộ layout để in ah.
Mình thấy có mục này nhưng chưa thấy sử dụng được, mong bạn bổ sung sớm nhé.
Thanks for share.
  • 0
Song va chien dau!

#16 rubylin86

rubylin86

    biết lệnh copy

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

Đã gửi 10 December 2010 - 09:54 AM

có dow được đâu??? làm ơn cho e xin cái link mới được không ạ
  • 0

#17 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 10 December 2010 - 10:52 AM

Mạn phép bác Tú post lên đây,nhưng mình nghĩ bạn nên vào trang chủ của tác giả để cm và biết thêm nhiều thông tin hơn
VN Plot 2.0
  • 1

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


#18 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 10 December 2010 - 04:32 PM

Chạy file .exe thì ko sao, sử dụng lệnh thỉ bị lỗi này là sao nhỉ? "error: bad argument type: stringp nil"

Bạn nên chạy luôn tệp thực thi cho nhanh, đỡ phải nhớ lệnh

Còn nếu chạy tệp lisp thì >cad 2010 trở lên ko đc (do cấu trúc regedit khác )

Còn EXE thì mấy cũng ok
  • 0
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#19 duyhung

duyhung

    biết vẽ rectang

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

Đã gửi 10 December 2010 - 04:50 PM

Cái này chưa bổ sung in layout hả bạn ! :undecided:
  • 0
Song va chien dau!

#20 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 10 December 2010 - 04:55 PM

Cái này chưa bổ sung in layout hả bạn ! :wub:

Chỉ mới hỗ trợ in nhiều bản vẽ trong 1 layout :undecided:

Chứ nhiều layout chưa hoàn thiện bạn à
  • 1
KS Phan Thanh Tú.Email: Vansulich@yahoo.com