[编程求助]：为文字加前缀后缀怎么编写lisp（高手指点，不胜感谢）

yuun

在改图中遇到需要加前缀后缀的情况，如件号“1”要变成“15-1”之类，一个一个改很烦，想用程序改，可是总是通不过。请高手多多指点，帮帮忙，先谢过了.*-*4

(defun c:gb(/ en en_data e older new)
  (setvar "cmdecho" 0)
(setq en(entsel "选取件号"))
(setq en_data(entget (car en)))
   (setq old_name_list(assoc 1 en_data))
   (setq old_nn(cdr old_name_list))
   (setq new_rr(list "16-" old_nn))
   (setq new_name_list(cons 1 new_rr))
   (setq en_data (subst new_name_list old_name_list  en_data))
   (entmod en_data)

(prin1)
)
这是我编的不行的程序，请高手帮我看看出了什么问题。谢谢*-*4

qrs

2. 
   
3.   [FONT=courier new]
   
4. (defun c:gb(/ en en_data e older new)
   
5.   (setvar "cmdecho" 0)
   
6.   (SETQ BASE (GETstring "前缀:"))
   
7.   (setq en (ssget))
   
8.   (setq n 0)
   
9.   (while (setq enn (ssname en n))
   
10.       (setq en_data (entget enn))
    
11.      (setq old_name_list(assoc 1 en_data))
    
12.      (setq old_nn (cdr old_name_list))
    
13.      (setq new_rr (strcat base old_nn))
    
14.      (setq new_name_list(cons 1 new_rr))
    
15.      (setq en_data (subst new_name_list old_name_list en_data))
    
16.      (entmod en_data)
    
17.      (setq n (1+ n))
    
18.   )
    
19. (prin1)
    
20. )
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:gb(/ en en_data e older new)<br />   (setvar "cmdecho" 0)<br />   (SETQ BASE (GETstring "前缀:"))<br />   (setq en (ssget))<br />   (setq n 0)<br />   (while (setq enn (ssname en n))<br />       (setq en_data (entget enn))<br />      (setq old_name_list(assoc 1 en_data))<br />      (setq old_nn (cdr old_name_list))<br />      (setq new_rr (strcat base old_nn))<br />      (setq new_name_list(cons 1 new_rr))<br />      (setq en_data (subst new_name_list old_name_list en_data))<br />      (entmod en_data)<br />      (setq n (1+ n))<br />   )<br /> (prin1)<br /> )<br />   [/FONT]<br />

yuun

谢谢，非常感谢。我的错误是将"LIST"改成"STRCAT"
就可以了。
不过2楼的程序更好，谢谢了。

zhaoyafei19

我也需要着方面的知识
谢谢了