[求助]：怎樣才可把輸出的TEXT在做計算呢?

xyz518mm

很想了解在TEXT輸出後的文字該怎樣才能作計算
因為在之前的這問題中
發現雖然輸出了文字
但不知道該在哪加上計算
使其面積可以做轉換

因為對LISP不是很了解
希望各位高手可以解答一下
謝謝

之前的文章
http://www.xdcad.net/forum/showthread.php?s=&threadid=408688


個人在想是否要在這段中加上計算
(progn
(setq nr 0)
(setq tot_area 0.0)
(setq en (ssname ss1 nr))
(while en
(command "._area" "_O" en)
(setq tot_area (+ tot_area (getvar "area")))
(setq nr (1+ nr))
(setq en (ssname ss1 nr))
)
(princ "\nTotal Area = ")
(princ tot_area)
)

但又不知道對不對
因為好像面積的變數只有  area
那 tot_area 這文字變數可以在做計算嗎?

期待高手們的回答