Lisp khoá bản vẽ. Đã hoàn thành và cùng thảo luận.

[NTHAHT 78]

28 phút trước, Doan Nguyen Van đã nói:

Hầu hết các phương án khoá đều bó tay với người biết crack  

Crack là chuyện khác, ở đây là đang thảo luận theo ý chủ thớt chứ...Là hàm cơ bản, chức năng của nó là gỡ reactor...

Còn với reactor của chủ thớt thì dùng lệnh wblock > Entire ... , khỏi cần gì đến lisp.

[tannguyen291 127]

24 phút trước, NTHAHT đã nói:

Hàm nguyên bản đây bác, chỉ cần paste vào dòng command là được rồi:

 (vlr-remove-all)

""Tại hạ chưa tính đến nước đi này. :)) Hảo hán."" Bác phá nguyên bộ lisp của em rồi. :(( Có lẽ phải định nghĩa lại Hàm VLR-REMOVE-ALL thì thoát. :))

(Defun VLR-REMOVE-ALL () NIL)

Thêm nội dung này có vẻ ổn.

[NTHAHT 78]

14 giờ trước, tannguyen291 đã nói:

""Tại hạ chưa tính đến nước đi này. :)) Hảo hán."" Bác phá nguyên bộ lisp của em rồi. :(( Có lẽ phải định nghĩa lại Hàm VLR-REMOVE-ALL thì thoát. :))

(Defun VLR-REMOVE-ALL () NIL)

Thêm nội dung này có vẻ ổn.

Bạn còn một số nước nữa chưa tính đến:

- wblock >  Entire

- Export > block.dwg > *

- Defpoints layer Locked

- Tất cả các MInsertBlock đã bị rename (Cái này dùng Handle có vẻ ổn hơn).

Còn vấn đề này thì khó rồi...

 

[Doan Van Ha 3.180]

(Defun VLR-REMOVE-ALL () NIL)  =>> (setq VLR-REMOVE-ALL nil)

[tannguyen291 127]

47 phút trước, NTHAHT đã nói:

Bạn còn một số nước nữa chưa tính đến:

- wblock >  Entire

- Export > block.dwg > * 

;;;;;;;;;; Vấn đề này em đã giải quyết từ đầu Reactor nhận diện Hành động Wblock,Save as..., và thao tác dời toạ độ trước khi hành động sảy ra.

;;;;;;;;;; Em chưa hiểu ý bác cho 2 mục này lắm. Nếu có thể Wblock trong lisp thì bác chỉ cho em với.

- Defpoints layer Locked ;;;;;;;;;;;;;Vấn đề này thì mở khoá layer khá dễ với người biết dùng cad cơ bản, bác có cách khoá nào hữu hiệu hơn giới thiệu em với.

- Tất cả các MInsertBlock đã bị rename (Cái này dùng Handle có vẻ ổn hơn). ;;;;;;;;;;; Xin tiếp thu ạ.

 Còn vấn đề này thì khó rồi... ;;;;;;;;;;;;; Vấn đề này xử lý như (VLR-REMOVER-ALL) em sẽ phá hàm entmake, entmakex.



 

Cảm ơn bác nhé.Có rất nhiều vấn đề em chưa tính đến. Em sẽ gửi file lisp lên cho anh em cùng tìm hiểu. Sau này đổi hết tên hàm, tên biến đi tránh bị crack vậy.

KHOABVtan1.LSP

[Doan Van Ha 3.180]

Thảo luận thêm tí:
1. Gởi cho CĐT n bản vẽ phải kèm n file lisp?
2. Kèm lisp rồi mà các bản vẽ vẫn bị khóa?
Vậy liệu CĐT có nghi ngờ anh TK chơi xỏ không? Và liệu lần sau còn ký HĐ được nữa không?

[tannguyen291 127]

2 phút trước, Doan Van Ha đã nói:

Thảo luận thêm tí:
1. Gởi cho CĐT n bản vẽ phải kèm n file lisp?
 2. Kèm lisp rồi mà các bản vẽ vẫn bị khóa?
Vậy liệu CĐT có nghi ngờ anh TK chơi xỏ không? Và liệu lần sau còn ký HĐ được nữa không?

Haha. Em viết lisp này vui là chính. Khi chưa ký hợp đồng thường em sẽ gửi PDF. Họ sẽ hiểu ý là mình chưa thể giao hs CAD được.Nhưng nếu họ cù nhầy thì mới dùng đến biện pháp thứ 2. Cũng hiếm khi phải dùng đến lắm.

[Doan Nguyen Van 489]

9 phút trước, Doan Van Ha đã nói:

Thảo luận thêm tí:
1. Gởi cho CĐT n bản vẽ phải kèm n file lisp?
2. Kèm lisp rồi mà các bản vẽ vẫn bị khóa?
Vậy liệu CĐT có nghi ngờ anh TK chơi xỏ không? Và liệu lần sau còn ký HĐ được nữa không?

1. Có thể dùng 1 file lsp duy nhất để xem tất cả các bản vẽ đã bị xáo trộn

15 giờ trước, tannguyen291 đã nói:

(Defun VLR-REMOVE-ALL () NIL)

Thêm nội dung này có vẻ ổn.

 

Bạn thêm trong file thế nào để load không bị lỗi "assignment to protected symbol:  VLR-REMOVE-ALL enter break loop" nhỉ

[tannguyen291 127]

14 phút trước, Doan Nguyen Van đã nói:

 1. Có thể dùng 1 file lsp duy nhất để xem tất cả các bản vẽ đã bị xáo trộn

Bạn thêm trong file thế nào để load không bị lỗi "assignment to protected symbol:  VLR-REMOVE-ALL enter break loop" nhỉ

Em vẫn load bình thường mà nhỉ.Không rõ bác dùng cad đời bao nhiêu vậy. 

[NTHAHT 78]

36 phút trước, tannguyen291 đã nói:

Cảm ơn bác nhé.Có rất nhiều vấn đề em chưa tính đến. Em sẽ gửi file lisp lên cho anh em cùng tìm hiểu. Sau này đổi hết tên hàm, tên biến đi tránh bị crack vậy.

KHOABVtan1.LSP

1. Với lệnh wblock, hoặc export nguyên bản của cad:

Sau khi viewdwglock, xuất ra 1 file ngoài, thì trong file này các block không bị dịch chuyển về 0,0... Mặc dù trên file hiện hành các block bị dịch chuyển.

2. Rector hiện tại của bạn chưa xử lý khi các layer bị lock, cụ thể khi người dùng lock layer Defpoints, thì rector không thể dịch các block về 0,0. Như vậy sau locklayer thì các thao tác như: Save, Saveas...vv... bình thường.

3. Can thiệp bằng lisp thì có nhiều phương án để xử... hehehe...

[Doan Nguyen Van 489]

2 giờ trước, tannguyen291 đã nói:

Em vẫn load bình thường mà nhỉ.Không rõ bác dùng cad đời bao nhiêu vậy. 

 

Vào Vlide-> Tool -> Environment -> General Option : ở bảng đó chọn SETQ tích vào ô số 3 Prompt to enter breakloop thì sẽ hiện thông báo như mình nói.

[gia_bach 1.548]

3 giờ trước, tannguyen291 đã nói:

Cảm ơn bác nhé.Có rất nhiều vấn đề em chưa tính đến. Em sẽ gửi file lisp lên cho anh em cùng tìm hiểu. Sau này đổi hết tên hàm, tên biến đi tránh bị crack vậy.

KHOABVtan1.LSP

Chủ đầu tư dùng CAD LT thì lock thế nào ?!

[tannguyen291 127]

1 giờ trước, gia_bach đã nói:

Chủ đầu tư dùng CAD LT thì lock thế nào ?!

CAD LT hình như hạn chế tính năng load lisp. Như vậy thì gửi cho bản minsert là oke lắm rồi. :)))

[Doan Nguyen Van 489]

Mọi người test file này xem có chỉnh sửa được không

 

 

OpenBanveLock.zip

[tannguyen291 127]

11 phút trước, Doan Nguyen Van đã nói:

Mọi người test file này xem có chỉnh sửa được không

Bác chơi lớn vậy ai chơi lại bác ơi. Nhưng mà em tắt cái này :))

[Doan Nguyen Van 489]

3 phút trước, tannguyen291 đã nói:

Bác chơi lớn vậy ai chơi lại bác ơi. Nhưng mà em tắt cái này :))

:)), thêm cái set secureload = 0 nữa thôi 

[NTHAHT 78]

Không biết có ổn không???

 

Q2.Show.dwg

[Doan Nguyen Van 489]

3 phút trước, NTHAHT đã nói:

Không biết có ổn không???

 

Q2.Show.dwg

Nếu không giống cách của bạn Tân kia thì không biết bác làm thế nào :)) 

[NTHAHT 78]

3 phút trước, Doan Nguyen Van đã nói:

Nếu không giống cách của bạn Tân kia thì không biết bác làm thế nào :)) 

- Mình chưa hiểu ý của bạn???

- File mình gửi ở trên theo bạn đã ok chưa?

[Doan Nguyen Van 489]

Vừa xong, NTHAHT đã nói:

- Mình chưa hiểu ý của bạn???

- File mình gửi ở trên theo bạn đã ok chưa?

Như bạn Tân là khi Load lisp phá hàm kia thì bạn ấy tắt đi rồi.

Không biết bác có để secureload = 1 hay thế nào không 

Tất nhiên file oke thì mới hỏi lại bác chứ: tò mò ghê :D 

[NTHAHT 78]

6 phút trước, Doan Nguyen Van đã nói:

Như bạn Tân là khi Load lisp phá hàm kia thì bạn ấy tắt đi rồi.

Không biết bác có để secureload = 1 hay thế nào không 

Tất nhiên file oke thì mới hỏi lại bác chứ: tò mò ghê :D 

MOVEPOINTAFTERLOCK_KHOABV
MOVEPOINTREACTION_KHOABV

[Doan Nguyen Van 489]

1 phút trước, NTHAHT đã nói:

MOVEPOINTAFTERLOCK_KHOABV
MOVEPOINTREACTION_KHOABV

Hiểu ý bác rồi! Có lẽ nên cẩn thận hơn khi post file lsp :D 

[tannguyen291 127]

14 phút trước, Doan Nguyen Van đã nói:

Hiểu ý bác rồi! Có lẽ nên cẩn thận hơn khi post file lsp :D 

Chính vì vậy lúc đầu em mới không muốn Công khai LISP Chỉ gửi riêng nội bộ thôi. :)) 

Mà cách của bác gớm thật.Chỉ em cách lấy tên hàm đã có trong cad với ạ

[NTHAHT 78]

Thực ra chẳng cần gì đến file lsp cả, viết 1 làm wblock không tên là được.

https://upanh.tv/image/z4CXGd

[Doan Nguyen Van 489]

16 giờ trước, NTHAHT đã nói:

Thực ra chẳng cần gì đến file lsp cả, viết 1 làm wblock không tên là được.

https://upanh.tv/image/z4CXGd

Gửi lại bác test lại file 

 

OpenBanveLock2.zip