Hi QuanNguyen. Your code is not what i am looking for.I want to update the code in post 1 to analytic calculate area and support trapezoid.THe code in post 1 insert text with analytic calculation not just a text.

Hi SPirou4D. This code select close polylines rectangles and triangrles and insert calculate the area, and insert text with analytic calculation of this areas. I want to add in this code to calculate the area of trapezoid, with the type E = 1/2 x (a+b) x h . Can any one help?

Thanks

Any ideas?

Hi, I am using this lisp for analytic calculation areas in architectonic drawings. Is it possible to update the code to support trapezoid area ? E = 1/2 x (a+b) x h (defun c:areacal ( / js nb ent dxf_ent ptlst surf n AcDoc Space old_textsize count app_txt cum_area pt_ins val_txt lst_bis l_4d max_d p...