如何用这个TXT替换表在CAD中全字批量替换？

guwenjiang

如何利用已有的替换表（txt格式），在CAD中进行批量全字匹配替换呢？替换换表如下所示，用左列的数据替换成右列的数据，并且是全字匹配替换，不然会出错。请大神赐教一二
95,97
94,96
91,95
90,94
84,93
83,92
82,91
81,90
80,89
79,88
78,87
77,86
76,85
。。。。。。

mikewolf2k

赐教什么呢？算法？就是遍历所有文字，然后遍历列表，满足需要就替换；代码？lisp不会，不过论坛中已有很多文本替换的例子，足够参考了。另外考虑清楚替换列表的逻辑性，是找到一个就结束还是继续找到结束，比如82替换为91，接着又被替换为95，再继续被替换为97？

guwenjiang

mikewolf2k 发表于 2016-6-24 09:44
赐教什么呢？算法？就是遍历所有文字，然后遍历列表，满足需要就替换；代码？lisp不会，不过论坛中已有很多 ...

我有个程序但是不能够实现全字匹配替换，会出错，不知道怎么改，大神指导一下吧

mikewolf2k

LISP不会，只会VBA。等别的高人吧。

ZZXXQQ

2. ;批量换字高 明经 ZZXXQQ 2016-6-25
   
3. (defun c:tt ( / oldlst newlst)
   
4. (setq fn (if (/= (type fn) 'STR) "" fn))
   
5. (setq fn (getfiled "请选择替换字高的文件" fn "txt" 2))
   
6. (setq fp (open fn "r"))
   
7. (while (setq data (read-line fp))
   
8.   (setq num (vl-string-position (ascii ",") data))
   
9.   (setq oldlst (cons(atoi(substr data 1 num)) oldlst))
   
10.   (setq newlst (cons(atoi(substr data (+ num 2))) newlst))
    
11. )
    
12. (close fp)
    
13. (setq chlst (mapcar 'cons (reverse oldlst) (reverse newlst)))
    
14. (if (setq ss (ssget '((0 . "TEXT"))))
    
15.   (repeat (setq i (sslength ss))
    
16.    (setq ent (entget(ssname ss (setq i (1- i)))))
    
17.    (setq h (fix(cdr(assoc 40 ent))))
    
18.    (if (setq oldh (assoc h chlst))
    
19.     (entmod (subst (cons 40 (cdr oldh)) (assoc 40 ent) ent))
    
20.    )
    
21.   )
    
22. )
    
23. (princ)
    
24. )
    

;批量换字高 明经 ZZXXQQ 2016-6-25<br /> (defun c:tt ( / oldlst newlst)<br /> (setq fn (if (/= (type fn) 'STR) "" fn))<br /> (setq fn (getfiled "请选择替换字高的文件" fn "txt" 2))<br /> (setq fp (open fn "r"))<br /> (while (setq data (read-line fp))<br />   (setq num (vl-string-position (ascii ",") data))<br />   (setq oldlst (cons(atoi(substr data 1 num)) oldlst))<br />   (setq newlst (cons(atoi(substr data (+ num 2))) newlst))<br /> )<br /> (close fp)<br /> (setq chlst (mapcar 'cons (reverse oldlst) (reverse newlst)))<br /> (if (setq ss (ssget '((0 . "TEXT"))))<br />   (repeat (setq i (sslength ss))<br />    (setq ent (entget(ssname ss (setq i (1- i)))))<br />    (setq h (fix(cdr(assoc 40 ent))))<br />    (if (setq oldh (assoc h chlst))<br />     (entmod (subst (cons 40 (cdr oldh)) (assoc 40 ent) ent))<br />    )<br />   )<br /> )<br /> (princ)<br /> )<br />

hiviki

楼主试试以前版本的天正试试，比如天正结构8.2，还是8.5，可以把你要替换的文字全部选中，然后双击弹出编辑框，把txt中的文字复制过去，就可以了