Đến nội dung


Hình ảnh
- - - - -

Khóa file DWG bằng VBA


  • Please log in to reply
67 replies to this topic

#1 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 18 July 2012 - 01:06 PM

Tôi có file DWG khóa bằng VBA, Các bác dùng thử xem
https://www.box.com/...3dee9dfdbb71f41

Đây là bộ khóa bằng VB.NET tôi mới viết lại Các bạn dùng thử và cho ý kiến
https://www.box.com/...0a1ece0d4e929ad
  • 0

#2 hotanphi

hotanphi

    biết vẽ polygon

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

Đã gửi 18 July 2012 - 03:57 PM

Không thấy gì ngoài 1 file .dwg
Bạn nói cho mọi người cách dùng chứ.
Xin cảm ơn
  • 0

#3 quochung.vpr

quochung.vpr

    biết zoom

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

Đã gửi 19 July 2012 - 12:00 AM

Đú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ứ
  • 0

#4 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 20 July 2012 - 11:48 AM

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
  • 0

#5 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 20 July 2012 - 11:49 AM

Đú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
  • 0

#6 hoaituoi.87

hoaituoi.87

    biết lệnh rotate

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

Đã gửi 20 July 2012 - 01:56 PM

file do là file cad bị bác khóa rồi.còn dùng thử cái gì hả bác.
  • 3
Khi ta thành công cuộc đời sẽ tha thứ cho ta tất cả!
Hình đã gửi

Skype : hoaituoi.87
Email : hoaituoi.87@gmail.com
Yahoo : pa_alucad

#7 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 20 July 2012 - 01:57 PM

Tôi có file DWG khóa bằng VBA, Các bác dùng thử xem
https://www.box.com/...3dee9dfdbb71f41

Gửi lại bạn để làm cái khoá khác :D http://www.cadviet.c...all2000_xxx.dwg
Goodluck!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#8 hientv86

hientv86

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 211 Bài viết
Điểm đánh giá: 47 (tàm tạm)

Đã gửi 20 July 2012 - 02:00 PM

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
  • 0

#9 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 20 July 2012 - 03:46 PM

Gửi lại bạn để làm cái khoá khác :D http://www.cadviet.c...all2000_xxx.dwg
Goodluck!

Đã 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.
  • 0

#10 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 20 July 2012 - 03:47 PM

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


Thì các bạc cứ check xem đã, nến thấy ổn tôi sẽ share cho ae dùng.
  • 0

#11 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 20 July 2012 - 04:15 PM

Đã 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!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#12 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 20 July 2012 - 04:33 PM

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
  • 1

#13 sgcq

sgcq

    Hội Hai Lúa

  • Members
  • PipPipPipPipPipPipPip
  • 1880 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 20 July 2012 - 07:46 PM

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.
  • 1

12728974_230210507314169_718723558582070 HỘI HAI LÚA

           fanpage: https://www.facebook.com/HoiHaiLua/

 

 

 

 

 

 


#14 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 20 July 2012 - 10:35 PM

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!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#15 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 20 July 2012 - 10:40 PM

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
  • 0

#16 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 20 July 2012 - 11:33 PM

"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
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#17 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 21 July 2012 - 05:48 PM

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
  • 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!

#18 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 23 July 2012 - 10:25 AM

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/...45f85aabea85796

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
  • 0

#19 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 23 July 2012 - 10:28 AM

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
  • 0

#20 quang_lac

quang_lac

    biết lệnh mirror

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

Đã gửi 23 July 2012 - 11:04 AM

Bác ntluyen hình như làm ở vinaconex thì phải
  • 0