Lisp tính diện tích rồi tự ghi giá tri diện tích vào một đối tuợng text

[phuoc sinh 4]

Chào các bác!

E nhờ các bác trên diễn đàn viết thêm 1 đoạn đế sau khi pick điểm đo xong diện tích thi chỉ vào 1 đối tưọng text or mtext thì nó tự động thay thế giá trị diện tích vừa đo được vào text đó. E cảm ơn các bác rất nhiều.

http://www.cadviet.com/upfiles/3/tinh_dien_tich_ae_1.rar

[pfievxd 6]

Bạn ơi, cái này trên diễn đàn chắc có nhiều rồi, chịu khó search đi, khoảng tháng trước mình cũng hỏi 1 cầu tương tự bên "topic hỏi về lisp" , nếu bạn đã biết chút chút về autolisp rồi thì câu trả lời là thêm 1 cái function con này vào, chỉnh lại code của bạn 1 chút là ok :

;-------------------------------------------------------

(defun suatext ()

(setq ddd (entsel "\nChon text viet ket qua"))

(while

(or

(null ddd)

(and (/= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (/= "MTEXT" (cdr (assoc 0 (entget (car ddd)))))

)

)

(setq ddd (entsel "\nDoi tuong phai la TEXT hoac MTEXT! Chon lai"))

)

(setq DT (car ddd))

(setq DTM (entget DT))

(setq noidung noidungm)

(setq DTM (subst (cons 1 NOIDUNG) (assoc 1 DTM) DTM))

(entmod DTM)

(Princ))

;----------------------------------------------------------

Hehe, cái này là mượn hoa kính phật thui, chính xác là của bác Pham Quoc Duy viết cho mình

;