[测试]：返回选择集中所有文本数值的总和

xukun990126

2. 
   
3. (defun total-text (ss / c total elist tmp)
   
4.   (setq c -1
   
5.         total 0
   
6.   )
   
7.   (repeat (sslength ss)
   
8.     (setq elist (entget (ssname ss (setq c (1+ c))))
   
9.           total (+ total (if (= (cdr (assoc 0 elist)) "DIMENSION")
   
10.                            (if (= (setq tmp (cdr (assoc 1 elist)))
    
11.                                   ""
    
12.                                )
    
13.                              (cdr (assoc 42 elist))
    
14.                              (atof tmp)
    
15.                            )
    
16.                            (atof (cdr (assoc 1 elist)))
    
17.                          )
    
18.                 )
    
19.     )
    
20.   )
    
21. )

<br /> (defun total-text (ss / c total elist tmp)<br />   (setq c -1<br />         total 0<br />   )<br />   (repeat (sslength ss)<br />     (setq elist (entget (ssname ss (setq c (1+ c))))<br />           total (+ total (if (= (cdr (assoc 0 elist)) "DIMENSION")<br />                            (if (= (setq tmp (cdr (assoc 1 elist)))<br />                                   ""<br />                                )<br />                              (cdr (assoc 42 elist))<br />                              (atof tmp)<br />                            )<br />                            (atof (cdr (assoc 1 elist)))<br />                          )<br />                 )<br />     )<br />   )<br /> )

lt_zzy

这是我编写的用来计算文本的和的LSP程序

2. 
   
3.   [FONT=courier new]
   
4. (defun c:add2()
   
5.   (setvar"cmdecho"0)
   
6.   (command "undo" "group")
   
7.   (princ"\n请选择要相加的数字:")
   
8.   (setq a (ssget '((0 . "TEXT"))))
   
9.   (setq na (sslength a))
   
10.   (princ"\n请选择要替换的数字:")
    
11.   (setq c1 (single_select  '((0 . "TEXT")) T))
    
12.   (setq number 0 result 0)
    
13.   (repeat na
    
14.     (setq a1 (ssname a number))         
    
15.     (setq a11 (entget a1))              
    
16.     (setq a11 (cdr (assoc 1 a11)))      
    
17.     (setq a11 (atof a11))               
    
18.     (setq result (+ result a11))        
    
19.     (setq number (1+ number))
    
20.   )
    
21.   (setvar "dimzin" 0)
    
22.   (setq result (rtos result 2 2))     
    
23.   (setq result (cons 1 result))      
    
24.   (setq c11 (entget c1))              
    
25.   (setq result (subst result (assoc 1 c11) c11))
    
26.   (entmod result)                     
    
27.   (command "undo" "end")
    
28.   (setvar"cmdecho"1)
    
29.   (princ)
    
30. )  [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:add2()<br />   (setvar"cmdecho"0)<br />   (command "undo" "group")<br />   (princ"\n请选择要相加的数字:")<br />   (setq a (ssget '((0 . "TEXT"))))<br />   (setq na (sslength a))<br />   (princ"\n请选择要替换的数字:")<br />   (setq c1 (single_select  '((0 . "TEXT")) T))<br />   (setq number 0 result 0)<br />   (repeat na<br />     (setq a1 (ssname a number))         <br />     (setq a11 (entget a1))              <br />     (setq a11 (cdr (assoc 1 a11)))      <br />     (setq a11 (atof a11))               <br />     (setq result (+ result a11))        <br />     (setq number (1+ number))<br />   )<br />   (setvar "dimzin" 0)<br />   (setq result (rtos result 2 2))     <br />   (setq result (cons 1 result))       <br />   (setq c11 (entget c1))              <br />   (setq result (subst result (assoc 1 c11) c11))<br />   (entmod result)                     <br />   (command "undo" "end")<br />   (setvar"cmdecho"1)<br />   (princ)<br /> )  [/FONT]<br />

eachy

应该增加判断字串是否为数字。

lt_zzy

如果串不是数字文本，它在转换的时候就是零。对相加没有意义。

aeo

最初由 lt_zzy 发布
[B]这是我编写的用来计算文本的和的LSP程序
[CODE]
  
(defun c:add2()
  (setvar"cmdecho"0)
  (command "undo" "group")
  (princ"\n请选择要相加的数字:")
  (setq a (ssget '((0 . "TEXT"... [/B]

single_select   ????