Đến nội dung


Hình ảnh
- - - - -

Khóa file DWG bằng VBA


  • Please log in to reply
67 replies to this topic

#41 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 24 July 2012 - 01:01 PM

Món này trông hay quá, mình chưa thử bao giờ.

Đặt khóa chỉ phòng người ngay thôi.... chức năng này khá là hữu dụng trong nhiều trường hợp đấy chứ.
  • 0
Clear sky!

MF Rock collection.

#42 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 26 July 2012 - 08:13 AM

xin bác
ntluyen up cho anh em file khoa bằng VBA đi.đang cần cái của bác quá

thank bác trướ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

#43 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 26 July 2012 - 12:38 PM

Thấy phá dễ quá nên không làm nữa rồi bạn ạ
  • 0

#44 huyhuong

huyhuong

    biết vẽ circle

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

Đã gửi 26 July 2012 - 04:30 PM

Thấy phá dễ quá nên không làm nữa rồi bạn ạ

Bác thấy dễ nhưng với nhiều người rất khó đó, không phải ai cũng biết bác ah, bác cứ up cho anh em xài đi, bác viết ra mà không có người xài cũng uổng
  • 0

#45 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 26 July 2012 - 04:33 PM

:D mình thì ko thích sài khóa bằng VBA, khóa bằng minsert block sẽ hay hơn
  • 0

#46 alucad

alucad

    Chưa sử dụng CAD

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

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

up đi bác ơi.anh em đang cần nó quá nè.
  • 0

#47 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 26 July 2012 - 07:35 PM

Cách sử dụng khóa file cad của mình như sau:
1. Download file ở #1
2. Mở file ở chế độ Diabable Macro
3. Xóa all (command : erase => chọn All ~ tức là xóa toàn bộ các đối tượng ẩn)
4. Insert file bản vẽ của các bạn vào file này. (nhớ là để chế độ Explode)
5. Save flie
6. Close flie
7. Mở lại file chọn Enable macro
8. Ctrl + s (save file)
Close Acad
=> file đã được khóa
CHú ý : file đã khóa sẽ không chỉnh sửa được nữa, các bạn cần lưu bản gốc.
  • 0

#48 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 26 July 2012 - 07:36 PM

:D mình thì ko thích sài khóa bằng VBA, khóa bằng minsert block sẽ hay hơn

minsert thấy có nhiều topic nói cách mở quá rồi.
  • 0

#49 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 26 July 2012 - 08:10 PM

minsert thấy có nhiều topic nói cách mở quá rồi.

đã khóa được thì sẽ mở được, nhưng mình thích khóa bằng minsert block hơn vì khi khóa bằng VBA này mà mở bản vẽ bằng cad đời mới thì không có hiện Enable macro hay disable nếu chưa cài VBA nên sẽ không nhìn thấy j. Mà CĐT cũng sẽ biết là mình khóa (cái này ko hay nha).
  • 0

#50 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 27 July 2012 - 08:57 AM

Mà CĐT cũng sẽ biết là mình khóa (cái này ko hay nha).

Đã khóa thì dù cách nào CĐT cũng biết là mình khóa
  • 0

#51 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 27 July 2012 - 09:03 AM

Cách sử dụng khóa file cad của mình như sau:
1. Download file ở #1
2. Mở file ở chế độ Diabable Macro
3. Xóa all (command : erase => chọn All ~ tức là xóa toàn bộ các đối tượng ẩn)
4. Insert file bản vẽ của các bạn vào file này. (nhớ là để chế độ Explode)
5. Save flie
6. Close flie
7. Mở lại file chọn Enable macro
8. Ctrl + s (save file)
Close Acad
=> file đã được khóa
CHú ý : file đã khóa sẽ không chỉnh sửa được nữa, các bạn cần lưu bản gốc.

thank anh nhìu em làm được rồi.nhưng anh có thể chỉnh sao cho nó có thể dim được,và print được không.vì chuyển cho chủ đầu tư thì họ cần in.và dim nữa, thank đại ka nhìu
  • 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

#52 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 27 July 2012 - 09:45 AM

Ah, Bản này khóa full
  • 0

#53 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 27 July 2012 - 09:49 AM

anh up cho bọn em bản dim và print được đi.please......... :wub:
  • 0
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

#54 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 13 August 2012 - 05:01 PM

Mình có thử viết lại khóa file CAD bằng vb.net
các bạn dùng và cho ý kiến
https://www.box.com/...0a1ece0d4e929ad
Dùng cho cad 2007 - 2013
giải nén và chạy file cad
  • 0

#55 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 13 August 2012 - 09:31 PM

Mình có thử viết lại khóa file CAD bằng vb.net
các bạn dùng và cho ý kiến
https://www.box.com/...0a1ece0d4e929ad
Dùng cho cad 2007 - 2013
giải nén và chạy file cad

Thứ 1: cái này viết bằng VB6 (ko phải VB .NET)
thứ 2: run lock code thông qua acaddoc.lsp (hidden)
thứ 3: mình ko run dc (có thể do LockDWG.exe cố truy cập vào C:\Window\system32 bằng quyền user)
ko hiểu truy cập vào đấy làm gì ? :D
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#56 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 14 August 2012 - 08:11 AM

Thứ 1: cái này viết bằng VB6 (ko phải VB .NET)
thứ 2: run lock code thông qua acaddoc.lsp (hidden)
thứ 3: mình ko run dc (có thể do LockDWG.exe cố truy cập vào C:\Window\system32 bằng quyền user)
ko hiểu truy cập vào đấy làm gì ? :D


1. Cái này mình viết bằng vb.Net. File LockDWG.exe chỉ là file chạy để Extrac ra file NET.
2.Đúng là cần file acaddoc.lsp để gọi file LockDWG.exe chạy tự động lần đầu
3. file LockDWG.exe ko hề truy cập vào C:\Window\system32, chỉ ghi file NET vào trong support của cad.
chắc bạn chặn nên no ko load được
  • 0

#57 sanit

sanit

    biết vẽ line

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

Đã gửi 14 August 2012 - 09:04 AM

Mình có thấy file 2007-LockDWG-W32.dll được ghi vào C:\Program Files\AutoCAD 2007\
Mình sử dụng file dwg của bạn thì có lỗi sauHình đã gửi
  • 0

#58 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 14 August 2012 - 10:23 AM

Mình có thấy file 2007-LockDWG-W32.dll được ghi vào C:\Program Files\AutoCAD 2007\
Mình sử dụng file dwg của bạn thì có lỗi sau

Đây là do bạn không cho ctrình nó chạy. Hình trên chính là file đã bị khóa. Nếu bạn cho ctrình chạy thì sẽ giải mã thành file bản vẽ bình thường. file 2007-LockDWG-W32.dll tôi viết bằng NET
  • 0

#59 sanit

sanit

    biết vẽ line

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

Đã gửi 14 August 2012 - 07:58 PM

Đây là do bạn không cho ctrình nó chạy. Hình trên chính là file đã bị khóa. Nếu bạn cho ctrình chạy thì sẽ giải mã thành file bản vẽ bình thường. file 2007-LockDWG-W32.dll tôi viết bằng NET

Mình nghĩ nếu giao bản vẽ cho chủ đầu tư mà nó như này, có vẻ không hợp lý cho lắm.
  • 0

#60 ntluyen

ntluyen

    biết vẽ ellipse

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

Đã gửi 14 August 2012 - 08:13 PM

Đây là bản tôi không Visible đối tượng để cho mọi người thấy được đối tượng đã khóa. khi mở file cad nó sẽ tự chuyển về file cad ban đầu. đây là demo cho mọi người xem thấy khóa như thế, có cách nào mở không thôi.
  • 0