批量替换

834798417

太好了，谢谢分享

bai2000

在属性块中无效

yaya-54

可以EXCEL表中的一序列数据放到CAD中替换？

linarhai

不错，正在使用

shcvip

; 错误: 参数类型错误: numberp: nil
什么情况

shcvip

zyhandw 发表于 2012-10-12 15:56
在你写的这一段基础上改了下，没有经过严格测试，你可以试试（以逗号分隔为例，比如将123替换为a，456替换 ...

以下程序，为上面所改。还需要完善的，
（1）属性块，块中的文字，还是无法改。
（2）多行文本，改了不能立马展现，需要再运行一次程序。

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 /> )

sunny_8848

可惜，都运行错误，一直在找这个功能的

jigh

yaya-54 发表于 2015-3-3 16:10
可以EXCEL表中的一序列数据放到CAD中替换？

同问，解决了吗？有相关回帖吗？