Chuyển đến nội dung
Diễn đàn CADViet
Duong Nhat Duy

Lisp Chuyển Text từ CAD sang Excel

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

Gửi đến các bạn 1 lisp chuyển đổi Text từ AutoCAD sang Excel. Vì không phải là 1 vấn đề gì đó quá mới mẻ nên mình sẽ viết với mục tiêu là dễ sử dụng và có tính thích nghi cao, ứng dụng cho nhiều yêu cầu đề bài phức tạp.

 

Công dụng

- Chuyển Text, Mtext từ AutoCAD sang Excel:

   + Dữ liệu đầu vào: Text và Mtext (lưu ý lisp sẽ căn cứ vị trí text theo Điểm Căn lề-Text Alignment)

   + Dữ liệu đầu ra: Nội dung của các text trên được paste sang Excel (file excel hiện hành hoặc tạo mới), dữ liệu được paste theo nhiều hàng cột, hoặc 1 hàng/cột theo tùy chọn của người dùng

- Chuyển Table từ AutoCAD sang Excel (không bị lỗi dấu tiếng Việt)

   + Dữ liệu đầu vào: 1 hoặc nhiều Table

   + Dữ liệu đầu ra: 1 hoặc nhiều Sheet trong 1 file Excel tạo mới

 

Tên lệnh:

   TTE - Chuyển Text, Mtext từ AutoCAD sang Excel

   TBE - Chuyển Table từ AutoCAD sang Excel

 

TTE - Chuyển Text, Mtext từ AutoCAD sang Excel

- Chuyển Text sang Excel theo hàng cột

TTE_1.gif.240dfdad71668c7868cb64b2de0bce1a.gif

 

- Trường hợp Text đầu vào không thẳng hàng tuyệt đối, hoặc bảng có những ô trống, lisp vẫn có thể hiểu được, khi đó cần nhập sai số khoảng cách hàng/cột. Lưu ý: nhập vừa đủ vì nếu nhập quá nhỏ thì các text hơi lệch nhau sẽ bị hiểu là nằm trên các hàng/cột khác nhau; nếu nhập quá lớn, lisp sẽ hiểu 2 hàng/cột sát nhau là 1.

TTE_2.gif.463d6cd3de4c845189ca8f15500c1fa3.gif

 

- Chuyển Text sang Excel theo 1 hàng hoặc 1 cột, theo thứ tự người dùng tùy chọn, ví dụ: trên>dưới, trái>phải, theo chiều Pline, theo thứ tự pick chọn.

TTE_3.gif.b22e5191e87d1ae006c9db13d6bf9905.gif

 

TBE - Chuyển Table từ AutoCAD sang Excel

- Dữ liệu đầu vào: 1 hoặc nhiều Table

- Dữ liệu đầu ra: 1 hoặc nhiều Sheet trong 1 file Excel tạo mới

- Lưu ý: trước khi dùng lệnh phải cài biến LISPSYS về 1

 

Link download

https://drive.google.com/drive/u/1/folders/1cgAEdSnXy4s48-0PP8XTTtDfWJNlanVR

 

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

  • Like 2
  • Vote tăng 2

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

Cả 2 bạn đều có cách hay, nhưng code này hay nè. Dùng lisp thống kê Block của tác giả tạo bảng danh mục, rồi explode, rồi dùng lisp này cũng của tác giả xuất sang excel không bị lỗi font Unicode.

  • 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

Lisp rất hay. Nhưng bị gò bó đối tượng. Mình mong bạn @Duong Nhat Duy có thể mở rộng thêm đối tượng là Table, ATT -> để kết hợp dc lisp Thống kê của bạn Duy -> sang excel rất tiện lợi.
Mình xin gửi 1 lisp chuyên xử lý table->excel (mình không nhớ tác giả) ngắn gọn nhưng hiệu quả -> để các bạn tham khảo. Mong lắm update của bạn Duy.
PS do mình ko rành lisp nên phải nhờ các bạn chuyên chứ ko phải là mình lười :(

table to excel.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
10 giờ trước, vostro 1500 đã nói:

Lisp rất hay. Nhưng bị gò bó đối tượng. Mình mong bạn @Duong Nhat Duy có thể mở rộng thêm đối tượng là Table, ATT -> để kết hợp dc lisp Thống kê của bạn Duy -> sang excel rất tiện lợi.
Mình xin gửi 1 lisp chuyên xử lý table->excel (mình không nhớ tác giả) ngắn gọn nhưng hiệu quả -> để các bạn tham khảo. Mong lắm update của bạn Duy.
PS do mình ko rành lisp nên phải nhờ các bạn chuyên chứ ko phải là mình lười :(

table to excel.lsp

Đã là Table rồi thì Export sang Excel thôi bạn cần gì lisp nữa ?? Còn về thông kê Block, Att, tạo bảng cad cũng như excel thì mình có 1 lisp khác viết riêng cho vấn đề này rồi nhé !

https://www.cadviet.com/forum/index.php?app=forums&module=forums&controller=topic&id=208603

  • 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
Vào lúc 20/3/2025 tại 23:00, amateurday đã nói:

Cả 2 bạn đều có cách hay, nhưng code này hay nè. Dùng lisp thống kê Block của tác giả tạo bảng danh mục, rồi explode, rồi dùng lisp này cũng của tác giả xuất sang excel không bị lỗi font Unicode.

Hình như chưa hỗ trợ unicode thì phải???

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

Đã là Table rồi thì Export sang Excel thôi bạn cần gì lisp nữa ?? Còn về thông kê Block, Att, tạo bảng cad cũng như excel thì mình có 1 lisp khác viết riêng cho vấn đề này rồi nhé !

https://www.cadviet.com/forum/index.php?app=forums&module=forums&controller=topic&id=208603

Vấn đề là Table sử dụng unicode.

  • 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
38 phút trước, NTHAHT đã nói:

Hình như chưa hỗ trợ unicode thì phải???

Vấn đề là Table sử dụng unicode.

Unicode xuất bình thường như hình GIF mà bạn.

Còn về vấn đề table sang excel chắc mình sẽ chế thêm 1 lệnh khác.

  • 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
2 giờ trước, Duong Nhat Duy đã nói:

Unicode xuất bình thường như hình GIF mà bạn.

Còn về vấn đề table sang excel chắc mình sẽ chế thêm 1 lệnh khác.

À, phải để lispsys = 1, mới xuất được unicode không lỗi. Như vậy cad nào có lispsys mới dùng tốt, hình như là từ cad2021 về sau thì phả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
2 giờ trước, NTHAHT đã nói:

À, phải để lispsys = 1, mới xuất được unicode không lỗi. Như vậy cad nào có lispsys mới dùng tốt, hình như là từ cad2021 về sau thì phải???

Thì cài cad đời cao thôi bạn :). Hay bạn có cách nào khác bày giúp mình với, thanks bạn nha !

 

16 giờ trước, vostro 1500 đã nói:

Lisp rất hay. Nhưng bị gò bó đối tượng. Mình mong bạn @Duong Nhat Duy có thể mở rộng thêm đối tượng là Table, ATT -> để kết hợp dc lisp Thống kê của bạn Duy -> sang excel rất tiện lợi.
Mình xin gửi 1 lisp chuyên xử lý table->excel (mình không nhớ tác giả) ngắn gọn nhưng hiệu quả -> để các bạn tham khảo. Mong lắm update của bạn Duy.
PS do mình ko rành lisp nên phải nhờ các bạn chuyên chứ ko phải là mình lười :(

table to excel.lsp

Mình đã cập nhật thêm lệnh TBE rồi nhé, bạn xem lại trên đầu topic và down lại trong link nhé !

  • Like 1
  • Vote tăng 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

Vậy là giờ dùng Unicode toàn bộ bản vẽ được rồi. Trước giờ tớ toàn bị vướng cái Datatraction từ cad sang excel chữ Unicode toàn dấu ?

 

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

Table sử dụng unicode

 

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

lệnh TBE

 

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
17 giờ trước, Duong Nhat Duy đã nói:

Thì cài cad đời cao thôi bạn :). Hay bạn có cách nào khác bày giúp mình với, thanks bạn nha !

 

Mình đã cập nhật thêm lệnh TBE rồi nhé, bạn xem lại trên đầu topic và down lại trong link nhé !

Mình rất cảm kích về sự nhiệt tình và vì sự tiến lên cộng đồng CADVIET. Tuyệt vời! 

Nhân tiện các bạn cao thủ CAD cho mình hỏi chút: hình như cad2007 ko có lệnh lispsys -> khi chuyển sang excel luôn thành ký tự lạ thì phải. Có cách nào khắc phục việc này cho CAD đời tháp 2007 khong các bạn?

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ào lúc 24/3/2025 tại 15:19, Duong Nhat Duy đã nói:

Thì cài cad đời cao thôi bạn :). Hay bạn có cách nào khác bày giúp mình với, thanks bạn nha !

 

Mình đã cập nhật thêm lệnh TBE rồi nhé, bạn xem lại trên đầu topic và down lại trong link nhé !

 

Cám ơn đã share lisp.

TBE: Với option "Dùng cho Sheet Excel hiện hành" hiểu là 1 file excel đang mở, và sheet đang có focus. Mình đang dùng Office 365, thì không thấy có dữ liệu chuyển từ CAD sang.

Còn option "Tạo file excel mới" thì ok, tự chạy excel và lấy data sang.

Có 1 vấn đề nữa: tạo bảng thống kê bằng lisp của Duy, ATK. Xong TBE bảng đó sang Excel thì cái Table Title đang ở chế độ merge cell thì sang excel mất merge. "Danh mục bản vẽ" bay về ô A1.

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 giờ trước, Zoi đã nói:

 

Cám ơn đã share lisp.

TBE: Với option "Dùng cho Sheet Excel hiện hành" hiểu là 1 file excel đang mở, và sheet đang có focus. Mình đang dùng Office 365, thì không thấy có dữ liệu chuyển từ CAD sang.

Còn option "Tạo file excel mới" thì ok, tự chạy excel và lấy data sang.

Có 1 vấn đề nữa: tạo bảng thống kê bằng lisp của Duy, ATK. Xong TBE bảng đó sang Excel thì cái Table Title đang ở chế độ merge cell thì sang excel mất merge. "Danh mục bản vẽ" bay về ô A1.

- Lỗi xuất file excel hiện hành có thể do máy nên bạn chịu khó dùng option còn lại nhé.

- Hiện tại lisp của mình chỉ đơn giản là xuất nội dung Text bên trong bảng thôi, vấn đề về merge cell có thể mình sẽ nghiên cứu sau.

  • 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
Vào lúc 13/4/2025 tại 21:24, Zoi đã nói:

Cám ơn đã share lisp.

TBE: Với option "Dùng cho Sheet Excel hiện hành" hiểu là 1 file excel đang mở, và sheet đang có focus. Mình đang dùng Office 365, thì không thấy có dữ liệu chuyển từ CAD sang.

Còn option "Tạo file excel mới" thì ok, tự chạy excel và lấy data sang.

Có 1 vấn đề nữa: tạo bảng thống kê bằng lisp của Duy, ATK. Xong TBE bảng đó sang Excel thì cái Table Title đang ở chế độ merge cell thì sang excel mất merge. "Danh mục bản vẽ" bay về ô A1.

Lỗi xuất file excel hiện hành mình đã tìm ra và fix lại rồi nhé, bạn down lại trong link gg là được.

  • 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

CA

Vào lúc 20/3/2025 tại 13:49, Duong Nhat Duy đã nói:

Gửi đến các bạn 1 lisp chuyển đổi Text từ AutoCAD sang Excel. Vì không phải là 1 vấn đề gì đó quá mới mẻ nên mình sẽ viết với mục tiêu là dễ sử dụng và có tính thích nghi cao, ứng dụng cho nhiều yêu cầu đề bài phức tạp.

 

Công dụng

- Chuyển Text, Mtext từ AutoCAD sang Excel:

   + Dữ liệu đầu vào: Text và Mtext (lưu ý lisp sẽ căn cứ vị trí text theo Điểm Căn lề-Text Alignment)

   + Dữ liệu đầu ra: Nội dung của các text trên được paste sang Excel (file excel hiện hành hoặc tạo mới), dữ liệu được paste theo nhiều hàng cột, hoặc 1 hàng/cột theo tùy chọn của người dùng

- Chuyển Table từ AutoCAD sang Excel (không bị lỗi dấu tiếng Việt)

   + Dữ liệu đầu vào: 1 hoặc nhiều Table

   + Dữ liệu đầu ra: 1 hoặc nhiều Sheet trong 1 file Excel tạo mới

 

Tên lệnh:

   TTE - Chuyển Text, Mtext từ AutoCAD sang Excel

   TBE - Chuyển Table từ AutoCAD sang Excel

 

TTE - Chuyển Text, Mtext từ AutoCAD sang Excel

- Chuyển Text sang Excel theo hàng cột

TTE_1.gif.240dfdad71668c7868cb64b2de0bce1a.gif

 

- Trường hợp Text đầu vào không thẳng hàng tuyệt đối, hoặc bảng có những ô trống, lisp vẫn có thể hiểu được, khi đó cần nhập sai số khoảng cách hàng/cột. Lưu ý: nhập vừa đủ vì nếu nhập quá nhỏ thì các text hơi lệch nhau sẽ bị hiểu là nằm trên các hàng/cột khác nhau; nếu nhập quá lớn, lisp sẽ hiểu 2 hàng/cột sát nhau là 1.

TTE_2.gif.463d6cd3de4c845189ca8f15500c1fa3.gif

 

- Chuyển Text sang Excel theo 1 hàng hoặc 1 cột, theo thứ tự người dùng tùy chọn, ví dụ: trên>dưới, trái>phải, theo chiều Pline, theo thứ tự pick chọn.

TTE_3.gif.b22e5191e87d1ae006c9db13d6bf9905.gif

 

TBE - Chuyển Table từ AutoCAD sang Excel

- Dữ liệu đầu vào: 1 hoặc nhiều Table

- Dữ liệu đầu ra: 1 hoặc nhiều Sheet trong 1 file Excel tạo mới

- Lưu ý: trước khi dùng lệnh phải cài biến LISPSYS về 1

 

Link download

https://drive.google.com/drive/u/1/folders/1cgAEdSnXy4s48-0PP8XTTtDfWJNlanVR

 

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

cảm ơn bạn đã share lips.. cho minh hỏi Lips này có giới hạn dòng không vậy
- Vì mình dùng TBE và TTE thì Text name chỉ chạy tới dòng 31/50 là dừng trong khi STT và Số lượng vẫn là  50/50

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 giờ trước, chuong123 đã nói:

CA

cảm ơn bạn đã share lips.. cho minh hỏi Lips này có giới hạn dòng không vậy
- Vì mình dùng TBE và TTE thì Text name chỉ chạy tới dòng 31/50 là dừng trong khi STT và Số lượng vẫn là  50/50

Có thể nó lỗi giữa chừng, bạn thao tác lại rồi ấn F2 chụp hình, và gửi file mình kiểm tra 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
12 giờ trước, Duong Nhat Duy đã nói:

Có thể nó lỗi giữa chừng, bạn thao tác lại rồi ấn F2 chụp hình, và gửi file mình kiểm tra nhé !

Đây bạn.

image.thumb.png.123efa99468058bc64a4f0ad1ddffaa1.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 giờ trước, Duong Nhat Duy đã nói:

Mình xuất cả 2 bảng trong file bình thường bạn nhé, chắc do máy bạn lỗi cad hoặc 1 số lỗi không xác định rồi.

mình cũng ko rõ.. lỗi cái nó không cập nhật nội dung thôi
-- nhưng cũng chân thành cảm ơn bạn.

 

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

×