Mong mọi người giúp đỡ sửa lisp này ạ

[OngNguyenVanHan 1]

Em có cái lisp sao chép text, hoán đổi text CopySwapTextV1-8.lsp của Leemac nhưng hiện tại em sao chép text vào khung tên block att thì khá lag và chậm, nhất là bản vẽ nặng thì lâu thôi rồi mong mọi người sửa lisp để tăng tốc độ cho nó. Em có gửi kèm lisp Matchprop+.LSP  có lệnh Q1 sao chép rất nhanh nhưng nó chỉ áp dụng vào text att và không liên tục. Mong mọi người giúp đỡ, không rõ yêu cầu mong mọi người cmt để em giải thích thêm

Drawing1.dwg

[limfx 21]

LIsp này so với lệnh MATCHPROP có gì hay hơn bạn?

[cuongtk2 345]

Chỉ truyền nội dung Text trong bản vẽ vào Text khung tên bạn nên dùng 2 lần hàm nentsel cho đối tượng nguồn và đích. Lấy mã Dxf 1 để đọc TextString như lệnh q1 đó là được.

Tuy nhiên nó chỉ có hiệu quả với Dtext và att. Với Mtext thì khó lấy TextString vì nó là định dạng paragraph.

Còn vấn đề liên tục không cần thiết lắm, mỗi lần mình làm vài lượt thôi.

 

[OngNguyenVanHan 1]

5 giờ trước, limfx đã nói:

LIsp này so với lệnh MATCHPROP có gì hay hơn bạn?

Lisp của Leemac nó giữ Text nguồn và chuyền liên tục vào text dích ở bất cứ dạng gì, nó vẫn truyền vào block att được nhưng lâu và lag, còn lisp Matchprop+.LSP thì chuyên về block att, ko gán được text mtext thường cũng như ko gán liên tục được

[OngNguyenVanHan 1]

4 giờ trước, cuongtk2 đã nói:

Chỉ truyền nội dung Text trong bản vẽ vào Text khung tên bạn nên dùng 2 lần hàm nentsel cho đối tượng nguồn và đích. Lấy mã Dxf 1 để đọc TextString như lệnh q1 đó là được.

Tuy nhiên nó chỉ có hiệu quả với Dtext và att. Với Mtext thì khó lấy TextString vì nó là định dạng paragraph.

Còn vấn đề liên tục không cần thiết lắm, mỗi lần mình làm vài lượt thôi.

 

Bác giúp em sửa code của leemac với ạ, em ko biết gì về code cả

[CadExTools 102]

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

Bác giúp em sửa code của leemac với ạ, em ko biết gì về code cả

 

Nếu bạn cần Tools cho quá trình sủa khung tên Block Attributes thì mình có Tools như video dưới.

 

Nếu đúng nhu cầu, bạn liên hệ mình qua Zalo 0986370918 để biết chi tiêt  hơn.

https://www.youtube.com/watch?v=9Bn3o1ciIyM&t=1s

P/s: Tools có tốn cafe nhé

[Duong Nhat Duy 302]

Vào lúc 31/7/2023 tại 20:41, OngNguyenVanHan đã nói:

Em có cái lisp sao chép text, hoán đổi text CopySwapTextV1-8.lsp của Leemac nhưng hiện tại em sao chép text vào khung tên block att thì khá lag và chậm, nhất là bản vẽ nặng thì lâu thôi rồi mong mọi người sửa lisp để tăng tốc độ cho nó. Em có gửi kèm lisp Matchprop+.LSP  có lệnh Q1 sao chép rất nhanh nhưng nó chỉ áp dụng vào text att và không liên tục. Mong mọi người giúp đỡ, không rõ yêu cầu mong mọi người cmt để em giải thích thêm

Lisp này hình như của mình viết, mục đích là copy giá trị từ text, att, dim, ... sang text, att, dim khác thôi, ko copy định dạng. Lisp của Leemac ngoài lệnh Swap ra thì cũng tương tự, hơn chỗ có thể chọn nhiều đối tượng paste đến. Nhưng mình chưa hiểu cái "không liên tục" của bạn là như nào, mình đoán là copy 1 giá trị từ 1 text sang 1 att nào đó trong block bản vẽ (ví dụ MABANVE), và có thể chọn nhiều khung cùng 1 lúc, nếu vậy thì lisp của Leemac cũng đâu có làm được ??? Tại sao 1 ý phức tạp như vậy mà bạn có thể nói trong 3 chữ "không liên tục" được ???

[OngNguyenVanHan 1]

55 phút trước, Duong Nhat Duy đã nói:

Lisp này hình như của mình viết, mục đích là copy giá trị từ text, att, dim, ... sang text, att, dim khác thôi, ko copy định dạng. Lisp của Leemac ngoài lệnh Swap ra thì cũng tương tự, hơn chỗ có thể chọn nhiều đối tượng paste đến. Nhưng mình chưa hiểu cái "không liên tục" của bạn là như nào, mình đoán là copy 1 giá trị từ 1 text sang 1 att nào đó trong block bản vẽ (ví dụ MABANVE), và có thể chọn nhiều khung cùng 1 lúc, nếu vậy thì lisp của Leemac cũng đâu có làm được ??? Tại sao 1 ý phức tạp như vậy mà bạn có thể nói trong 3 chữ "không liên tục" được ???

chính là cái paste text đích liên tục đó anh, nó giữ định dạng gốc và giữ nó gán liên tục vào chỗ khác, hiện tại nó gán vào block khá lag so với lisp của anh viết

[Duong Nhat Duy 302]

58 phút trước, OngNguyenVanHan đã nói:

chính là cái paste text đích liên tục đó anh, nó giữ định dạng gốc và giữ nó gán liên tục vào chỗ khác, hiện tại nó gán vào block khá lag so với lisp của anh viết

Sửa theo ý bạn thì đây: Matchprop+.lsp

Quan điểm của mình thế này:

- Nếu bạn copy 1 text ra 1 2 hay 3 cái att thì cứ Q1 gối nhau, mất thêm 1 lần enter với 1 lần click chuột

- Nếu bạn copy 1 text ra 10 20 cái att thì sao không chọn hết block xong sửa trực tiếp trong Ctrl+1, nhanh hơn gấp 10 lần dùng lisp

[OngNguyenVanHan 1]

8 giờ trước, Duong Nhat Duy đã nói:

Sửa theo ý bạn thì đây: Matchprop+.lsp

Quan điểm của mình thế này:

- Nếu bạn copy 1 text ra 1 2 hay 3 cái att thì cứ Q1 gối nhau, mất thêm 1 lần enter với 1 lần click chuột

- Nếu bạn copy 1 text ra 10 20 cái att thì sao không chọn hết block xong sửa trực tiếp trong Ctrl+1, nhanh hơn gấp 10 lần dùng lisp

thanks anh Duy, anh sửa giúp em thêm cái lisp của Leemac gán vào block att nhanh như lisp của anh được không ạ

[Duong Nhat Duy 302]

13 giờ trước, OngNguyenVanHan đã nói:

thanks anh Duy, anh sửa giúp em thêm cái lisp của Leemac gán vào block att nhanh như lisp của anh được không ạ

Cái này mình chịu nhé, trình độ của mình chưa đủ để voọc lisp của cụ Leemac :))

[limfx 21]

Lisp cụ Leemac  quá phức tạp

 

[NTHAHT 83]

Trong lisp có sử dụng hàm vla-regen (với trường hợp đối tượng được truyền nằm trong block), pick phát nào nó regen phát đó dẫn đến lag nếu file nặng, chỉnh sửa 1 chút ở đó là được.

[tannguyen291 135]

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

Trong lisp có sử dụng hàm vla-regen (với trường hợp đối tượng được truyền nằm trong block), pick phát nào nó regen phát đó dẫn đến lag nếu file nặng, chỉnh sửa 1 chút ở đó là được.

Lisp OCA của cụ nào ngày xưa cũng thế để hàm regen, pick liên tục bản vẽ nặng mệt muốn chết :))

[ketxu 2.984]

Không có CAD ở đây nên mình k test được. Đẩy cái Regen ra hàm main, bạn thử test xem sao. 

CopySwapTextV1-8.lsp

[OngNguyenVanHan 1]

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

Trong lisp có sử dụng hàm vla-regen (với trường hợp đối tượng được truyền nằm trong block), pick phát nào nó regen phát đó dẫn đến lag nếu file nặng, chỉnh sửa 1 chút ở đó là được.

 

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

Lisp OCA của cụ nào ngày xưa cũng thế để hàm regen, pick liên tục bản vẽ nặng mệt muốn chết :))

 

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

Không có CAD ở đây nên mình k test được. Đẩy cái Regen ra hàm main, bạn thử test xem sao. 

CopySwapTextV1-8.lsp

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

ng hợp đối tượng được truyền nằm tro

Thanks các anh đã tìm ra vấn đề, anh ketxu sửa lại đã nhanh hơn nhưng khi nhấn enter kết thúc lệnh ctx nó vẫn còn hàm regen lên vẫn lag, mong anh sửa nốt giúp em ở lệnh ctx và lệnh stx khi kết thúc lệnh nữa ạ.

[duy782006 1.549]

Mình nhớ vụ regen này xưa mình cũng bị sau giải quyết bằng cách không regen mà rung cái đối tượng đã sửa 1 phát nghĩa là move nó khoảng cách bằng 0 thì nó tự cập nhật giá trị thì phải. (lâu quá nhớ mang máng thế)

[tannguyen291 135]

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

Mình nhớ vụ regen này xưa mình cũng bị sau giải quyết bằng cách không regen mà rung cái đối tượng đã sửa 1 phát nghĩa là move nó khoảng cách bằng 0 thì nó tự cập nhật giá trị thì phải. (lâu quá nhớ mang máng thế)

em không làm như bác nếu là đối tượng field thì dùng "_.updatefield"

Các đối tượng khác có thể dụng entupd sẽ đạt hiệu quả mong muốn. 

Move thì ảo thật chưa nghĩ đên luôn :))

[OngNguyenVanHan 1]

Vào lúc 2/8/2023 tại 11:19, Duong Nhat Duy đã nói:

Sửa theo ý bạn thì đây: Matchprop+.lsp

Quan điểm của mình thế này:

- Nếu bạn copy 1 text ra 1 2 hay 3 cái att thì cứ Q1 gối nhau, mất thêm 1 lần enter với 1 lần click chuột

- Nếu bạn copy 1 text ra 10 20 cái att thì sao không chọn hết block xong sửa trực tiếp trong Ctrl+1, nhanh hơn gấp 10 lần dùng lisp

anh có lệnh Q1 liên tục như của cụ leemac với lệnh hoán đổi text giống cụ leemac ko anh

[Duong Nhat Duy 302]

Vào lúc 20/9/2023 tại 20:19, OngNguyenVanHan đã nói:

anh có lệnh Q1 liên tục như của cụ leemac với lệnh hoán đổi text giống cụ leemac ko anh

Đây bạn

SW - Swap Text, Att.lsp

[OngNguyenVanHan 1]

2 giờ trước, Duong Nhat Duy đã nói:

Đây bạn

SW - Swap Text, Att.lsp

Anh thêm cho em cái lệnh Q1 liên tục nữa ạ

[Duong Nhat Duy 302]

59 phút trước, OngNguyenVanHan đã nói:

Anh thêm cho em cái lệnh Q1 liên tục nữa ạ

 

Q1.lsp

[tannguyen291 135]

Bạn thử cân nhắc cách của mình nhé. không cần dùng lisp nhưng có lẽ sẽ ưu việt hơn đấy. :))

 

[OngNguyenVanHan 1]

8 giờ trước, Duong Nhat Duy đã nói:

 

Q1.lsp

Cảm ơn anh đã hỗ trợ tận tình

[OngNguyenVanHan 1]

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

Bạn thử cân nhắc cách của mình nhé. không cần dùng lisp nhưng có lẽ sẽ ưu việt hơn đấy. :))

 

Em cảm ơn anh đã góp ý, để em tìm hiểu cách của anh