calculo de area de un poligono ( ayuda )

solicito ayuda al foro para corregir rutina que realiza calculo de area de poligonos ya sean lineas o polylinea, la genera con 2 decimales. con correcion a 3 decimales. este es el codigo
lo baje de un foro que no recuerdo. en la imagen de area se realizo en cad 2019. de antemano gracias saludos al foro.

;***** AREAT: coloca el valor de area de una entidad cerrada en un texto
(defun C:AREAT ( / a2 a3 a4 a5 punto)
(setq punto (getpoint "\nPunto interno:"))
(command "_bpoly" punto "")
(command "_AREA" "_e" "_last")
(command "_REDRAWALL")
;(setq a2 (+ 2.5 (* 100 (getvar "AREA"))))
;(setq a3 (/ (* 5.0 (fix (/ a2 5))) 100))
;(setq a4 (strcat (rtos a3 2 2) " m²"))
(setq a4 (strcat (rtos (getvar "AREA") 2 2) " m²"))
(setq a5 (strcat "P=" (rtos (getvar "PERIMETER") 2 2) "m"))
;(command "_ERASE" "_last" "")
(command "_TEXT" punto "" "0" a4)
)

tienes que cambiar esta linea

Código:

(setq a4 (strcat (rtos (getvar "AREA") 2 2) " m²"))

por esta otra

Código:

(setq a4 (strcat (rtos (getvar "AREA") 2 3) " m²"))

Además, en mi autocad 2017 tuve que cambiar esta línea

Código:

(command "_TEXT" punto "" "0" a4)

por esta otra

Código:

(command "_TEXT" punto "" a4)