Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
17 replies to this topic

#1 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 24 December 2010 - 03:42 PM

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)
  • 2

#2 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 25 December 2010 - 12:26 PM

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

#3 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 25 December 2010 - 10:39 PM

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

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 25 December 2010 - 11:15 PM

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


#5 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 26 December 2010 - 10:34 PM

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

#6 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 27 December 2010 - 08:41 AM

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

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


#7 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 27 December 2010 - 09:33 AM

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

#8 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 27 December 2010 - 10:46 AM

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

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


#9 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 02 January 2011 - 04:39 PM

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

#10 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 03 January 2011 - 10:03 AM

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


#11 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 15 January 2011 - 10:30 AM

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

#12 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 15 January 2011 - 10:51 AM

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

#13 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 15 January 2011 - 10:54 AM

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

#14 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 15 January 2011 - 11:37 AM

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

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


#15 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 15 January 2011 - 12:17 PM

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

#16 nguyenngoctieulinh

nguyenngoctieulinh

    biết pan

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

Đã gửi 30 October 2012 - 10:02 PM

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

#17 nguyenngoctieulinh

nguyenngoctieulinh

    biết pan

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

Đã gửi 30 October 2012 - 10:05 PM

chỉ giúp em qua mail cũng được: nguyenngoctieulinh@gmail.com
thanks trước ha!
  • 0

#18 Firmament_XD

Firmament_XD

    Chưa sử dụng CAD

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

Đã gửi 19 November 2014 - 01:52 AM

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


  • 0