excel Lisp Chuyển Text từ CAD sang Excel

[Duong Nhat Duy 463]

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

 

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

 

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

 

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

[tannguyen291 167]

Lisp hay đấy ông nhưng tôi chụp màn hình bắt chatgpt chuyển thành bảng ổn lắm :)

[amateurday 21]

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.

[vostro 1500 29]

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

[Duong Nhat Duy 463]

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

[Chuối CN 0]

Bác nào có lisp copy nhiều dim để paste ra excel dạng (dim1+dim2+dim3+...)

 

[NTHAHT 115]

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.

[Duong Nhat Duy 463]

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.

[NTHAHT 115]

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???

[Duong Nhat Duy 463]

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

[amateurday 21]

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

 

[vostro 1500 29]

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?

[NTHAHT 115]

 

[Zoi 36]

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.

[Duong Nhat Duy 463]

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.

[Duong Nhat Duy 463]

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.

[chuong123 0]

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

 

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

 

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

 

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

[Duong Nhat Duy 463]

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

[chuong123 0]

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.

[Duong Nhat Duy 463]

10 giờ trước, chuong123 đã nói:

Đây bạn.

Bạn gửi file lên đây mình kiểm tra nhé.

[chuong123 0]

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

Bạn gửi file lên đây mình kiểm tra nhé.

Nhờ bác xem giúp..

Texttoexcel.rar

[Duong Nhat Duy 463]

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

Nhờ bác xem giúp..

Texttoexcel.rar

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.

[chuong123 0]

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.

 

[hoành 1]

xuất ngược lại từ excel sang cad nữa thì hay quá ạ.