[求助]：那位高手帮我修改一下啊?????

82406515

我的这个计算长度的东东有一个很大的缺陷,望高手帮忙.我是做平面图的,有时一个图会由几百条线构成,我一旦计算完长度要回退的话,它就要退几百下,太麻烦了,现在想高手改到一旦量完后,我用回退就可以回到没量的时候.

zxq0220

2. 
   
3. ;;;ca.lsp 计算长度
   
4. (defun c:ca (/ os sum i ss en)
   
5.   (setq os (getvar "osmode"))
   
6.   (COMMAND ".UNDO" "BE")
   
7.   (setvar "osmode" 0)
   
8.   (setq    sum 0
   
9.     i -1
   
10.   )
    
11.   (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
    
12.   (repeat (sslength ss)
    
13.     (setq en (ssname ss (setq i (1+ i))))
    
14.     (command "lengthen" en "")
    
15.     (setq sum (+ sum (getvar "perimeter")))
    
16.   )
    
17.   (COMMAND ".UNDO" "E")
    
18.   (setvar "osmode" os)
    
19.   sum
    
20. )
    

<br /> ;;;ca.lsp 计算长度<br /> (defun c:ca (/ os sum i ss en) <br />   (setq os (getvar "osmode"))<br />   (COMMAND ".UNDO" "BE")<br />   (setvar "osmode" 0)<br />   (setq    sum 0<br />     i -1<br />   ) <br />   (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) <br />   (repeat (sslength ss) <br />     (setq en (ssname ss (setq i (1+ i)))) <br />     (command "lengthen" en "") <br />     (setq sum (+ sum (getvar "perimeter"))) <br />   )<br />   (COMMAND ".UNDO" "E")<br />   (setvar "osmode" os) <br />   sum <br /> )<br />

82406515

楼上的谢了