Góp ý: với các code khá dài, bạn nên cho nó vào hộp codebox để bài viết gọn gàng (mình đã làm giúp bạn như trên)

Chương trình này rất hay, tập hợp một loạt functions để làm việc với excel bằng lisp.
Công dụng các functions:
- getexcel: 3 đối số là file_name, sheet_name và max_range. Return: list dữ liệu...

Góp ý: với các code khá dài, bạn nên cho nó vào hộp codebox để bài viết gọn gàng (mình đã làm giúp bạn như trên)

Chương trình này rất hay, tập hợp một loạt functions để làm việc với excel bằng lisp.
Công dụng các functions:
- getexcel: 3 đối số là file_name, sheet_name và max_range. Return: list dữ liệu từ cell A1 đến cell ứng với max_range
- getcell: lấy dữ liệu tại 1 cell, được chỉ định bằng địa chỉ cell
- openexcel: mở file *.xls có trên đĩa
- putcell: gán giá trị cho cell
- closeexcel: đóng file *xls đã open ở trên
Để hiểu rõ hơn, bạn ghép thêm vào code có sẵn của bạn đoạn sau:


Tạo 1 file *.xls, ghi ở sheet1 các số liệu tuỳ ý, khoảng chừng 4 cột, 6 hàng. Save và thoát hẳn excel
Gõ lần lượt các lệnh từ VD1 đến VD5:
- VD1: lấy dữ liệu trong sheet1, từ cell A1 đến cell D5 của file mà bạn chỉ định và chuyển thành list. Bạn bấm F2 sau khi chạy xong sẽ thấy
- VD2: lấy dữ liệu ở cell B3
- VD3: mở file, tạo sheet mới có tên sheet4
- Vẫn để Excel hiện hành, quay lại Acad gõ VD4 -> Cell B10 sẽ được gán nội dung "How" và cell C10 là "are you?"
- VD5: save và thoát Excel

Thông suốt được những cái trên đây thì những functions còn lại không thành vấn đề. Chúng chỉ là những tiện ích hỗ trợ thêm (bạn đọc comments và examples của họ sẽ hiểu)
Khi đã nắm được toàn bộ, bạn sẽ giải quyết được vấn đề đã nêu ở topic "Ghi dữ liệu từ Cad sang file Excel đã có".

Chào Phiphi
Bạn sử dụng code này thử xem sao :

Hướng dẫn sử dụng
1.Gõ lệnh Rnf (rename files) -> Chon 1 file .dwg trong folder mà bạn cần đặt tên. Cụ thể là chọn 1 file bất kì trong folder Test Attribute trên máy tính của bạn
2. Gõ tên file cần thay thế. Chú ý * là kí tự đại diện
123456-001-X-01.dwg...

Chào Phiphi
Bạn sử dụng code này thử xem sao :

Hướng dẫn sử dụng
1.Gõ lệnh Rnf (rename files) -> Chon 1 file .dwg trong folder mà bạn cần đặt tên. Cụ thể là chọn 1 file bất kì trong folder Test Attribute trên máy tính của bạn
2. Gõ tên file cần thay thế. Chú ý * là kí tự đại diện
123456-001-X-01.dwg -> phải được thay bằng 123456-00* (cái này giống với ý của Phi phi đã post là 12345-001-X-XX.dwg

Command: rnf

Ten Ban ve can thay < 123456-001-X-01.dwg > : 123456-00*

Ban ve : 123456-001-X-01.dwg da duoc thay thanh ban ve : 123456-001.dwg
Ban ve : 123456-002-A-03.dwg da duoc thay thanh ban ve : 123456-002.dwg
Ban ve : 123456-003-B-04.dwg da duoc thay thanh ban ve : 123456-003.dwg
Ban ve : 123456-004-C-02.dwg da duoc thay thanh ban ve : 123456-004.dwg
Ban ve : 123456-005-D-06.dwg da duoc thay thanh ban ve : 123456-005.dwg

-> Toàn bộ bản vẽ được thay rồi.
Thế là vui nhé.

@Nguyễn hữu vượng : Bạn viết bài như vậy thì Tue_NV chẳng hiểu ý bạn gì cả. Muốn giúp cho bạn mà nhưng chẳng được. Bạn vui lòng mô tả cụ thể hơn, bằng file .dwg rồi upload lên diễn đàn. Bạn muốn nối các điểm đó thành lưới tam giác??? Các điểm nào ??? Nối như...

@Nguyễn hữu vượng : Bạn viết bài như vậy thì Tue_NV chẳng hiểu ý bạn gì cả. Muốn giúp cho bạn mà nhưng chẳng được. Bạn vui lòng mô tả cụ thể hơn, bằng file .dwg rồi upload lên diễn đàn. Bạn muốn nối các điểm đó thành lưới tam giác??? Các điểm nào ??? Nối như thế nào????

Đây là đoạn Lisp của bác ssg, mình có chỉnh lại một chút cho phù hợp với yêu cầu thứ nhất của bạn.
Riêng yêu cầu 2 trong bản vẽ bạn ghi : thực hiện lệnh, chọn đối tuong cần đo và nếu không
chọn text để gán kết quả thì Enter và pick 1 điểm trên màn hình để xuất...

Đây là đoạn Lisp của bác ssg, mình có chỉnh lại một chút cho phù hợp với yêu cầu thứ nhất của bạn.
Riêng yêu cầu 2 trong bản vẽ bạn ghi : thực hiện lệnh, chọn đối tuong cần đo và nếu không
chọn text để gán kết quả thì Enter và pick 1 điểm trên màn hình để xuất kết quả bằng số theo style text hiện thời.
Kết quả bằng số là kết quả gì vậy bạn ? bạn hãy nói rõ.

Chào bạn Thaistreetz,

Bạn dùng thử cái này nha:

Ghi kích thước chiều dài của các đường line, polyline, arc .... theo Scale factor hiện hành lên bản vẽ.



Đoạn lisp này mình chỉnh sửa lại từ cái lisp của bác SSG và bác Tue_nv do mình nghĩ có thể bác Tue_NV hiểu nhầm ý bạn. Bạn...

Chào bạn Thaistreetz,

Bạn dùng thử cái này nha:

Ghi kích thước chiều dài của các đường line, polyline, arc .... theo Scale factor hiện hành lên bản vẽ.



Đoạn lisp này mình chỉnh sửa lại từ cái lisp của bác SSG và bác Tue_nv do mình nghĩ có thể bác Tue_NV hiểu nhầm ý bạn. Bạn muốn lấy các độ dài của từng đoạn chứ không phải lấy tổng độ dài, vả lại bạn cũng muốn kết quả ghi theo tỷ lệ của dimstyle hiện tại chứ không phải là kết quả đo được nữa. Ở lisp này mình cũng để bạn chọn phương án nhap kết quả , nhưng bạn lưu ý là khi lisp hỏi bạn chỉ cần gõ 1 hoặc enter là đủ bạn nhé. Bạn xài thử xem nhé. Nếu có gì trục trặc xin báo lại vì mình cũng chưa kiểm nghiệm nó do chưa có thời gian bạn ạ. Thực ra mình cũng chưa ưng ý với lisp này do nếu như bạn chọn khá nhiều đối tượng thì việc nhớ được trật tự khi lựa chọn đối tượng không hề dễ. Theo ý mình thì nên mỗi lần chỉ chọn một đối tượng và sau khi chạy xong thi lisp sẽ hỏi bạn có muốn tiếp tục hay không, nếu có thì chọn đối tượng tiếp, còn nếu không thì kết thúc sẽ thuận lợi cho việc chỉnh sửa trên bản vẽ của bạn hơn.

Không biết bạn nghĩ sao, nếu bạn đồng ý mình sẽ cải tạo lại đoạn lisp trên bạn nhé.

Chúc bạn vui.



@ Bác Tue_NV: Mạn phép bác sửa lại chút xíu cái lisp của bác cho gần với yêu cầu của bạn Thaistreetz hơn. Mong bác không giận.

Gửi các bác hàm ghi 1 danh sách (list) ra file Excel.
Yêu cầu : phải có MS Excel đã cài đặt trên hệ thống.

Cú pháp : (WriteToExcel pt_lst)
trong đó : pt_lst là 1 danh sách (list) .
Giá trị trả về (nếu thành công) là toàn bộ danh sách đuợc ghi ra file Excel.

Data bắt đầu ghi tại Sheet1, cell C3, hai dòng-cột đầu dành cho...

Gửi các bác hàm ghi 1 danh sách (list) ra file Excel.
Yêu cầu : phải có MS Excel đã cài đặt trên hệ thống.

Cú pháp : (WriteToExcel pt_lst)
trong đó : pt_lst là 1 danh sách (list) .
Giá trị trả về (nếu thành công) là toàn bộ danh sách đuợc ghi ra file Excel.

Data bắt đầu ghi tại Sheet1, cell C3, hai dòng-cột đầu dành cho các bác tùy nghi xử lí.
Lisp sẽ tạo 1 file Excel mới, các bác tùy nghi save với tên file mong muốn.

Ví dụ minh họa : Xuất tọa độ PLINE ra file Excel.

Lấy ý tưởng từ bài viết ánh xạ text của bác NguyenHoanh và lisp ánh xạ text của anh Giabach. Mình vận dụng để viết một lisp để có thể tính toán trên các ánh xạ text này. Hy vọng nó sẽ giúp cho các bạn trong công việc:


-Lệnh LL (link length): để link giá trị chiều dài của 1 đối tượng vào...

Lấy ý tưởng từ bài viết ánh xạ text của bác NguyenHoanh và lisp ánh xạ text của anh Giabach. Mình vận dụng để viết một lisp để có thể tính toán trên các ánh xạ text này. Hy vọng nó sẽ giúp cho các bạn trong công việc:


-Lệnh LL (link length): để link giá trị chiều dài của 1 đối tượng vào text (khi chiều dài đối tượng thay đổi thì giá trị text thay đổi theo)
-Lệnh LGT (link giá trị): để link giá trị của 1 text này cho text khác (khi giá trị text nguồn thay đổi thì giá trị text đích tự cập nhật theo)
-Lệnh LC (link cộng): Pick chọn các số lần lượt sau đó chọn text kết quả thì sẽ tính tổng các giá trị đó (một trong các giá trị nguồn thay đổi thì giá trị tổng thay đổi theo)
-Lệnh LN (link nhân ): Pick chọn các số lần lượt sau đó chọn text kết quả thì sẽ tính tích các giá trị đó (một trong các giá trị nguồn thay đổi thì giá trị tích thay đổi theo)
-Lệnh LH (link hiệu): Quét chọn text số bị trừ, quét chọn số trừ, chọn text giá trị hiệu (một trong các giá trị nguồn thay đổi thì giá trị hiệu thay đổi theo)
-Lệnh L/ (link chia): Quét chọn text số bị chia, quét chọn số chia, chọn text giá trị thương (một trong các giá trị nguồn thay đổi thì giá trị thương thay đổi theo)
-Lệnh LMH (link multi hàng): Tính toán cho nhiều hàng text. Chọn phép tính, chọn cột 1, cột 2...sau đó chọn cột giá trị (trong này có hệ số nhân để tiện khi đổi đơn vị trong lập bảng thống kê)


Đây là file lisp: lisp tính toán với link
Đây là file .vlx đã được biên dịch: tính toán với link

Xin phép bác Nacata sắp xếp lại code để việc hiển thị trang viết được thuận tiện hơn cho người đọc.

Chào các bạn
Nhân đọc bài Ánh xạ giá trị đối tượng text, nguồn đổi giá trị, đích bị sửa của bác Hoành,
xin gửi các bạn LISP : Ánh xạ giá trị đối tượng gồm
1 . LinkT : Ánh xạ giá trị Text
2 . LinkA : Ánh xạ giá trị Diện tích
chú ý : khi sửa giá trị ở đối...

Chào các bạn
Nhân đọc bài Ánh xạ giá trị đối tượng text, nguồn đổi giá trị, đích bị sửa của bác Hoành,
xin gửi các bạn LISP : Ánh xạ giá trị đối tượng gồm
1 . LinkT : Ánh xạ giá trị Text
2 . LinkA : Ánh xạ giá trị Diện tích
chú ý : khi sửa giá trị ở đối tượng nguồn, đối tượng đích (text) chỉ update sau khi sử dụng lệnh REGEN, SAVE, PLOT, ...

thứ nhất là cái Hwase chắc mọi người biết hết rồi chú (18mb ) nên tôi kô post đuoc
cái thứ 2 chắc tôi tập hợp duc hét lên đây để anh em tham khảo và từ sử dụng nhe
mà nói trước là cái này tôi vừa ăn trộm , vua sưu tầm và vừa mày mở nên không hoàn chỉnh dau
mong các bro cho ý...

thứ nhất là cái Hwase chắc mọi người biết hết rồi chú (18mb ) nên tôi kô post đuoc
cái thứ 2 chắc tôi tập hợp duc hét lên đây để anh em tham khảo và từ sử dụng nhe
mà nói trước là cái này tôi vừa ăn trộm , vua sưu tầm và vừa mày mở nên không hoàn chỉnh dau
mong các bro cho ý kiến nhé

Cám ơn anh giabach.
Em đang viết và cố gắng hoàn thành xong code này để giúp cho bạn auduongphuc.
Có gì trở ngại mong anh gia bách và mọi người hỗ trợ thêm.
Chào anh. Chúc anh thật nhiều sức khoẻ.
-----------
Tue_NV đã hoàn thành xong code này
Bạn auduongphuc chạy thử xem :
Chỉ Có 2 yêu cầu nhỏ...

Cám ơn anh giabach.
Em đang viết và cố gắng hoàn thành xong code này để giúp cho bạn auduongphuc.
Có gì trở ngại mong anh gia bách và mọi người hỗ trợ thêm.
Chào anh. Chúc anh thật nhiều sức khoẻ.
-----------
Tue_NV đã hoàn thành xong code này
Bạn auduongphuc chạy thử xem :
Chỉ Có 2 yêu cầu nhỏ khi chạy code :
1. Lisp chấp nhận bất cứ Block cao độ nào miễn là Block đó có 1 Atrtibute và Block đó phải có trên CAD để mà ta Pick chon Block mau
2. Điểm chèn Block đó nên nằm ngay cos cao độ chèn
Mong bạn auduongphuc hiểu