[求助]：请高手修改一下

CCHH138

本程序是在网上下载的请高手修改一下，
所点的面积可以相加！

;选取封闭区区域内部点，显示该区域的面积
;V1.0
;By
;在acad.lsp中增加：(defun c:jsarea()(load"jsarea")(c:jsarea))

(defun c:Jsarea()

(setvar "cmdecho" 0)
        (setq pt (getpoint "\n请选取封闭区域内的一点(退出): "))
        (while pt
                (setvar "cecolor" "1")
                (command "bpoly" pt "")
                (setq en (entlast))
                (if (/= en nil)
                        (progn
                                (command "area" "o" en)
                                (setq aa (getvar "area"))
                                (redraw en 3)
                                (alert (strcat "面积=" (rtos aa 2)))
                        )  
                )
                (entdel en)
                (setvar "cecolor" "bylayer")
                (setq pt (getpoint "\n请选取封闭区域内的一点(退出): "))      
        )
        (prin1)
)

梦断江南

你是要学lsp还是要用?
如果要学,这么提问就不应该.你应该把你有什么不懂,不理解的说出来.
如果是要用,论坛上已经不少这样的程序,可以进行面积加减运算.你搜索一下,下载拿来用就得了.