Khóa bản vẽ Eureka Ơ-rê-ka :D

[linhoreka 47]

Sau khi đã thử cách cắt vụn, rồi block, cuối cùng cách khóa bản vẽ sẽ là thế này :leluoi: Crack me if you can

Các bạn chờ đến năm sau (2011) sẽ update đầy đủ các dụng cụ "Cắt vụn" "Block" "Unblock" lên cùng 7cad Lock. Giờ mệt quá ! Năm mới đến nơi rồi !

 

À tí quên, hướng dẫn sử dụng:

1. Các bạn mở bản vẽ, gõ lệnh REGEN (nhớ là phải enable VBA macro thì mới xem được bản vẽ, nếu không sẽ trống trơn :undecided:)

2. Bản vẽ khóa tất cả các lisp, các macro "lạ", vbaman, options, các lệnh chỉnh sửa Edit, Explode v.v. Vẽ line, hay arc v.v hay in thì được phép. Nếu người sử dụng sử dụng lệnh lạ, bản vẽ tự động ... biến mất. Phải gõ lệnh REGEN lần nữa bản vẽ mới hiện ra !

2. Gõ lệnh 7cadLock để vào hộp hội thoại quản lý. Bấm nút lệnh biểu tượng 7cad ở bên tay trái để compress - decompress (ẩn / hiện) bản vẽ. Các nút lệnh còn lại: Mở khóa, Thêm hình vẽ (vào khóa), Đặt Password mới (nếu Password trống == Không có Password)

[linhoreka 47]

Link video hướng dẫn xem trên Youtube

Chiều 5.30 pm: Đã update bản 7cad Lock đầy đủ các ToolKit phá hoại :undecided:: 1. Cắt vụn 2. Chuyển entities thành Block Nonexpodable & 3. Chuyển ngược lại Block non explodable + MInsert Block thành block bình thường để Explode phá hoại tiếp ...

[linhoreka 47]

Tool nối những hình vẽ bị cắt vụn không có. Mong đừng ai cắt vụn bản vẽ mà không save bản gốc như bạn vaonghe làm ở topic Cắt vụn bản vẽ để không chỉnh sửa được nữa. Tool nối này không hoàn hảo, nên không được đưa vào bộ 7cad Lock.

[ketxu 2.984]

Cảm ơn bạn đã cất công nghiên cứu vì sự nghiệp chống bóc lột chung của a e CAdman ^^.Code lần này quả có quá đồ sộ và hoành tráng so với khả năng của tại hạ ^^.Đã có encrypt,de-encrypt đầy đủ và chuyên nghiệp..

p/S : vấn đề đặt password có thể là công cụ "lợi bất cập hại" ^^

[linhoreka 47]

Không đặt password cũng không sao ! "Ta cứ cho đi, cần gì mong nhận lại" :undecided:

Hy vọng sắp có topic mới: Khóa file dwg ! (Cay mũi mấy thằng tư vấn thiết kế (CADViet) lắm rồi !)

[ketxu 2.984]

À có vấn đề về đặt biến Filedia về 0,gây ức chế nhất thời cho user, mình quên chưa nói :">

[linhoreka 47]

Sorry. Biến filedia = 0 là vô tình thôi. Chương trình không làm gì với biến đó cả. Bạn cứ gõ lệnh Filedia > 1 reset lại. Trong quá trình lập trình sửa lỗi các chương trình trong VBA, biến này hay bị về 0, chưa hiểu tại làm sao ?!

[ketxu 2.984]

Ồ,tất nhiên mình đã trả về 1 rồi chứ ^^

Hình như đây là lỗi của VBA,thế nên mình nghĩ bạn nên thêm phần set lại biến này sau mỗi dòng sendcommand

[linhoreka 47]

Update 7cadLock

Lần này tớ tách ra làm 3 files:

1. File drawing khóa mẫu có embedded 7cad Lock ReadOnly >>> Gõ Regen để xem

2. File 7cad Lock ReadOnly.dvb

3. File 7cad Lock Manager.dvb: gõ Regen để load lisp, rồi gõ lệnh 7cadLock để mở bảng điều khiển.

Như vậy chương trình sẽ có tính ứng dụng cao hơn. Cách cũ hơi "lộ" quá :D

[ketxu 2.984]

CHúc mừng vì sự nhiệt huyết của bạn.CHúc mừng năm mới ^^ Thanks ứng dụng nào.

[linhoreka 47]

Chương trình gặp lỗi với đối tượng vẽ là Attribute Definition. Không rõ tại sao AttDef.GetBoundaryBox lại lỗi !

Đã update bản sửa lỗi 7cadLock bằng cách bỏ qua Attribute Definition và bỏ qua luôn những đối tượng nếu encrypt gặp lỗi (lần trước chưa có code bắt lỗi)

 

Chương trình xài có hiệu quả không mà thấy ít người đọc vậy nhỉ ? Còn lỗi nào nữa không ?

Sao có topic vô thưởng vô phạt như "Cắt vụn bản vẽ" :) của tớ thì lại có hơn ngìn người vào mà cái này làm đẹp thế mà chả thấy ai :), hihi

[phamngoctukts 714]

Chương trình gặp lỗi với đối tượng vẽ là Attribute Definition. Không rõ tại sao AttDef.GetBoundaryBox lại lỗi !

Đã update bản sửa lỗi 7cadLock bằng cách bỏ qua Attribute Definition và bỏ qua luôn những đối tượng nếu encrypt gặp lỗi (lần trước chưa có code bắt lỗi)

 

Chương trình xài có hiệu quả không mà thấy ít người đọc vậy nhỉ ? Còn lỗi nào nữa không ?

Sao có topic vô thưởng vô phạt như "Cắt vụn bản vẽ" :) của tớ thì lại có hơn ngìn người vào mà cái này làm đẹp thế mà chả thấy ai :), hihi

Bạn giỏi thế thì nghĩ ra cái gì đó thiết thực một chút thì sẽ nhiều người vào thôi. Khoá bản vẽ thì có phải ai cũng mở được đâu nên chỉ cần 1 con dvb khoá lệnh thôi là ổn rồi. Chúc bạn có nhiều đóng góp cho diễn đàn!!!

[linhoreka 47]

Ừ, :) tớ cũng đang làm mấy thứ thiết thực

[ketxu 2.984]

Mặc dù ứng dụng rất hay nhưng bản thân e thì không dùng mấy, vì vài lý do sau :

1 là vì nếu để block sẽ rất nặng bản vẽ, mà vấn đề mở ra khóa vào khá rườm rà,máy e chậm nên có cảm giác rất lâu.

2 là nếu đã đưa cho khách hàng để kiểm tra tiến độ thì chỉ cần file pdf là đủ.Nếu giao cho khách bản CAD thì phải thật sự tin tưởng và không nên gây cảm giác ức chế cho đối tác, còn đã không thì thôi, đưa đk với đối tác ngay từ đầu để tránh trường hợp phải sửa những thứ nhỏ nhặt, mất công chuyển đi chuyển về

3 là nếu đã share cho ai khác thì tất nhiên, e sẽ k khóa ^^

Tất nhiên đây chỉ gói gọn trong nhu cầu bản thân e, còn nhiều trường hợp khác trên thực tế e chưa gặp :)

[linhoreka 47]

Hì, ừ, thực ra tớ làm cái này nhưng cũng có dùng bao giờ đâu :) Đơn giản như là giải một bài toán thôi, chứ có ứng dụng gì đâu.

Thắc mắc là thắc mắc cái page per view kia !

[nguyenngoctieulinh 0]

mấy pro giúp em mấy bản vẽ này nhe. em chịu thua rồi. tuần sau không có thì em rớt chắc.

http://upfile.vn/1PmH

[nguyenngoctieulinh 0]

chỉ giúp em qua mail cũng được: nguyenngoctieulinh@gmail.com

thanks trước ha!

[Firmament_XD 0]

bạn có thể gửi lại link cho mình được không mình đang cần tài liệu mà link die hết rồi

[longiv 0]

Hiện chủ đề này vẫn còn thảo luận chứ anh? load App sau đó gọi cong cụ chay -> chọn đối tượng rồi menu block lại ko dc . anh có thể hướng dẫn rõ hơn . TKS anh