copy Lisp Copy nội dung Text, Att, Dynamic nhanh (áp dụng cho Text, Dim, Block, Xref, Leader, Table, ...)

[Duong Nhat Duy 388]

Công dụng

Copy nội dung Text, Att hoặc Dynamic của Block này sang các Block khác (có thể làm với Text, Dim, Multileader, Autocad Table, kể cả trong Block, Xref)

 

Tên lệnh

         T2A - Copy nội dung Text vào Block Att lân cận

         Q1 - Copy nội dung đơn lẻ

         SW - Hoán đổi nội dung (tương tự lệnh Q1)

         Q2 - Copy tất cả nội dung Att trong Block Att

         Q3 - Copy 1 hoặc nhiều thuộc tính Dynamic

         Q4 - Copy tất cả thuộc tính Dynamic

         Q5 - Copy Scale của Block

         Q6 - Copy Rotation của Block (góc xoay của block - khác với góc xoay động: ví dụ Angle1, Angle2, đã có thể dùng bằng các lệnh Q3, Q4)

 

Ví dụ minh họa

T2A: Copy nội dung Text vào Block Att lân cận (nôm na là bắn Text vào Block gần đó)

 

Q1, Q2: Copy nội dung Text, Att, Dim, ...

 

Q3, Q4: Copy thuộc tính Dynamic

 

Link donwload

https://drive.google.com/drive/u/1/folders/1JPa-Vy_c4V-7pSkt2ApnazlZSdQdLDhi

 

Chúc các bạn thành công :)))

[lp_hai 225]

mình chưa thử lisp của bạn, nhưng chắc ai đó sẽ cần :) 
Và rất trân trọng những người như bạn share lisp của chính mình. Theo mình việc viết lisp quan trọng nhất không phải là trình độ coding cao cỡ nào, mà quan trọng là cái ý tưởng viết 1 lisp để ứng dụng vào thực tế....

[dquang50nl 2]

hi. Duong Nhat Duy . trước tiên cảm ơn bác đã share.

hiện tại em dùng MM4 thì ok. nhưng MM3 thì ko ra kết quả. 

không biết em sai chỗ nào k

[hoquangvinh 7]

mình cũng thử lisp này chạy được MM1, MM2, MM4 rồi riêng với lệnh MM3 thì 

+ đối với block có 1 thuộc tính dynamic thì cũng dùng đc rồi

+ đối với block có nhiều thuộc tính dynamic và thuộc tính khác nữa như Angle, Flipstate thì chưa được

[Duong Nhat Duy 388]

Vào lúc 10/5/2019 tại 17:04, hoquangvinh đã nói:

mình cũng thử lisp này chạy được MM1, MM2, MM4 rồi riêng với lệnh MM3 thì 

+ đối với block có 1 thuộc tính dynamic thì cũng dùng đc rồi

+ đối với block có nhiều thuộc tính dynamic và thuộc tính khác nữa như Angle, Flipstate thì chưa được

Hề, lâu lắm mới mò lại vào đây, cái này mình test ko có lỗi gì cả, bạn thử chụp ảnh hoặc up file lên coi.

[tamky 7]

Lisp anh đúng tuyệt vời nhưng trường hợp đỗi xứng của em không được. Nhờ anh giúp cho. Em cảm ơn anh

Nut (sn mat).rar

[Doan Nguyen Van 491]

39 phút trước, tamky đã nói:

Lisp anh đúng tuyệt vời nhưng trường hợp đỗi xứng của em không được. Nhờ anh giúp cho. Em cảm ơn anh

Nut (sn mat).rar

Mình test thử thấy vẫn oke mà bạn, k biết bạn bảo lỗi ở lệnh nào? 

[tamky 7]

Minhf dùng lệnh mm4 nhưng vẫn không giống đối tượng gốc, chỉ nhảy xuống chứ không qua hướng bên trái.

[Doan Nguyen Van 491]

6 phút trước, tamky đã nói:

Minhf dùng lệnh mm4 nhưng vẫn không giống đối tượng gốc, chỉ nhảy xuống chứ không qua hướng bên trái.

Bởi vì lisp chỉ Matchprop thuộc tính dynamic, còn hướng như bạn nói là theo tỷ lệ scalefactor, nếu muốn giống nữa thì phải thêm vài dòng

[tamky 7]

Dạ. Nhờ anh có thể giúp em thêm tí không.

Cảm ơn anh.

[Duong Nhat Duy 388]

21 giờ trước, tamky đã nói:

Minhf dùng lệnh mm4 nhưng vẫn không giống đối tượng gốc, chỉ nhảy xuống chứ không qua hướng bên trái.

Block của bạn lỗi tùm lum, nguyên tắc là làm block động thì đừng bao giờ mirror, chắc chắn sẽ xảy ra lỗi.

Block chỉ định của bạn (trong file) đã bị mirror (scale X=-1).

[tamky 7]

Cảm ơn bạn. Vì đối tượng dính với nhau nên phải miror chứ kéo lên, xuống vẫn dính nhau.

[Duong Nhat Duy 388]

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

Cảm ơn bạn. Vì đối tượng dính với nhau nên phải miror chứ kéo lên, xuống vẫn dính nhau.

Bạn chịu khó nhập scale X block cần match = scale block gốc nhé (giả sử trường hợp của bạn là -1).

Mà đã chơi block động thì bạn thêm luôn phần động mirror, rotation đi cho tiện, dùng lisp ko bị lỗi. Lisp của mình mình ko muốn nó can thiệp vào các giá trị Rotation và Scale của block nên dùng cho block của bạn kiểu gì cũng sẽ bị lỗi.

Hiện mình đang ko rảnh lắm nên ko sửa được, bạn có thể nhờ ace trên diễn đàn.

[tamky 7]

Cảm ơn bạn nhiều.

[ngokiet 170]

Viết thêm lệnh MM5 Match scale luôn..

[Duong Nhat Duy 388]

12 giờ trước, tamky đã nói:

Cảm ơn bạn nhiều.

 

11 giờ trước, ngokiet đã nói:

Viết thêm lệnh MM5 Match scale luôn..

Mình đã thêm 2 lệnh mm5 và mm6 vào bài đăng r nhé.

[tamky 7]

Cảm ơn anh nhiều. Hay quá.

Anh cho em hỏi, mm6 sao em dùng trong trường hợp bản vẽ của em ở trên không có động tĩnh gì cả. Nhờ anh cho luôn trường hợp đối xứng được không ạ.

[Duong Nhat Duy 388]

Vào lúc 25/5/2019 tại 22:02, tamky đã nói:

Cảm ơn anh nhiều. Hay quá.

Anh cho em hỏi, mm6 sao em dùng trong trường hợp bản vẽ của em ở trên không có động tĩnh gì cả. Nhờ anh cho luôn trường hợp đối xứng được không ạ.

MM6 chỉ match rotation của 2 block, 2 block trong file của bạn đều có rotation là 328 độ.

Block gốc của bạn bị lỗi, scaleX = -1 nên cũng khó mà can thiệp vào được (bạn thử chỉnh về 1 sẽ thấy lỗi ngay). Lời khuyên của mình là đừng bao giờ mirror block động/thuộc tính.

Nếu bí quá thì bạn có thể copy block gốc đến chỗ các block gần gán, sau đó dừng mm2, rồi xóa các block vừa gán xong đi.

[OngNguyenVanHan 1]

anh @Duong Nhat Duyơi, lệnh Q1 hiện không thực hiện được với đối tượng mleader anh ạ, với anh sửa giúp em lệnh Q1 nó giữ nguyên nguồn thay vì chọn text là kết thúc lệnh được không anh

[Duong Nhat Duy 388]

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

anh @Duong Nhat Duyơi, lệnh Q1 hiện không thực hiện được với đối tượng mleader anh ạ, với anh sửa giúp em lệnh Q1 nó giữ nguyên nguồn thay vì chọn text là kết thúc lệnh được không anh

Mình đã sửa trên đầu topic rồi nhé

[OngNguyenVanHan 1]

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

Mình đã sửa trên đầu topic rồi nhé

Cảm ơn anh, nhờ anh đã tăng tiến độ công việc lên rất nhiều

[CV90 0]

Lisp hay mà mình dùng lại bị lỗi font vậy AD, có cách nào chỉnh ko AD

[Duong Nhat Duy 388]

Vào lúc 6/7/2024 tại 11:03, CV90 đã nói:

Lisp hay mà mình dùng lại bị lỗi font vậy AD, có cách nào chỉnh ko AD

Mình đã fix lại rồi nhé !

[CV90 0]

Thanks AD, mà có phát sinh lỗi phát không chép được text trong Multileader , block att có dùng multi linen thì ko chép được. AD check lại xem nhé

[Duong Nhat Duy 388]

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

Thanks AD, mà có phát sinh lỗi phát không chép được text trong Multileader , block att có dùng multi linen thì ko chép được. AD check lại xem nhé

Cái này mình chịu thua nhé, được Mutilleader thì mất font Unicode và ngược lại, cái này do cad nó miệt thị font tiếng việt hoặc là mình gà ko biết hàm nên giờ này vẫn chưa biết cách giải quyết :v