Đến nội dung


Hình ảnh
* * * * * 1 Bình chọn

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


  • Please log in to reply
7 replies to this topic

#1 bm21v2011

bm21v2011

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 22 October 2016 - 05:27 PM

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

https://drive.google...Z1dIaWVrbUFsXzg

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!

 


  • 0

#2 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 22 October 2016 - 09:18 PM

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!


  • 0

#3 bm21v2011

bm21v2011

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 22 October 2016 - 09:36 PM

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é!


  • 0

#4 bm21v2011

bm21v2011

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 22 October 2016 - 09:43 PM

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


  • -1

#5 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 22 October 2016 - 09:49 PM

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


  • 0

#6 bm21v2011

bm21v2011

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 22 October 2016 - 10:11 PM

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.


  • 0

#7 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 22 October 2016 - 11:57 PM

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...iew?usp=sharing

 

Untitledf94db.png
 
 xem video thao tác 
 
 
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 ^_^


  • 1

#8 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 23 October 2016 - 09:49 AM

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...iew?usp=sharing

 

Untitledf94db.png
 
 xem video thao tác 
 
 
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ỉ ^_^


  • 0