[求助]：程序功能实现不了，高手帮忙看下

eobser

(defun c:calt ()   
   (setq ent_s (ssget "x" (list (cons 0 "TEXT") (cons 8 "gcd"))))
   (setq ent_n (sslength ent_s))   
   (setq ent_j (getreal "\n输入数值[+/-]:"))
   (setq i 0)
   (repeat ent_n
    (  (setq ent_m (ssname ent_s i))
       (setq ent_i (entget ent_m))      
       (setq ent_x (atof (cdr (assoc 1 ent_i))))            
       (setq ent_xx (+ ent_x ent_j))      
       (setq ent_i (subst (cons 1 (itoa ent_xx)) (cons 1 (itoa ent_x)) ent_i))
       (entmod ent_i)
       (setq i (1+ i))
     )
   )   
   
   (princ)
)
；我想对选择的对象(text)进行简单计算（+ -）
结构程序调不出来 高手帮我看下 谢谢！
估计是这段有点错误
(setq ent_i (subst (cons 1 (itoa ent_xx)) (cons 1 (itoa ent_x)) ent_i))

似水无痕

1、程序中多了一组括号(repeat ent_n (－这个括号  (setq ent_m (ssname ent_s i))中括号应该省去，下面相对应的括号也应该省去。
2、itoa函数是“将整数转换成字符串”，因你上边用到getreal函数，所以后边应该用rtoa函数。
更改后代码如下：

2. (defun c:calt ()
   
3.   (setq ent_s (ssget "x" (list (cons 0 "TEXT") (cons 8 "gcd"))))
   
4.   (setq ent_n (sslength ent_s))
   
5.   (setq ent_j (getreal "\n输入数值[+/-]:"))
   
6.   (setq i 0)
   
7.   (repeat ent_n
   
8.     (setq ent_m (ssname ent_s i))
   
9.     (setq ent_i (entget ent_m))
   
10.     (setq ent_x (atof (cdr (assoc 1 ent_i))))
    
11.     (setq ent_xx (+ ent_x ent_j))
    
12.     (setq ent_i
    
13.            (subst (cons 1 (rtos ent_xx)) (assoc 1 ent_i) ent_i)
    
14.     )
    
15.     (entmod ent_i)
    
16.     (setq i (1+ i))
    
17. 
    
18.   )
    
19. 
    
20.   (princ)
    
21. )

(defun c:calt ()<br />   (setq ent_s (ssget "x" (list (cons 0 "TEXT") (cons 8 "gcd"))))<br />   (setq ent_n (sslength ent_s))<br />   (setq ent_j (getreal "\n输入数值[+/-]:"))<br />   (setq i 0)<br />   (repeat ent_n<br />     (setq ent_m (ssname ent_s i))<br />     (setq ent_i (entget ent_m))<br />     (setq ent_x (atof (cdr (assoc 1 ent_i))))<br />     (setq ent_xx (+ ent_x ent_j))<br />     (setq ent_i<br />            (subst (cons 1 (rtos ent_xx)) (assoc 1 ent_i) ent_i)<br />     )<br />     (entmod ent_i)<br />     (setq i (1+ i))<br /> <br />   )<br /> <br />   (princ)<br /> )

eobser

谢谢
回去试试
有问题再请教下