Alberto: Tenes varias manera de crear una polilinea y hallar el area,la mas sencilla seria
(command "_.pline" p1 p2 p3 p4 ....pn "c")
;;;p1 p2..son los vertices de la polilinea
;;; "c" le dice que sea cerrada
(command "area" "e" (entlast))
(setq ar (getvar "area"))
;;; la variable ar almacena el area de
;;polilinea
(setq strAr (rtos ar 2 2))
;;; Convierto el area a string
(command "_.text" ptxt htxt rot strAr)
;; Escribe el texto del area en el
;; punto ptxt , con la altura htxt,
;; rotacion rot
Espero que te sea de utilidad
Cualquier duda escribime a mi mail
[email protected]