Nhờ Viết Lisp Lọc Giá Trị Dimension, Prefix Và Suffix Của Dim

[luongtienlanh 2]

Công việc của em đang làm là Quy hoạch mạng lưới thoát nước mưa. Trong đó các thông số của cống em sử dụng Dimension như trong file Autocad đính kèm. Đại khái các Dimension của em sẽ gồm Prefix (tiết diện cống) + giá trị Dim (Chiều dài) + Suffix (độ dốc). 

Giờ em muốn lập bảng excel thống kê Tổng chiều dài của từng loại cống. Em định lọc giá trị tiết diện cống và chiều dài (hoặc tổng chiều dài) tương ứng.

Các bác có thể giúp em viết lisp để xử lý bài toán này không ạ?

Hoặc là có thể xuất tổng giá trị các Dim của 1 loại Dim Style cũng được ạ.

Em không biết gì về Lisp cả nên phải đi nhờ em cũng ngại lắm.

Rất mong được các bác giúp đỡ. Em cám ơn nhiều ạ!

http://www.cadviet.com/upfiles/7/124491_kl_tnm_2.dwg

(Cấu trúc Dim của em thế này ạ)

[Đỗ Huy Tùng 0]

Gửi các bác cao nhân !

 em muốn tính diện tích của vùng hatch mà không tài nào tính được, nhờ các bác xem giúp e bản vẽ bên dưới với, nếu không được thì các bác có thể chỉ em vẽ lại cách nào đó để tính đc diện tích một cách nhanh nhất. Em kiến thức nghề còn yếu kém nên có gì hỏi ngu mong các bác thông cảm. Em cảm ơn các bác !http://www.cadviet.com/upfiles/7/162254_tinh_dien_tich_hatch.dwg

[quansla 259]

Công việc của em đang làm là Quy hoạch mạng lưới thoát nước mưa. Trong đó các thông số của cống em sử dụng Dimension như trong file Autocad đính kèm. Đại khái các Dimension của em sẽ gồm Prefix (tiết diện cống) + giá trị Dim (Chiều dài) + Suffix (độ dốc). 

Giờ em muốn lập bảng excel thống kê Tổng chiều dài của từng loại cống. Em định lọc giá trị tiết diện cống và chiều dài (hoặc tổng chiều dài) tương ứng.

Các bác có thể giúp em viết lisp để xử lý bài toán này không ạ?

Hoặc là có thể xuất tổng giá trị các Dim của 1 loại Dim Style cũng được ạ.

Em không biết gì về Lisp cả nên phải đi nhờ em cũng ngại lắm.

Rất mong được các bác giúp đỡ. Em cám ơn nhiều ạ!

http://www.cadviet.com/upfiles/7/124491_kl_tnm_2.dwg

(Cấu trúc Dim của em thế này ạ)

Bạn cho kết quả ra thế nào đi, làm được nhưng cách chọn lọc kết quả như thế nào chứ, hay cứ xuất tạm ra excel rồi dùng lọc có sẵn trong Excel nhé

[luongtienlanh 2]

Bạn cho kết quả ra thế nào đi, làm được nhưng cách chọn lọc kết quả như thế nào chứ, hay cứ xuất tạm ra excel rồi dùng lọc có sẵn trong Excel nhé

Cám ơn bác đã quan tâm. Kết quả em muốn dạng như sau hoặc tương tự ạ:

[dinhvantrang 151]

Gửi bạn nhé.

https://drive.google.com/file/d/0B143PJiW5hQbZ2R6MTRWbThBMHM/view?usp=sharing

 

Ở cột ID (cột A) bajn double Click vào để Zoom tới cái Dim đó khi cần kiểm tra. Mình lấy các thông tin ra cho bạn như, Prefix, Length, Suffix, Dimstyle. Hy vọng đúng như bạn cần.

[luongtienlanh 2]

Gửi bạn nhé.

https://drive.google.com/file/d/0B143PJiW5hQbZ2R6MTRWbThBMHM/view?usp=sharing

 

Ở cột ID (cột A) bajn double Click vào để Zoom tới cái Dim đó khi cần kiểm tra. Mình lấy các thông tin ra cho bạn như, Prefix, Length, Suffix, Dimstyle. Hy vọng đúng như bạn cần.

Cám ơn bác rất nhiều.

Bác xử lý còn tuyệt vời trên cả mức em mong đợi.

Chúc bác nhiều sức khỏe và công tác tốt! 

[ketxu 2988]

Tại sao các yêu cầu này k làm Data Extraction nhỉ ^^
Mà ketxu thấy bác Dinhvantrang chưa set focus lại Excel và CAD sau khi export và Click double, chưa đặt Cancel = True trong action Doubclick, đúng k nhỉ :D

[luongtienlanh 2]

Tại sao các yêu cầu này k làm Data Extraction nhỉ ^^

Mà ketxu thấy bác Dinhvantrang chưa set focus lại Excel và CAD sau khi export và Click double, chưa đặt Cancel = True trong action Doubclick, đúng k nhỉ :D

Em thử dùng lệnh DataExtraction trong cad lọc mà nó không có phần tích lọc giá trị của Dim bác ạ.

Với em thì cách làm của bac Dinhvantrang là đủ dùng rồi nhưng bác ketxu có phương án nào tối ưu hơn để em tham khảo không ạ?

[dinhvantrang 151]

Tại sao các yêu cầu này k làm Data Extraction nhỉ ^^

Mà ketxu thấy bác Dinhvantrang chưa set focus lại Excel và CAD sau khi export và Click double, chưa đặt Cancel = True trong action Doubclick, đúng k nhỉ :D

Cảm ơn Ketxu đã góp ý, mình cũng không để ý đến tham số Cancel trong sự kiện Double Click, nhờ đây mới vỡ lẽ ra.

[dinhvantrang 151]

Cám ơn bác rất nhiều.

Bác xử lý còn tuyệt vời trên cả mức em mong đợi.

Chúc bác nhiều sức khỏe và công tác tốt! 

Đã Fix lỗi như mr Ketxu góp ý, bạn tải về dùng nhé

[ketxu 2988]

Em thử dùng lệnh DataExtraction trong cad lọc mà nó không có phần tích lọc giá trị của Dim bác ạ.

Với em thì cách làm của bac Dinhvantrang là đủ dùng rồi nhưng bác ketxu có phương án nào tối ưu hơn để em tham khảo không ạ?

Bác dinhvantrang làm cho bạn tốt lắm rồi :) Mình cũng sẽ học mót được vài thứ ^^

[luongtienlanh 2]

Đã Fix lỗi như mr Ketxu góp ý, bạn tải về dùng nhé

Cám ơn bác! Vẫn tải theo link cũ à bác?

[dinhvantrang 151]

Cám ơn bác! Vẫn tải theo link cũ à bác?

Yep man!

[vancd 0]

Vào lúc 15/8/2017 tại 06:07, dinhvantrang đã nói:

Gửi bạn nhé.

https://drive.google.com/file/d/0B143PJiW5hQbZ2R6MTRWbThBMHM/view?usp=sharing

 

Ở cột ID (cột A) bajn double Click vào để Zoom tới cái Dim đó khi cần kiểm tra. Mình lấy các thông tin ra cho bạn như, Prefix, Length, Suffix, Dimstyle. Hy vọng đúng như bạn cần.

Em đang cần Lisp như bác thớt này, ko biết bác còn lưu lại không cho em xin đường link mới với, hình như link này die rùi ko truy cập được. Cảm ơn nhiều,

[vuanhq 0]

Vào lúc 15/8/2017 tại 19:28, dinhvantrang đã nói:

Đã Fix lỗi như mr Ketxu góp ý, bạn tải về dùng nhé

Bác ơi, em có thể xin lại lips này ko ạ. Đường dẫn trên bị lỗi rồi. Em cảm ơn ạ.