批量替换

zxl01615

能不能实现这样一个过程“把准备替换成的诸多文字按一定顺序写到txt文件里面，下一步读取txt里面的文字，然后逐一拾取CAD里面所要替换的文本，完成替换拾取的对象，并保持文字位置不变

zxl01615

zyhandw 发表于 2012-10-13 17:06
你的意思是把“*省节水增粮行动”都替换为“河南省节水增粮行动”呗？
我试过了，没问题啊！
只不过我是 ...

为什么我的CAD2010版本运行不了呢？命令栏显示如下：
; 错误: 参数类型错误: lselsetp 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 /> )

jigh

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

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

sscylh

可以实现

zxl01615

sscylh 发表于 2012-10-10 15:39
可以实现

(defun c:test1()
;**********读取txt文件
(setq data_file (getfiled "C:\\LL\\test1" "txt" 2))
   (setq ff (open dat_file "r"))
        (setq data (read-line ff))

;***********拾取替换文本
(setq ss (ssget '((0 . "text"))))
(princ "拾取选取对象"）
  (setq i 0)
  (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq endata (entget ssn))

;***********完成替换
(while data
(setq data(read-line ff))
(entmod (subst (cons i "txt") (assoc i endata) endata))
(setq i (1+ i))
)
)


请指教

vlisp2012

是啊，我也学习一下哈！

zyhandw

在你写的这一段基础上改了下，没有经过严格测试，你可以试试（以逗号分隔为例，比如将123替换为a，456替换为b，"G:\\"下test1.txt文件中格式就写为:第一行123,a；第二行 456,b）

2. 
   
3. (defun c:test(/ ff data num txtcontent txtcontent2 txtlst ss i ssn endata)
   
4. ;**********读取txt文件
   
5. (setq data_file (getfiled "请选择字符替换的文本" "G:\\test1" "txt" 2))
   
6. (setq ff (open data_file "r"))
   
7. (setq data (read-line ff))
   
8. (while data
   
9. (setq num (vl-string-position (ascii ",") data))
   
10. ;***********拾取替换文本
    
11. (setq txtcontent (substr data 1 num))
    
12. (setq txtcontent2 (substr data (+ num 2)))
    
13. (setq txtlst (list '(0 . "TEXT") (cons 1 txtcontent)))
    
14. (setq ss (ssget "x" txtlst))
    
15. (setq i 0)
    
16.   (repeat (sslength ss)
    
17.     (setq ssn (ssname ss i))
    
18.     (setq endata (entget ssn))
    
19.     (setq endata (subst (cons 1 txtcontent2) (assoc 1 endata) endata))
    
20.     (entmod endata)
    
21.     (setq i (1+ i))
    
22.   )
    
23. ;***********完成替换
    
24. (setq data (read-line ff))
    
25. )
    
26. )

<br /> (defun c:test(/ ff data num txtcontent txtcontent2 txtlst ss i ssn endata)<br /> ;**********读取txt文件<br /> (setq data_file (getfiled "请选择字符替换的文本" "G:\\test1" "txt" 2))<br /> (setq ff (open data_file "r"))<br /> (setq data (read-line ff))<br /> (while data<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") (cons 1 txtcontent)))<br /> (setq ss (ssget "x" txtlst))<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 /> (setq data (read-line ff))<br /> )<br /> )

zxl01615

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

谢谢，怎么会显示参数类型错误呢？

zyhandw

zxl01615 发表于 2012-10-13 12:16
谢谢，怎么会显示参数类型错误呢？

把你的dwg和txt传上来，看看

zxl01615

zyhandw 发表于 2012-10-13 13:35
把你的dwg和txt传上来，看看

不好意思，中午出去了，刚看到，麻烦您帮我看一下，谢谢

zyhandw

zxl01615 发表于 2012-10-13 15:44
不好意思，中午出去了，刚看到，麻烦您帮我看一下，谢谢

你的意思是把“*省节水增粮行动”都替换为“河南省节水增粮行动”呗？
我试过了，没问题啊！
只不过我是把所有图面上的文字进行对应替换！
如果你想拉框选取，可以把(setq ss (ssget "x" txtlst))改为(setq ss (ssget txtlst))就行了！