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

yuun

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

(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)
)
这是我编的不行的程序，请高手帮我看看出了什么问题。谢谢

P.M.F.

(setq new_rr(list "16-" old_nn))
把这句改成(setq new_rr(strcat "16-" old_nn))试试

qjcpj

(defun c:gb        (/ en en_data old_name_list new_name_list)
        (setvar "cmdecho" 0)
        (setq en (entsel "选取件号"))
        (setq en_data (entget (car en)))
        (setq old_name_list (assoc 1 en_data))
        (setq new_name_list (cons 1 (strcat "16-" (cdr old_name_list))))
        (setq en_data (subst new_name_list old_name_list en_data))
        (entmod en_data)
        (princ)
)

fish710605

命令：DE