曲面算面积，怎么能提高执行效率。。

取个长点勒名字

自己写了一个关于算曲面面积的lisp。但是执行时间很长。应该是调用command "explode"比较耗时。
请大神们看看怎么能让它执行得更快。

1. (defun 3pt_mj (pt1 pt2 pt3  / a b c p s);三点求面积
   
2.   (if (/= pt1 pt2 pt3)
   
3.     (progn
   
4.       (setq a (distance pt1 pt2))
   
5.       (setq b (distance pt1 pt3))
   
6.       (setq c (distance pt2 pt3))
   
7.       ;海伦公式求面积
   
8.       (setq p (/(+ a b c)2))
   
9.       (setq s (abs(sqrt(* p (- p a)(- p b)(- p c)))))
   
10.     )
    
11.     (alert "\n有重合的点。请核对。")
    
12.   )
    
13.   s  
    
14. )
    
15. (defun C:tt (/ ent entity i mj mj1 ptlst ss tymj)
    
16.   (setvar "cmdecho" 0)
    
17.   (setq ss (ssget '((0 . "ACAD_PROXY_ENTITY"))))  
    
18.   (setq i 0 MJ 0 tymj 0)  
    
19.   (repeat (sslength ss)
    
20.     (command "UNDO" "be")
    
21.     (setq ent (cdr(assoc -1 (entget(ssname ss i)))))
    
22.     (setq Entity (entlast))
    
23.     (command "explode" ss)
    
24.     (setq ptlst nil)
    
25.     (while
    
26.       (setq Entity (entnext Entity))
    
27.       (setq ent (entget Entity))
    
28.       (setq ptlst (append ptlst (list(cdr(assoc 10 ent)))))
    
29.     )
    
30.     ;====算面积=======
    
31.     (setq mj1 (3pt_mj (car ptlst)(cadr ptlst)(caddr ptlst)))  
    
32.     (setq MJ (+ MJ mj1))        
    
33.     (setq i (1+ i))
    
34.     (command "undo" "e" "undo" "1")      
    
35.   )
    
36.   (alert (strcat "\n所选取图像面积为：" (rtos (/ MJ 1000000)2 3)"平方米。"  ))   
    
37.   (setvar "cmdecho" 1)
    
38.   (princ)
    
39. )

(defun 3pt_mj (pt1 pt2 pt3  / a b c p s);三点求面积<br />   (if (/= pt1 pt2 pt3)<br />     (progn<br />       (setq a (distance pt1 pt2))<br />       (setq b (distance pt1 pt3))<br />       (setq c (distance pt2 pt3))<br />       ;海伦公式求面积<br />       (setq p (/(+ a b c)2))<br />       (setq s (abs(sqrt(* p (- p a)(- p b)(- p c)))))<br />     )<br />     (alert "\n有重合的点。请核对。")<br />   )<br />   s  <br /> )<br /> (defun C:tt (/ ent entity i mj mj1 ptlst ss tymj)<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget '((0 . "ACAD_PROXY_ENTITY"))))  <br />   (setq i 0 MJ 0 tymj 0)  <br />   (repeat (sslength ss)<br />     (command "UNDO" "be")<br />     (setq ent (cdr(assoc -1 (entget(ssname ss i)))))<br />     (setq Entity (entlast))<br />     (command "explode" ss)<br />     (setq ptlst nil)<br />     (while<br />       (setq Entity (entnext Entity))<br />       (setq ent (entget Entity))<br />       (setq ptlst (append ptlst (list(cdr(assoc 10 ent)))))<br />     )<br />     ;====算面积=======<br />     (setq mj1 (3pt_mj (car ptlst)(cadr ptlst)(caddr ptlst)))  <br />     (setq MJ (+ MJ mj1))        <br />     (setq i (1+ i))<br />     (command "undo" "e" "undo" "1")      <br />   )<br />   (alert (strcat "\n所选取图像面积为：" (rtos (/ MJ 1000000)2 3)"平方米。"  ))    <br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

该贴已经同步到 取个长点勒名字的微博