[LISP程序]：那位大侠帮小弟看一看我的lisp语句错在哪里

mrlgliang

小弟编了一个小程序，用来将数字文本进行+、*运算并替换掉旧文本，可程序运行有错啊，哪位大侠救救我。

(defun c:WBYS()
;;批量修改文本。
(prompt "\n选择需要修改的文本")
(setq ss (ssget))

(setq ss1 (ssadd))                 ;对选择集进行筛选，选择其中的text或mtext
(setq n (sslength ss))
(setq k 0)
(repeat n
    (if (or (= "TEXT" (cdr (assoc 0 (entget (ssname ss k))))) (= "MTEXT" (cdr (assoc 0 (entget (ssname ss k))))) )
      (progn
        (setq a (ssname ss k))
        (ssadd a ss1)
      )
    )
  (setq k (+ k 1))
)

(setq c (getstring "\n请选择要执行的操作（+ 加法；* 乘法）\n"))
(setq shuzi (getreal "\n请输入运算数\n"))

(setq k 0)
( if(= c "*")
  (progn
    (
     (repeat (sslength ss1)
       (setq namet (ssname ss1 k))
       (setq elt (entget namet))
         (SETQ temp (atof (cdr (assoc 1 elt))))
         (setq temp1 (* temp shuzi))
         (setq temp (rtos temp1 3))
         (setq elt (subst (cons 1 temp) (assoc 1 elt) elt ))
         (entmod elt)
        )
    )
   )
)

( if(= c "+")
  (progn
    (
     (repeat (sslength ss1)
       (setq namet (ssname ss1 k))
       (setq elt (entget namet))
         (SETQ temp (atof (cdr (assoc 1 elt))))
         (setq temp1 (+ temp shuzi))
         (setq temp (rtos temp1 3))
         (setq elt (subst (cons 1 temp) (assoc 1 elt) elt ))
         (entmod elt)
        )
    )
   )
)
      

)

cy956

2. 
   
3. (defun c:WBYS ()
   
4.   ;;批量修改文本。
   
5.   (prompt "\n选择需要修改的文本")
   
6.   (setq ss (ssget '((0 . "TEXT,MTEXT")));;;----------------繁
   
7.         c (getstring "\n请选择要执行的操作（+ 加法；* 乘法）\n")
   
8.         shuzi (getreal "\n请输入运算数\n");;;----应该加缺省
   
9.         k 0)
   
10.   (if (= c "*");;;---------------progn没必要，再(错
    
11.        (repeat (sslength ss)
    
12.          (setq namet (ssname ss k) k(1+ k);;;------------漏
    
13.                elt (entget namet))
    
14.          (SETQ temp (atof (cdr (assoc 1 elt))))
    
15.          (setq temp1 (* temp shuzi))
    
16.          (setq temp (rtos temp1 2 3));;;------------错
    
17.          (setq elt (subst (cons 1 temp) (assoc 1 elt) elt))
    
18.          (entmod elt)
    
19.        )
    
20.   )
    
21. 
    
22.   (if (= c "+");;;以下自己改
    
23.     (progn
    
24.        (repeat (sslength ss)
    
25.          (setq namet (ssname ss k))
    
26.          (setq elt (entget namet))
    
27.          (SETQ temp (atof (cdr (assoc 1 elt))))
    
28.          (setq temp1 (+ temp shuzi))
    
29.          (setq temp (rtos temp1 3))
    
30.          (setq elt (subst (cons 1 temp) (assoc 1 elt) elt))
    
31.          (entmod elt)
    
32.        )
    
33.     )
    
34.   )
    
35. 
    
36. 
    
37. )

<br /> (defun c:WBYS ()<br />   ;;批量修改文本。<br />   (prompt "\n选择需要修改的文本")<br />   (setq ss (ssget '((0 . "TEXT,MTEXT")));;;----------------繁<br />         c (getstring "\n请选择要执行的操作（+ 加法；* 乘法）\n")<br />         shuzi (getreal "\n请输入运算数\n");;;----应该加缺省<br />         k 0)<br />   (if (= c "*");;;---------------progn没必要，再(错<br />        (repeat (sslength ss)<br />          (setq namet (ssname ss k) k(1+ k);;;------------漏<br />                elt (entget namet))<br />          (SETQ temp (atof (cdr (assoc 1 elt))))<br />          (setq temp1 (* temp shuzi))<br />          (setq temp (rtos temp1 2 3));;;------------错<br />          (setq elt (subst (cons 1 temp) (assoc 1 elt) elt))<br />          (entmod elt)<br />        )<br />   )<br /> <br />   (if (= c "+");;;以下自己改<br />     (progn<br />        (repeat (sslength ss)<br />          (setq namet (ssname ss k))<br />          (setq elt (entget namet))<br />          (SETQ temp (atof (cdr (assoc 1 elt))))<br />          (setq temp1 (+ temp shuzi))<br />          (setq temp (rtos temp1 3))<br />          (setq elt (subst (cons 1 temp) (assoc 1 elt) elt))<br />          (entmod elt)<br />        )<br />     )<br />   )<br /> <br /> <br /> )