[求助]如何修改后,实现批量修改文本

qiiqii

这个是我自己写的一段“换文字”的lisp

想实现批量修改，怎么写？意思就是，第一次单选一个文本 → 再批量选择需要替换的文本 → 删除第一个文本→结束

只知道下面的entsel 要修改为要该为批量选择（ssget？），再有循环，怎么写就不知道了，求高手帮我!

(defun c:HWZ()
(setq en (entsel "选新文字(删除)："))
(setq en_data (entget (car en)))
(setq en_text_list (assoc 1 en_data))
(setq text (cdr en_text_list))
(princ "\n新文字：")(princ text)

(setq eo (entsel "选旧文字(保留)："))
(setq eo_data (entget (car eo)))
(setq texto_list (assoc 1 eo_data))
(princ "  旧文字：")(princ (cdr texto_list))
(setq new_text_list (cons 1 text))
(setq eo_data (subst new_text_list texto_list eo_data))

(entmod eo_data)
(vl-cmdf "erase" en "")
)

Andyhon

3. (defun c:HWZ()
4.    (setq en (entsel "选新文字(删除)："))
5.    (setq en_data (entget (car en)))
6.    (setq en_text_list (assoc 1 en_data))
7.    (setq text (cdr en_text_list))
8.    (princ "\n新文字：")(princ text)
9.    
10.    (princ "\n 选旧文字(保留)：")
11.    (cond
12.     ((null (setq ss (ssget '((0 . "TEXT"))))))
13.     (T
14.      (setq nn (sslength ss)
15.            nn (1- nn)
16.      )
17.      (while (setq ee (ssname ss nn))
18.        (setq eo_data (entget ee)
19.                   nn (1- nn)
20.        )
21.        (setq texto_list (assoc 1 eo_data))
22.        (princ "\n旧文字：")(princ (cdr texto_list))
23.        (setq new_text_list (cons 1 text))
24.        (setq eo_data (subst new_text_list texto_list eo_data))
25.       
26.        (entmod eo_data)
27.    )))  
28.    (vl-cmdf "erase" en "")
29. )

(defun c:HWZ()    (setq en (entsel "选新文字(删除)："))    (setq en_data (entget (car en)))    (setq en_text_list (assoc 1 en_data))    (setq text (cdr en_text_list))    (princ "\n新文字：")(princ text)        (princ "\n 选旧文字(保留)：")    (cond     ((null (setq ss (ssget '((0 . "TEXT"))))))     (T      (setq nn (sslength ss)            nn (1- nn)      )      (while (setq ee (ssname ss nn))        (setq eo_data (entget ee)                   nn (1- nn)        )        (setq texto_list (assoc 1 eo_data))        (princ "\n旧文字：")(princ (cdr texto_list))        (setq new_text_list (cons 1 text))        (setq eo_data (subst new_text_list texto_list eo_data))               (entmod eo_data)    )))      (vl-cmdf "erase" en "") )

qiiqii

非常好用！

谢谢二楼！

向您学习，向您致敬～