Đến nội dung


Hình ảnh
- - - - -

VBplot 2010


  • Please log in to reply
93 replies to this topic

#21 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 March 2011 - 04:45 PM

Ố, e có nhắc gì đến Form Load đâu bác ^^ Unload mà ^^.Sub clear đó để riêng, và gọi lại khi :
- Chọn ss mới
- Close form, trả quyền lại cho CAD
  • 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


#22 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 05 March 2011 - 05:09 PM

Ố, e có nhắc gì đến Form Load đâu bác ^^ Unload mà ^^.Sub clear đó để riêng, và gọi lại khi :
- Chọn ss mới
- Close form, trả quyền lại cho CAD

Híc nhìn nhầm. Tại trong VB2010 không còn unload nữa nên cứ tưởng...
  • 1
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!

#23 tvgtyb08

tvgtyb08

    biết vẽ spline

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

Đã gửi 02 April 2011 - 08:24 PM

Khi xem bản vẽ trước khi in em thấy hiện thông báo thế này:
Hình đã gửi
Hình đã gửi
  • 0

#24 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 02 April 2011 - 08:40 PM

Khi xem bản vẽ trước khi in em thấy hiện thông báo thế này:
Hình đã gửi
Hình đã gửi

Tức là nét in đó của bạn song song với truc x hoac truc y thi nó không tạo window "vùng in" được. Hề hề mình để msgbox thế cho vui xả stress tý hi hi
  • 1
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!

#25 tvgtyb08

tvgtyb08

    biết vẽ spline

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

Đã gửi 02 April 2011 - 09:27 PM

Bác cho em hỏi nếu trong bản vẽ nhiều loại khung (kích cỡ khác khau) và không đặt theo hàng thì nó có in không?
Em thấy 1 cái bất tiện nữa là trong 1 file có nhiều bản vẽ nhưng không muốn in hết thì phân vùng in rất phức tạp.
Em chỉ góp ý thế thôi ko có ý gì đâu bác ạh.
  • 0

#26 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 02 April 2011 - 09:44 PM

Bác cho em hỏi nếu trong bản vẽ nhiều loại khung (kích cỡ khác khau) và không đặt theo hàng thì nó có in không?

in được hết bạn à

Em thấy 1 cái bất tiện nữa là trong 1 file có nhiều bản vẽ nhưng không muốn in hết thì phân vùng in rất phức tạp.
Em chỉ góp ý thế thôi ko có ý gì đâu bác ạh.

version này mình post từ trước nên chưa fix lỗi đó. version sau này mình đã fix cho phép chọn những khung cần in rồi. Mình sẽ post lên sau
  • 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!

#27 tvgtyb08

tvgtyb08

    biết vẽ spline

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

Đã gửi 02 April 2011 - 10:06 PM

version này mình post từ trước nên chưa fix lỗi đó. version sau này mình đã fix cho phép chọn những khung cần in rồi. Mình sẽ post lên sau

Thế thì hay quá, từ trước tới giờ em toàn dùng tiện ích in hàng loat (Inan) nó hay nhảy khung in lắm.
Mong bác sớm hoàn thành.
  • 0

#28 tvgtyb08

tvgtyb08

    biết vẽ spline

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

Đã gửi 02 April 2011 - 10:45 PM

Có cách nào kết nối với Cad không bác?
tức là Khi cần in gõ lệnh là chương trình đó tự mở ra.
  • 0

#29 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 02 April 2011 - 11:24 PM

Có cách nào kết nối với Cad không bác?
tức là Khi cần in gõ lệnh là chương trình đó tự mở ra.

Bản mới đây bạn: http://www.cadviet.c...es/3/plot_4.rar
muốn nó tự chạy khi gõ lệnh thì bạn làm như sau:
mở file acaddoc2007.lsp (tuy version cad của bạn). thêm vào đoạn mã sau:
(defun c:in()
(startapp "c:\\plot\\plot.exe")
(princ)
)
rồi save lại sau đó copy folder plot vào ổ c:\
  • 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!

#30 tvgtyb08

tvgtyb08

    biết vẽ spline

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

Đã gửi 03 April 2011 - 11:35 AM

muốn nó tự chạy khi gõ lệnh thì bạn làm như sau:
mở file acaddoc2007.lsp (tuy version cad của bạn). thêm vào đoạn mã sau:
(defun c:in()
(startapp "c:\\plot\\plot.exe")
(princ)
)
rồi save lại sau đó copy folder plot vào ổ c:\

Ngoài sức tưởng tượng. Em được mở mang tầm mắt. Nhìn lại mình còn rất rất bé nhỏ.
  • 0

#31 tvgtyb08

tvgtyb08

    biết vẽ spline

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

Đã gửi 04 April 2011 - 05:00 PM

bác Tú ơi em đóng góp ý kiến được không?
Nếu bác có thêm tính năng:
+Khi đang xem bản in nào thì nó tự khắc Zoom đến bản đó.
+Thêm nút chọn đánh dấu những bản đã chọn (trước khi in) tuy là sau khi in tự đánh dấu, nhưng nếu đánh dấu trước khi in thì sẽ xem lại và kiểm soát được thứ tự bản in trong 1 file đặt không theo thứ tự.
  • 0

#32 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 04 April 2011 - 05:23 PM

bác Tú ơi em đóng góp ý kiến được không?
Nếu bác có thêm tính năng:
+Khi đang xem bản in nào thì nó tự khắc Zoom đến bản đó.
+Thêm nút chọn đánh dấu những bản đã chọn (trước khi in) tuy là sau khi in tự đánh dấu, nhưng nếu đánh dấu trước khi in thì sẽ xem lại và kiểm soát được thứ tự bản in trong 1 file đặt không theo thứ tự.

OK! Mình sẽ bổ xung thêm vài tính năng
  • 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!

#33 xuangiangtedi

xuangiangtedi

    biết vẽ line

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

Đã gửi 04 April 2011 - 05:46 PM

Có thể cho vào event close chứ. Nếu để event Form_load thì muốn xóa đối tượng thì lại phải tắt CT rồi bật lại à. Thank!!!

Sao khong có chọn tỷ lệ in bạn ơi lúc nào cũng mặc định là scal to fit ah?
  • 0

#34 tvgtyb08

tvgtyb08

    biết vẽ spline

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

Đã gửi 12 April 2011 - 07:33 PM

OK! Mình sẽ bổ xung thêm vài tính năng

Chương trình này rất hay, bác phát triển tiếp đi!
  • 0

#35 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 17 April 2011 - 06:43 PM

Chương trình này rất hay, bác phát triển tiếp đi!

Đã update thêm phần in tỷ lệ. Và có thể in tỷ lệ cho từng bản vẽ.
Link download up tại bài viết số 1.
  • 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!

#36 Detailing

Detailing

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 667 Bài viết
Điểm đánh giá: 278 (khá)

Đã gửi 17 April 2011 - 10:32 PM

Đã update thêm phần in tỷ lệ. Và có thể in tỷ lệ cho từng bản vẽ.
Link download up tại bài viết số 1.

Mình test thử thì thấy lỗi này khi chọn tỉ lệ. Bạn xem lại thử xem sao.
Hình đã gửi
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#37 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 17 April 2011 - 11:04 PM

Mình test thử thì thấy lỗi này khi chọn tỉ lệ. Bạn xem lại thử xem sao.
Hình đã gửi

Nhìn trên form thì hình như bạn chưa chọn khung in nên khi chọn tỷ lệ nó sẽ không hiểu đặt tỉ lệ cho cái gì. Cái này mình sẽ bổ xung thêm msgbox cho nó.
  • 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!

#38 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 19 April 2011 - 09:58 PM

Nhìn trên form thì hình như bạn chưa chọn khung in nên khi chọn tỷ lệ nó sẽ không hiểu đặt tỉ lệ cho cái gì. Cái này mình sẽ bổ xung thêm msgbox cho nó.

Như đã hứa mình up phần sửa lỗi và thêm tính năng đánh dấu các bản trước khi in và clear phần đánh dấu.
Link updata ở bài số 1.
  • 1
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!

#39 huunhantvxdts

huunhantvxdts

    biết dimbaseline

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

Đã gửi 20 April 2011 - 02:54 PM

cám ơn bạn đã dày công tạo 1 chương trình rất hay và chia sẽ cho mọi người
Tôi đã sử dụng trên cad 2008 win7 thấy có lỗi như sau:
chỉ xem và in được bản vẽ đầu tiên dù chương trình thông báo đúng số bản vẽ đã chọn
rất mong bạn xem lại
  • 0

#40 vtd_xd

vtd_xd

    biết vẽ circle

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

Đã gửi 20 April 2011 - 06:12 PM

Chương trình rất hay, bác thêm chức năng in all nhé, nếu có >20 bản click in từng trang thi lâu lắm, thanks
  • 0
Chuc vui ve