Sumar Areas con Sombreados

Buenos días colegas de Foro de acad.
Estoy armando un lisp con el comando ^C^CAREA A O
para sumar Areas de sombreados y lo quiero completar
con un texto la sumatoria de las Areas.
Desde ya gracias por los aportes al Foro.
Saludos Luis de Ctes Arg.

Hola a tod@s
Fijate si te sirve.

Código:

;; From https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/hatch-area-lisp/m-p/9743620#M404482
(vl-load-com)
(defun C:HA () (hatcharea))
(defun hatcharea ( / ss area i eo pt)
(setq
ss (ssget '((0 . "hatch")))
area 0
i 0
)
(cond
((and(and ss) (> (sslength ss) 0))
(repeat (sslength ss)
(setq eo (vlax-ename->vla-object (ssname ss i)))
(setq area (+ area (vlax-get eo 'Area)))
(setq i (+ i 1))
)
(while (not pt)(setq pt (getpoint "\nSeleccione punto para insertar texto >")))
(command "text" pt "" "" (strcat "Area = " (rtos area 2 2) " m2") "")
)
)
(princ)
)

Editado para agregar el (vl-load-com) y acomodar el código.

Gracias jademar por la pronta respuesta a la requisitoria.
Me sale un error : error: no function definition: VLAX-ENAME->VLA-OBJECT.
Pero lo que quiero es usar con el comando Area ya que se nota mejor el area que va sombreando cuando se seleccionan los sombreados seguiremos intentando el mismo.
Gracias por los Aportes al Tema.

Falto agregar: (vl-load-com);AutoCAD agrega al codigo

Siguiendo el tema realice lo siguiente:

Código:

(defun c:zz ()
(vl-load-com)
(command "osmode""0")
(setvar "cmdecho" 0);Controla si AutoCAD muestra solicitudes y entrada
(command "_.area" "_a" "_a" "_o" (ssget "_W"))
          
      (PRINC "\nIndicar Punto de Inserción del Texto:")
      (setq get (getpoint "\nIndicar Punto de Inserción del Texto:"))
      (vl-cmdf "_.TEXT" (list (+ (car get) 0.0) (cadr get)) "2" "0" (rtos (getvar "area") 2 2));Se Puede Modificar Altura del Texto(2.0)Rotación(0)Decimales(2)
      
(PRINC)
)

(prompt "\n*** nuevo comando zz definido ***")
(prin1)


Pero no realiza la parte de colocar el texto
Desde ya Gracias

Otra Opción con Dos Comandos:
1º) ^C^CArea A O Pause
2º) ^C^C(setq get (getpoint ))(vl-cmdf "_.TEXT" "_J" "C" (list (+ (car get) 0) (cadr get)) "0.8" "0" (rtos (getvar "area") 2 4))(setvar "cmdecho" 0)