[Yêu cầu] Lisp thống kê khối lượng vật liệu

[enix 3]

Hôm nay có xài thử qua bộ công cụ CADprofi có tính năng rất hay là Thống kê vật liệu - Bill of Marterials.
Tức là chỉ cần chọn mọi loại vật liệu rồi vẽ từ thanh công cụ, thì nó sẽ thống kê tất cả khối lượng vật liệu mình đã vẽ và xuất ra bảng.
Hiện nay CadViet có lisp BLKQTY của bác giabach có tính năng thống kê này, nhưng chỉ thống kê được block.
Em muốn nhờ mấy bác viết thêm 1 lisp để thống kê chiều dài các đường dây theo tên layer để thống kê dây điện, ống điện & ống nước chẳng hạn.
Ví dụ:
Em có các line, polyline vẽ theo layer:
Chieu sang, O cam, May lanh, Ong gas, Nuoc cap,...
Thì lisp sẽ tính được tổng các line theo mỗi loại layer là bao nhiêu m rồi xuất ra bảng:
Diễn giải -------------- Đơn vị tính ------------- Số lượng
Chieu sang ------------------ m --------------------- 5.71
O cam ----------------------- m -------------------- 18.92
Thanks mấy bác.

[ketxu 3004]

Dataextraction đã làm tốt việc này rồi bạn à

[Doan Van Ha 3210]

Ở đây có cái viết sẵn từ lâu:

http://www.cadviet.com/forum/index.php?showtopic=64022&pid=200006&st=0&&do=findComment&comment=200006