Caro Paulo Castro,
Envio em anexo o ficheiro AutoLISP modificado.
A "chave" estava nas linhas
...
(setq TXTOTAL (strcat "A=" (rtos ARSTOTAL 2 LUPRC) "m2"))
...
(setq TXSTOTAL (strcat "A=" (rtos ARSTOTAL 2 LUPRC) "m2"))
...
Espero que esteja bem, apenas fiz alguns ensaios.
Até breve.