Các pro giúp e! LISP Tính tổng dim và paste giá trị vào block attribute

[vinhpy 0]

Dạ e chào ae trong diễn đàn, như tiêu đề e cần tính tổng các dim và sau đó paste giá trị vào block attribute, e bấm bằng máy tính và nhập tay oải quá nên mới nhờ mấy nhờ mấy ae giúp đỡ, cảm ơn ae đã xem bài ạ!

[Danh Cong 422]

Lisp tính tổng dim có nhiều rồi. Giờ có mỗi việc nhập tay thôi thì sao phải xoắn.. ^^. Giảm 90% thao tác rồi đấy. Bạn tìm trên diễn đàn là ra.

[vinhpy 0]

Vâng cảm ơn bác đã quan tâm, đúng là trên diễn đàn đã có rất nhiều rồi à, e đang bóc khối lượng thép mà số lượng khủng quá nên nhiều lúc nhập tay buồn ngủ đánh nhầm là toi bác ạ. Nên em mới mạo muội tạo thread này dù biết lặp lại các bài trước có gì thông cảm ạ!

[dinhvantrang 151]

9 giờ trước, vinhpy đã nói:

Dạ e chào ae trong diễn đàn, như tiêu đề e cần tính tổng các dim và sau đó paste giá trị vào block attribute, e bấm bằng máy tính và nhập tay oải quá nên mới nhờ mấy nhờ mấy ae giúp đỡ, cảm ơn ae đã xem bài ạ!

 

Nếu đã code rồi thì còn mất công paste làm gì nữa. 

Chỉ cần chọn các Dim cần tính tổng -> chọn Block (với tên Attributes đã xác định) rồi gán giá trị vào thôi.

 

[vinhpy 0]

@dinhvantrang anh ơi em có lisp đính kèm bên dưới thôi ạ, nó hiện rồi mình tự đánh chứ không pick vào attribute được, anh có lisp như anh nói không ạ? nếu có cho e xin với ạ, cảm ơn a nhiều ạ!

cong chieu dai line (TT).lsp

[duy782006 1.551]

Mô phật. Yêu cầu Tổng dim xong đưa cái lisp tổng chiều dài cuối cùng ưng sao.

[huunhantvxdts 195]

1 giờ trước, vinhpy đã nói:

@dinhvantrang anh ơi em có lisp đính kèm bên dưới thôi ạ, nó hiện rồi mình tự đánh chứ không pick vào attribute được, anh có lisp như anh nói không ạ? nếu có cho e xin với ạ, cảm ơn a nhiều ạ!

cong chieu dai line (TT).lsp

Cái này cần phải có file cad để biết tag của block là gì???

[quocmanh04tt 635]

22 phút trước, huunhantvxdts đã nói:

Cái này cần phải có file cad để biết tag của block là gì???

Dùng nentsel.

[dinhvantrang 151]

15 phút trước, quocmanh04tt đã nói:

Dùng nentsel.

 

Yes bác Quốc Mạnh, đã uống dc cafe của đồng chí này.

em giải quyết bằng VBA, tính tổng Dim rồi Pick Attributes để gán.

[huunhantvxdts 195]

40 phút trước, quocmanh04tt đã nói:

Dùng nentsel.

Làm thử cái xem sao

(Defun c:cdthep(/ oldos s dtltc thongtin giatricu giatrimoi)
(setq oldos (getvar "OSMODE")) 
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq dtltc (car (entsel "\nChon doi tuong pline.")))
(Command "area" "o" dtltc)
(setq s (getvar "PERIMETER"))
(setq thongtin (entget (car (nentsel "\nChon text trong block can thay the."))))
(setq giatricu (assoc 1 thongtin))
(setq giatrimoi (cons 1 (rtos s 2 2)))
(setq thongtin (subst giatrimoi giatricu thongtin))
(entmod thongtin)
(setvar "osmode" oldos)
(princ)
)

 

[vinhpy 0]

Tks mấy anh! vấn đề của e được giải quyết rồi ạ!