[ Nhờ chỉnh sửa ] lisp thống kê thép

[batitus 2]

Nhờ cccm trên diễn đàn chỉnh lại lisp THKL (lisp thống kê khối lượng thép), sau khi đánh lệnh thkl, quét trọn đối tượng là các block att, tuy nhiên khi xuất khối lượng thì lại chỉ tổng được kết quả của block M1, Nhờ CCCM sửa lại giúp em THKL ra được kết quả tổng của các block khác.

thkl (2).lsp

Thong ke.dwg

[batitus 2]

Mong các bác xem giúp..

[NTHAHT 84]

Xử lý tạm:

Bạn tìm dòng này: 

( (= (vla-get-TagString att) idTag)
  (setq id (vla-get-TextString att)) )

Sửa lại thành:

((or (= (vla-get-TagString att) idTag)(= (vla-get-TagString att) "14")) (setq id (vla-get-TextString att)))

[batitus 2]

Cảm ơn bác nhiều. Lisp chạy ok rồi, nhưng nếu được bác có thể sửa để khi chạy ra tổng hợp thép ra 3 loai <10, 10<<18 và loại >18. được ko?

thkl sua.lsp

[nguyenvodangminh 0]

Vào lúc 6/11/2019 tại 11:03, batitus đã nói:

Nhờ cccm trên diễn đàn chỉnh lại lisp THKL (lisp thống kê khối lượng thép), sau khi đánh lệnh thkl, quét trọn đối tượng là các block att, tuy nhiên khi xuất khối lượng thì lại chỉ tổng được kết quả của block M1, Nhờ CCCM sửa lại giúp em THKL ra được kết quả tổng của các block khác.

thkl (2).lsp

Thong ke.dwg

làm bằng cái này đi

autolisp2003.rar