[求助]：谁能编一个这样的求面积的工具??

zqw_zhang

急需一个求面积的工具,就是同时选多个封闭曲线，可以直接求出它们的面积和的工具，那位大侠帮帮忙做一个啊

zxq0220

2. 
   
3. (DEFUN C:SUMAREA ()
   
4. (SETVAR "CMDECHO" 0)
   
5. (COMMAND ".UNDO" "BE")
   
6. (IF (SETQ SS (SSGET '((0 . "*POLYLINE") (70 . 1)))) (PROGN
   
7.   (SETQ I -1 SUM 0.0)
   
8.   (REPEAT (SSLENGTH SS)
   
9.    (SETQ EN (SSNAME SS (SETQ I (1+ I))))
   
10.    (COMMAND "AREA" "E" EN)
    
11.    (SETQ SUM (+ (GETVAR "AREA") SUM))
    
12.   )
    
13.   (PRINC "\nTotal Area = ")
    
14.   (PRINC SUM)
    
15. ))
    
16. (COMMAND ".UNDO" "E")
    
17. (SETVAR "CMDECHO" 1)
    
18. (PRINC)
    
19. )
    

<br /> (DEFUN C:SUMAREA ()<br /> (SETVAR "CMDECHO" 0)<br /> (COMMAND ".UNDO" "BE")<br /> (IF (SETQ SS (SSGET '((0 . "*POLYLINE") (70 . 1)))) (PROGN<br />   (SETQ I -1 SUM 0.0)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ EN (SSNAME SS (SETQ I (1+ I))))<br />    (COMMAND "AREA" "E" EN)<br />    (SETQ SUM (+ (GETVAR "AREA") SUM))<br />   )<br />   (PRINC "\nTotal Area = ")<br />   (PRINC SUM)<br /> ))<br /> (COMMAND ".UNDO" "E")<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />