[求助]：请教各位：有没有程序可对多个尺寸标注的数值求和。

ywx0576

如果有程序可对多个尺寸标注的数值求和，那么判断“多个分尺寸数值之和是否等于总尺寸”就方便多了。

snsj

最初由 ywx0576 发布
[B]如果有程序可对多个尺寸标注的数值求和，那么判断“多个分尺寸数值之和是否等于总尺寸”就方便多了。 [/B]

2. 
   
3. ;;;标注求和
   
4. ;;;标注求和
   
5. (defun c:qbz (/ ss kk i zjz shz ent)
   
6. (setq ss (ssget '((0 . "DIMENSION"))) i 0  kk nil)
   
7. (repeat (sslength ss)
   
8.   (setq ent (entget(ssname ss i)))
   
9.   (setq shz(cdr(assoc 1 ent)))
   
10.   (cond ((/= shz "")(setq zjz (atof shz)))
    
11.    (t (setq zjz (cdr(assoc 42 ent))))
    
12.     )  
    
13.   (setq kk  (cons zjz kk))
    
14.         (setq i (1+ i))
    
15.         )
    
16.   (princ "\n******所选标注和为")(princ (apply '+ kk))(princ "******")
    
17.   (princ)
    
18.   )
    
19. 
    

<br /> ;;;标注求和<br /> ;;;标注求和<br /> (defun c:qbz (/ ss kk i zjz shz ent)<br /> (setq ss (ssget '((0 . "DIMENSION"))) i 0  kk nil)<br /> (repeat (sslength ss)<br />   (setq ent (entget(ssname ss i)))<br />   (setq shz(cdr(assoc 1 ent)))<br />   (cond ((/= shz "")(setq zjz (atof shz)))<br />    (t (setq zjz (cdr(assoc 42 ent))))<br />     )  <br />   (setq kk  (cons zjz kk))<br />         (setq i (1+ i))<br />         )<br />   (princ "\n******所选标注和为")(princ (apply '+ kk))(princ "******")<br />   (princ)<br />   )<br /> <br />

coolzhb

我常用李国杰的asde，里面的求和很好用！

chj_china

coolzhb 帅哥，你怎么不发上来，要我们去哪里找？