yizhi4669 发表于 2011-10-29 16:20:50

呵呵，感谢楼主的分享！
我觉得用燕秀工具箱中的文字替换要好一下，替换、被替换的文字都支持在图纸中拾取，这样很方便。再，在庞大的文件中执行的效率很高。

czb203 发表于 2012-1-2 09:15:49

本帖最后由 czb203 于 2012-1-2 09:16 编辑

用起来比自带的好用多了 谢谢了哈

【KAIXIN】 发表于 2012-1-2 13:42:40

顶一个，好源码！稍加改动就会很完美

午后的猫 发表于 2012-2-9 20:41:50

呵呵，很完美啊

wdabb 发表于 2012-2-13 18:44:56

谢谢啊，，还不错。。。。

haiyunzhou 发表于 2012-2-18 23:24:58

学习了 谢谢

print1985 发表于 2012-4-3 17:38:21

好像有点问题，用目标字串“米”查找词语“用作”会找到关键词，且会被替换为乱码。cad2008。希望版主能解决下。

print1985 发表于 2012-4-6 17:50:13

自己搞定了 需要对汉字做+2字节的处理
      (while (<= schct txtln)
            (if (= (setq readch (substr etext schct subln)) oldch)
                                                        (setq schct (+ schct subln)
                      a newch)
                (progn
                                                                (if (> (ascii (substr readch 1 1)) 127);如果是汉字
                                                               (progn
                  (setq readch (substr etext schct (1+ subln)));多读取一个字节
                                                                  (setq schct (+ schct 2))
                                                                  (setq a (substr readch 1 2));就取第1.2个字节为a
                                                               )
                                                               (progn
                                                                  (setq schct (1+ schct))
                                                                  (setq a (substr readch 1 1))
                                                               )
                                                                )
                )
            )
                                (setq newtext        (strcat newtext a))
      )

sdwy196912 发表于 2012-4-26 12:42:36

不错的程序.

longer1000 发表于 2012-5-22 08:46:13

楼主的分享精神值得学习，支持
页: 1 [2] 3 4 5 6
查看完整版本: [源码]批量文本替换