Please help me....calculate area and perimeter

[m4rdy]

I want to calculate area and perimeter with just typing text inside object boundary. The result is atttribute block (block name QTY.dwg). I had modified some lisp program (My_program.lsp). But i have some problem :
1. When text is outside of boundary, program halt.
2. Program run slowly if calculate more than 100 objects.
3. Insertion points of atts block some times different with texts.
Can anyone solve my problems.
Sorry for lack of my english.

[Bruno.Valsecchi]

For 1 and 2 with your exemple

change in (defun getarea):

(vl-cmdf "_.-Boundary" txt-posn "")
(if (entlast)
....
to
(setq e_last (entlast))
(vl-cmdf "_.-Boundary" "_advanced" "_boundary" "_new" (ssget "_X" '((0 . "LWPOLYLINE") (8 . "0"))) "" "" txt-posn "")
(if (eq e_last (entlast)) (setq e_last nil) (setq e_last (entlast)))
(if e_last
.....

and
(progn
(Alert "Boundary cannot created")
(quit)
)
to
(progn
(Alert "Boundary cannot created")
)

For 3 see OSMODE ?
don't forget ATTDIA & ATTREQ in your lisp