如何替换，已经预设的内容？

shcvip

例如：我要查找A，然后替换成B。查找C，替换成D。这样的程序论坛里应该很多。那如何，查找A，查找B，然后对对应的替换成C，D呢？

shcvip

2. (defun c:tt (/ ff data num txtcontent txtcontent2 txtlst ss i ssn endata)
   
3. ;**********读取txt文件
   
4. ;;;(setq data_file (getfiled "请选择字符替换的文本" "d:\\test1" "txt" 2))
   
5. (SETQ data0 '(
   
6. "Q235-A,Q235-B"             
   
7. "T1,TA"
   
8. "T2,TB"
   
9. "T3,TC"
   
10. "T4,TD"
    
11. "T5,TE"
    
12. "T6,TF"
    
13. )
    
14.       ii 0
    
15.       )
    
16. ;;;(setq ff (open data_file "r"));打开文件
    
17. ;;;(setq data (read-line ff)) ;读取一行
    
18.   (SETQ DATA (NTH ii data0))
    
19. (while data
    
20.   (setq ii (1+ ii))
    
21. (setq num (vl-string-position (ascii ",") data))
    
22. ;***********拾取替换文本
    
23. (setq txtcontent (substr data 1 num))
    
24. (setq txtcontent2 (substr data (+ num 2)))
    
25. (setq txtlst (list '(0 . "TEXT,MTEXT") (cons 1 txtcontent)))
    
26. (setq ss (ssget "X" txtlst)) ;;全匹配
    
27. ;;;(setq ss (ssget txtlst))
    
28.   (if ss (progn
    
29. (setq i 0)
    
30.   (repeat (sslength ss)
    
31.     (setq ssn (ssname ss i))
    
32.     (setq endata (entget ssn))
    
33.     (setq endata (subst (cons 1 txtcontent2) (assoc 1 endata) endata))
    
34.     (entmod endata) ;;界面刷新
    
35.     (setq i (1+ i))
    
36.   )
    
37. )
    
38. ;***********完成替换
    
39. (SETQ DATA (NTH ii data0))
    
40. )
    
41.   )
    
42. )

(defun c:tt (/ ff data num txtcontent txtcontent2 txtlst ss i ssn endata)<br /> ;**********读取txt文件<br /> ;;;(setq data_file (getfiled "请选择字符替换的文本" "d:\\test1" "txt" 2))<br /> (SETQ data0 '(<br /> "Q235-A,Q235-B"              <br /> "T1,TA"<br /> "T2,TB"<br /> "T3,TC"<br /> "T4,TD"<br /> "T5,TE"<br /> "T6,TF"<br /> )<br />       ii 0<br />       )<br /> ;;;(setq ff (open data_file "r"));打开文件<br /> ;;;(setq data (read-line ff)) ;读取一行<br />   (SETQ DATA (NTH ii data0))<br /> (while data<br />   (setq ii (1+ ii)) <br /> (setq num (vl-string-position (ascii ",") data))<br /> ;***********拾取替换文本<br /> (setq txtcontent (substr data 1 num))<br /> (setq txtcontent2 (substr data (+ num 2)))<br /> (setq txtlst (list '(0 . "TEXT,MTEXT") (cons 1 txtcontent)))<br /> (setq ss (ssget "X" txtlst)) ;;全匹配<br /> ;;;(setq ss (ssget txtlst))<br />   (if ss (progn<br /> (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ssn (ssname ss i))<br />     (setq endata (entget ssn))<br />     (setq endata (subst (cons 1 txtcontent2) (assoc 1 endata) endata))<br />     (entmod endata) ;;界面刷新<br />     (setq i (1+ i))<br />   )<br /> )<br /> ;***********完成替换<br /> (SETQ DATA (NTH ii data0))<br /> )<br />   ) <br /> )

shcvip

以上程序，参考与：http://bbs.mjtd.com/thread-96756-1-1.html
在单位老师傅的指点下，做了一定的修改。
现在遇到二个问题：
（1）属性块中的文字，无法修改。
（2）程序执行后，多行文字（mtext）不能立马改成功，需要再实行一次。