Chuyển đến nội dung
Diễn đàn CADViet
ntluyen

Khóa file DWG bằng VBA

Các bài được khuyến nghị

Đúng rồi cậu nên hướng dẫn mọi người cách dùng đi tớ thấy hay lắm. Với lại cậu cho mình hỏi cậu chạy đường bằng phần mềm gì đấy hình như không phải nova cr*** chứ

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Đúng rồi cậu nên hướng dẫn mọi người cách dùng đi tớ thấy hay lắm. Với lại cậu cho mình hỏi cậu chạy đường bằng phần mềm gì đấy hình như không phải nova cr*** chứ

Tớ không nghiện cái nova lắm

Cái này do tớ viết bằng VBA

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Chương trình viết bằng VBA nên khi các bạn chạy phải bật VBA, chọn Enable Macro

giấu nghề wa ,chỉ mà như ko chỉ buồn

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Đã dùng cả Hook key ròi mà bác còn phá được. Bác có thể bật mí không để em viết cho nó ổn hơn hco ae dùng.

Chào bạn,

Bạn ko chỉ Hook KB mà còn cả Clipboard và chính Acad.exe luôn :D

Bạn làm vậy là quá tốt rồi. Mình chỉ có vài ý sau thôi

  • Bạn chưa kiểm tra điều kiện nếu mình mở VBE trước?
  • Bạn hook hết kb rồi thì sao user làm việc ở chương trình khác dc?
  • Bản vẽ ko cho in luôn hay sao đó
  • Code "complier" entity của bạn hơi đơn giản nhưng tạo ra cái hình khá "đẹp"

Good luck!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Chào bạn,

Bạn ko chỉ Hook KB mà còn cả Clipboard và chính Acad.exe luôn :D

Bạn làm vậy là quá tốt rồi. Mình chỉ có vài ý sau thôi

  • Bạn chưa kiểm tra điều kiện nếu mình mở VBE trước?
  • Bạn hook hết kb rồi thì sao user làm việc ở chương trình khác dc?
  • Bản vẽ ko cho in luôn hay sao đó
  • Code "complier" entity của bạn hơi đơn giản nhưng tạo ra cái hình khá "đẹp"

Good luck!

Bác có nghề quá nói phát đúng luôn. Tôi hook cả key, clipboard, cả WH_CBT nữa.

- Uh, có lẽ mình sẽ check cái VBE trước.

- Đây là bản vẽ khóa để cho người khác không mở được - (thông thường ae gửi cho CĐT chưa trả tiền) - Cho khóa cứng luôn.

- Về khóa lệnh in, :D thì cũng chỉ đang muốn demo cho mọi người xem mà. Khi nào dùng thật thì sẽ mở lệnh này.

Mình cũng muốn viết cái khóa file cad để ae tư vấn đỡ bức xúc

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Mình ủng hộ bác ntluyen 2 tay. Bác viết sao cho ai cũng không mở được là tốt nhất, chỉ xem thôi. Chứ các file dwg bị khóa mà e đã từng gặp thì chỉ vài thao tác đơn giản là e giải được liền, không cần thông qua phần mềm vô hiệu hóa VBA & cũng không quan tâm là có biết VBA hay không nữa.

Bình thường thì 2 lúa e chỉ xuất PDF giao chủ đầu tư thôi, nhưng cách này rất mất thời gian, lại phải cài acrobat pro thì mới full lock được.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Mình ủng hộ bác ntluyen 2 tay. Bác viết sao cho ai cũng không mở được là tốt nhất, chỉ xem thôi. Chứ các file dwg bị khóa mà e đã từng gặp thì chỉ vài thao tác đơn giản là e giải được liền, không cần thông qua phần mềm vô hiệu hóa VBA & cũng không quan tâm là có biết VBA hay không nữa.

Bình thường thì 2 lúa e chỉ xuất PDF giao chủ đầu tư thôi, nhưng cách này rất mất thời gian, lại phải cài acrobat pro thì mới full lock được.

Bạn có thể thử "vài thao tác đơn giản" với file ở post #1 xem sao.

Về cơ bản thì ko khóa nào là ko mở dc :D nhưng quan trọng là ng mở có chịu "mò" hay ko thôi. xuất sang PDF hay DWF vẫn có tool để convert ngược lại tùy theo khả năng convert của bạn tới đâu và của ng convert tới đâu thôi :D

Good luck!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bạn có thể thử "vài thao tác đơn giản" với file ở post #1 xem sao.

Về cơ bản thì ko khóa nào là ko mở dc :D nhưng quan trọng là ng mở có chịu "mò" hay ko thôi. xuất sang PDF hay DWF vẫn có tool để convert ngược lại tùy theo khả năng convert của bạn tới đâu và của ng convert tới đâu thôi :D

Good luck!

"Nã" dimension, "nã" Block", "Nã" cả Text trong file dwg ra luôn thì có mà "mò" ...... :D

Thêm mấy mã code lisp break Line, Pline, Arc, Spline...... "vụn tơi" ra -> "mò" ra được thì bản vẽ cũng "nát bét " :D

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

"Nã" dimension, "nã" Block", "Nã" cả Text trong file dwg ra luôn thì có mà "mò" ...... :D

Thêm mấy mã code lisp break Line, Pline, Arc, Spline...... "vụn tơi" ra -> "mò" ra được thì bản vẽ cũng "nát bét " :D

hehe Tue_NV hơi lạm dụng lisp rồi, chỉ cần export ra image -> PDF là dc rồi ko cần mấy cái lisp break line block hay ..... nữa đâu

:D convert -> toàn point với line :D

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tôi có file DWG khóa bằng VBA, Các bác dùng thử xem

https://www.box.com/...3dee9dfdbb71f41

Không biết bạn làm xong khóa mới chưa nhỉ?

Mình nghĩ bạn nên thay

object.visible + object.move + object.rotate = object.delete

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Xin lỗi ae, mấy hôm cuối tuần bận việc nên không làm được.

Tôi đã làm lại cái khóa, visible VBE, Vlisp. Các bác check xem thế nào ạ.

Download : https://www.box.com/s/8f20745f85aabea85796

 

object.visible + object.move + object.rotate = object.delete

Bác nhìn phát biết ngay. Đúng là em đã object.visible; object.move; object.rotate

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bác chịu khó viết Decom - Comp cho mấy loại Entity nhỉ ^^ Nhưng mình cứ thấy nó dễ gây crash sao sao ý. Đang đọc chuyển window là crash mấy lần. Chắc hook trâu quá. Chúc bác thành công

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Nếu không Decom - Comp thì chắc là không có cách nào để khóa được file cad cả còn Hook có gây ra lỗi. tôi cúng đang tìm hiểu xem.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Nhờ bác Detailing Kiểm tra hộ xem đã được chưa, nếu chưa được bác chỉ tiếp để em sửa khóa tiếp :D

Bạn tạo file có hình khác 1 chút chứ thấy cái hình y chang vậy :D

mình thấy bạn thêm 1 class KillVBE vào và gọi method TerminateVBE True :D tuy nhiên vẫn mở dc VBE Vlisp bằng ribbon button :blink:

bản vẽ này y chang bản vẽ trước nhưng hình như có thêm 1 ent nào đó (chắc để check xem mình có mở dc ko hay lấy cái cũ uip lên :D )

Good luck!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bạn tạo file có hình khác 1 chút chứ thấy cái hình y chang vậy :D

mình thấy bạn thêm 1 class KillVBE vào và gọi method TerminateVBE True :D tuy nhiên vẫn mở dc VBE Vlisp bằng ribbon button :blink:

bản vẽ này y chang bản vẽ trước nhưng hình như có thêm 1 ent nào đó (chắc để check xem mình có mở dc ko hay lấy cái cũ uip lên :D )

Good luck!

 

Bác đúng là cao thủ.

(chắc để check xem mình có mở dc ko hay lấy cái cũ uip lên :D ) ~ không phải là thử bác đâu. Là vì có cái file có sẵn, thêm vào cái ngày giờ để biết.

Mình sẽ check luôn cái ribon!

Thank!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×