Nhờ Viết Lisp Copy Text Từ Bảng Excel Thay Thế Text Trên Bảng Trong File Cad Giữ Nguyên Định Dạng Của Text Trên File Cad

[bm21v2011 0]

Tôi muốn copy giá trị từ bảng khối lượng trên Excel thay thế giá trị bảng khối lượng trên Cad với điều kiện giữ nguyên định dạng của Text bị thay giá trị trên Cad (Có file gửi kèm).

https://drive.google.com/open?id=0B6niWI3nkmwiaUhTZmNLTVRCNTQ

https://drive.google.com/open?id=0B6niWI3nkmwiZ1dIaWVrbUFsXzg

Tôi đã thử và tìm sử dụng nhiều Lisp trên CV nhưng chưa thành công.

- Tôi chưa tìm thấy Lisp có thể thay thế giá trị của cả bảng.

- Với các Lisp thay thế từng số (mat.lsp; copy2_paste2.lsp; ttc.lsp; tc_td.lsp) đã có trên CV tôi Copy giá trị từ bảng trên Excel Paste Special với dạng "Unicode Text" lên Cad rồi dùng Lisp thay từng số thì khi thay giá trị "0.00" text sẽ đổi luôn định dạng Font chữ sang Font ".Vn......" không còn đúng như Font chữ mong muốn là Arial trong bảng KL trên Cad.

Tôi mong muốn:

1/ Viết giúp tôi 1 Lisp thực hiện được công việc trên với lưu ý (giữ nguyên định dạng của Text bị thay giá trị trên Cad)

2/ Hoặc sửa lisp mat.lsp có sẵn trên CadViet để khi tôi thay Text giữ nguyên được định dạng ban đầu của Text bị thay thế giá trị.

Nhờ các bạn, các anh giúp đỡ. Tôi xin chân thành cảm ơn!

 

[quocmanh04tt 635]

TextStyle trên bảng kê là Style "THUONG" đặt font chữ .Vnarial Narrow (TCVN3), trong bảng dùng MTEXT lại dùng font Arial (UNICODE)

Khi tác động vào nó chuyển về font .Vn...

Thử giải quyết bằng cách: đặt font cho style "THUONG" là Arial rồi thực hiện các bước trên xem có bị thay đổi nữa không!

[bm21v2011 0]

TextStyle trên bảng kê là Style "THUONG" đặt font chữ .Vnarial Narrow (TCVN3), trong bảng dùng MTEXT lại dùng font Arial (UNICODE)

Khi tác động vào nó chuyển về font .Vn...

Thử giải quyết bằng cách: đặt font cho style "THUONG" là Arial rồi thực hiện các bước trên xem có bị thay đổi nữa không!

Cảm ơn bạn! Mình làm theo cách của bạn và ok không bị nhảy Font nữa nhưng xem kỹ lại phát hiện ra vấn đề khác là Text trong bảng kê đã bị điều chỉnh độ rộng từ 1 về 0.7 nên đúng Font vẫn phải chỉnh lại độ rộng Text (Do buộc phải làm theo mẫu do liên quan nhiều nhà thầu). Bạn có cách nào giải quyết được vụ độ rộng của Text này không? Có bạn nào thấy hoặc có thể viết Lisp có thể thay thế giá trị của cả bảng nhờ chỉ giáo giúp nhé!

[bm21v2011 0]

Bổ sung thêm yêu cầu là sau khi thay thế giữ nguyên định dạng và độ rộng của Text bị thay giá trị trên Cad. Mình loay hoay, hí hoáy mãi cuối cùng chịu nhập tay rồi :). Bạn nào có giải pháp xin trợ giúp  :)

[Bee 154]

Bổ sung thêm yêu cầu là sau khi thay thế giữ nguyên định dạng và độ rộng của Text bị thay giá trị trên Cad. Mình loay hoay, hí hoáy mãi cuối cùng chịu nhập tay rồi :). Bạn nào có giải pháp xin trợ giúp  :)

Filter mtext trong bảng chuyển sang style Hue Arial. Xong rồi dùng lisp mat xem thế nào. Chắc mất 5s. ^_^

[bm21v2011 0]

Filter mtext trong bảng chuyển sang style Hue Arial. Xong rồi dùng lisp mat xem thế nào. Chắc mất 5s. ^_^

Cảm ơn bạn!

1/ Bạn có thể hướng dẫn chi tiết hơn 1 chút về cách Filter Mtext được không?

2/ Dùng Lisp "mat" thì vẫn là copy thay từng giá trị Text 1 khá lâu do file mình đang làm có khá nhiều mặt cắt. Có Lisp copy thay được 1 loạt Text từ bảng Excel vào bảng Cad thì mới nhanh được.

[Bee 154]

Cảm ơn bạn!

1/ Bạn có thể hướng dẫn chi tiết hơn 1 chút về cách Filter Mtext được không?

2/ Dùng Lisp "mat" thì vẫn là copy thay từng giá trị Text 1 khá lâu do file mình đang làm có khá nhiều mặt cắt. Có Lisp copy thay được 1 loạt Text từ bảng Excel vào bảng Cad thì mới nhanh được.

Filter xem ở đây. Có thể search thêm.

Ở phần select filter chọn mtext. Xong apply quơ hết các bảng vào thôi

 

 

 

Nếu mình hiểu đúng ý thì đây là link lisp paste data từ excel sang cad.

Mình không có nhiều thời gian viết kỹ nên dùng tạm cái này nhé.

 

https://drive.google.com/file/d/0B-3fZ45DSr_XMzl0NGl1TjRFVTA/view?usp=sharing

 

 

 xem video thao tác 

 

https://youtu.be/Dhl7522jSNo

 

1.Select cell và copy.

2.Bên cad sau khi load lisp. Gõ lệnh PAS

3.Select hàng text (xem ảnh)

4.Xem thôi ^_^

[Bee 154]

Filter xem ở đây. Có thể search thêm.

Ở phần select filter chọn mtext. Xong apply quơ hết các bảng vào thôi

 

 

 

Nếu mình hiểu đúng ý thì đây là link lisp paste data từ excel sang cad.

Mình không có nhiều thời gian viết kỹ nên dùng tạm cái này nhé.

 

https://drive.google.com/file/d/0B-3fZ45DSr_XMzl0NGl1TjRFVTA/view?usp=sharing

 

 

 xem video thao tác 

 

https://youtu.be/Dhl7522jSNo

 

1.Select cell và copy.

2.Bên cad sau khi load lisp. Gõ lệnh PAS

3.Select hàng text (xem ảnh)

4.Xem thôi ^_^

Sao web không hiện hết lên mà cứ repply thì mới có nhỉ ^_^

[zleo90 0]

Kịp thời}}, Bee cho biết:

Filter xem ở đây. Có thể search thêm.

 

Ở phần select filter chọn mtext. Xong apply quơ hết các bảng vào thôi

 

 

 

Nếu mình hiểu đúng ý thì đây là link lisp paste data từ excel sang cad.

Mình không có nhiều thời gian viết kỹ nên dùng tạm cái này nhé.

 

https://drive.google.com/file/d/0B-3fZ45DSr_XMzl0NGl1TjRFVTA/view?usp=sharing

 

 

 xem video thao tác 

 

https://youtu.be/Dhl7522jSNo

 

1.Select cell và copy.

2.Bên cad sau khi load lisp. Gõ lệnh PAS

3.Select hàng text (xem ảnh)

4.Xem thôi ^_^

Bác ơi! nhờ Bác viết thêm paste cả phương ngang và phương dọc được không ạ!

[vanhuyou 25]

Vào lúc 22/10/2016 tại 23:57, Bee đã nói:

Filter xem ở đây. Có thể search thêm.

 

Ở phần select filter chọn mtext. Xong apply quơ hết các bảng vào thôi

 

 

 

Nếu mình hiểu đúng ý thì đây là link lisp paste data từ excel sang cad.

Mình không có nhiều thời gian viết kỹ nên dùng tạm cái này nhé.

 

https://drive.google.com/file/d/0B-3fZ45DSr_XMzl0NGl1TjRFVTA/view?usp=sharing

 

 

 xem video thao tác 

 

https://youtu.be/Dhl7522jSNo

 

1.Select cell và copy.

2.Bên cad sau khi load lisp. Gõ lệnh PAS

3.Select hàng text (xem ảnh)

4.Xem thôi ^_^

Bạn có thể giúp mình áp dụng được cho text, mtext, text attributes được không

[pdhuyxn2 8]

Vào lúc 22/10/2016 tại 23:57, Bee đã nói:

Filter xem ở đây. Có thể search thêm.

 

Ở phần select filter chọn mtext. Xong apply quơ hết các bảng vào thôi

 

 

 

Nếu mình hiểu đúng ý thì đây là link lisp paste data từ excel sang cad.

Mình không có nhiều thời gian viết kỹ nên dùng tạm cái này nhé.

 

https://drive.google.com/file/d/0B-3fZ45DSr_XMzl0NGl1TjRFVTA/view?usp=sharing

 

 

 xem video thao tác 

 

https://youtu.be/Dhl7522jSNo

 

1.Select cell và copy.

2.Bên cad sau khi load lisp. Gõ lệnh PAS

3.Select hàng text (xem ảnh)

4.Xem thôi ^_^

Bác có thế Chỉnh Sửa LISP Copy từ EXCEL hàng Dọc PAS sang CAD hàng ngang được không A?

Nhờ Các Bác trên Diễn Đàn Giúp đỡ. Cám ơn các Bác nhiều ạ...

[Bee 154]

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

Bác có thế Chỉnh Sửa LISP Copy từ EXCEL hàng Dọc PAS sang CAD hàng ngang được không A?

Nhờ Các Bác trên Diễn Đàn Giúp đỡ. Cám ơn các Bác nhiều ạ...

Chỉnh thì chỉnh được, hơi mất công thêm chút. Bạn gửi chút phí mình ngồi cafe rồi chỉnh cho ^_^

 

[Bee 154]

Vào lúc 16/1/2021 tại 08:47, pdhuyxn2 đã nói:

Gửi Bạn Như VD trên . Giúp Mình Nhé Thank You!

VD.dwg

VD.rar

 

Done. Close topic nhé. :D

[huyenle 2]

Vào lúc 15/1/2021 tại 10:51, Bee đã nói:

Chỉnh thì chỉnh được, hơi mất công thêm chút. Bạn gửi chút phí mình ngồi cafe rồi chỉnh cho ^_^

 

Anh ơi nếu đùng được cả hai phương để coppy cả bảng thì chi phí thế nào ạ

[Bee 154]

Vào lúc 17/7/2021 tại 01:32, huyenle đã nói:

Anh ơi nếu đùng được cả hai phương để coppy cả bảng thì chi phí thế nào ạ

Done lisp nhé Chiến.

Close nhé/

^_^

 

Bee

[huyenle 2]

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

Done lisp nhé Chiến.

Close nhé/

^_^

 

Bee

Ok anh :D