[LISP函数]：如何将CAD每次算出的面积提取到excel文件里?

animal212

如何将CAD每次算出的面积提取到excel文件里?请教高手帮帮忙修改下面的lisp  ,不胜感激!
;面积计算
;haa.lsp(hatch area)
;version1.0 by huagqin
;-------------------------------------------------
(defun *error* (msg0)
(prin1)
)
;------------------------------------------------------------------
(defun c:haa()
(setq total 0)
(setq ss1 (ssget '((-4 . "<or")(0 . "polyline") (70 . 1) (-4 . "or>"))))
(if (= ss1 nil)  
(progn (prompt "\n没有选中任何物体!!!")  
(prin1))  
(progn (do_haa))
)  
(prin1)
)
;---------------------------------------------------------
(defun do_haa()
(setq n (sslength ss1))
(setq m 0)
(while (< m n)
(setq s1 (ssname ss1 m))
(command "area" "o" s1 )
(command save s1 to "E:\\1.txt")
(setq haa (getvar "area"))
(setq total (+ total haa))
(setq m (1+ m))
)
(setq total (rtos total 2 3))
(princ "\n 总面积为")
(princ total)
(princ)
)