Chuyển đến nội dung
Diễn đàn CADViet
tannguyen291

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

Các bài được khuyến nghị

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 :-D 

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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

image.png.9e1b9f8f4126cb101bb87448366b3941.png

  • Like 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

image.png.9e1b9f8f4126cb101bb87448366b3941.png

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

image.png.5aec94f187b08af10d100314ad64a262.png

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

 image.png.5aec94f187b08af10d100314ad64a262.png

 

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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ỉ

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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ỉ

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

image.png.573fa75bfe0d162776b628b72217b918.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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...

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
2 giờ trước, tannguyen291 đã nói:

image.png.4346b0695924116a94f89f67b91f175c.pngEm 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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 ?!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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. :)))

image.png.b54914ed9c8604ed90cbf55efcc506f2.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 :))

image.thumb.png.c5b0c7e84632c2598cf7d1128e6dd5e6.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

:-)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 ạ

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×