与大家分享一个替换图中文字或字符的程序！（分享）

simon8001 · 发表于 2011-6-29 10:04

本帖最后由 simon8001 于 2011-6-29 10:05 编辑

首先声明这段程序不是我写的，是我在其他论坛里看到的，首先感谢他！
这个不能对插入的块进行替换！！
你们一看程序就懂的！！

(defun c:th()
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq txtss (ssget "X" '((0 . "TEXT,MTEXT"))))
(setq slen (- (sslength txtss) 1))
(setq i 0)
(while (<= i slen)
(setq txtn (ssname txtss i))
(setq txtdate (entget txtn))
(setq qz (cdr (assoc '1 txtdate)))
(SETQ QZ (REPL QZ "旧字符1" "新字符1"))
(SETQ QZ (REPL QZ "旧字符2" "新字符2"))
(SETQ QZ (REPL QZ "旧字符3" "新字符3"))
(SETQ QZ (REPL QZ "旧字符4" "新字符4"))
；
；
；
；
；
(SETQ QZ (REPL QZ "旧字符n" "新字符n"))
(setq txtdate (subst (cons 1 qz) (assoc '1 txtdate) txtdate))
(setq txtdate (subst (cons 41 0.7) (assoc '41 txtdate)
txtdate))
(entmod txtdate)
(setq i (+ i 1))
)
(COMMAND "QSAVE")
(setvar "cmdecho" oce)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun repl (text_string find_string replace_string
/ pointer text_string_length
)
(setq pointer 1)
(if
(<=
(strlen find_string)
(strlen text_string)
)
(progn
(setq text_string_length (strlen text_string))
(while
(<
pointer
(+ (- text_string_length (strlen find_string)) 2)
)
(if
(=
(strcase
(substr
text_string
pointer
(strlen find_string)
)
)
(strcase find_string)
)
(progn
(setq text_string
(if (= pointer 1)
(strcat
replace_string
(substr
text_string
(+ pointer (strlen find_string))
)
)
(strcat
(substr
text_string
1
(- pointer 1)
)
replace_string
(substr
text_string
(+ pointer (strlen find_string))
)
)
)
)
(setq
pointer
(+ pointer (strlen replace_string))
)
(setq
text_string_length
(strlen text_string)
)
)
(setq pointer (1+ pointer))
)
)
)
)
(SETQ text_string text_string)
)

(defun c:th() 
(setq oce (getvar "cmdecho")) 
(setvar "cmdecho" 0) 
(setq txtss (ssget "X" '((0 . "TEXT,MTEXT")))) 
  (setq  slen (- (sslength txtss) 1)) 
  (setq  i 0) 
      (while  (<= i slen) 
          (setq txtn (ssname txtss i)) 
          (setq txtdate (entget txtn)) 
          (setq qz (cdr (assoc '1 txtdate))) 
          (SETQ QZ (REPL QZ "旧字符1" "新字符1")) 
          (SETQ QZ (REPL QZ "旧字符2" "新字符2")) 
          (SETQ QZ (REPL QZ "旧字符3" "新字符3")) 
          (SETQ QZ (REPL QZ "旧字符4" "新字符4")) 
                                    ； 
                                    ； 
                                    ； 
                                    ； 
                                    ； 
          (SETQ QZ (REPL QZ "旧字符n" "新字符n")) 
          (setq txtdate (subst (cons 1 qz) (assoc '1 txtdate) txtdate)) 
          (setq txtdate (subst (cons 41 0.7) (assoc '41 txtdate) 
 
txtdate)) 
          (entmod txtdate)    
          (setq i (+ i 1)) 
      ) 
(COMMAND "QSAVE")                
(setvar "cmdecho" oce)       
(princ) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(defun repl (text_string       find_string     replace_string 
         /               pointer         text_string_length 
        ) 
  (setq pointer 1) 
  (if 
    (<= 
      (strlen find_string) 
      (strlen text_string) 
    ) 
     (progn 
       (setq text_string_length (strlen text_string)) 
       (while 
     (< 
       pointer 
       (+ (- text_string_length (strlen find_string)) 2) 
     ) 
      (if 
        (= 
          (strcase 
        (substr 
          text_string 
          pointer 
          (strlen find_string) 
        ) 
          ) 
          (strcase find_string) 
        ) 
         (progn 
           (setq text_string 
                 (if (= pointer 1) 
                   (strcat 
                     replace_string 
                     (substr 
                       text_string 
                       (+ pointer (strlen find_string)) 
                     ) 
                   ) 
                   (strcat 
                     (substr 
                       text_string 
                       1 
                       (- pointer 1) 
                     ) 
                     replace_string 
                     (substr 
                       text_string 
                       (+ pointer (strlen find_string)) 
                     ) 
                   ) 
                 ) 
          ) 
             (setq 
               pointer 
            (+ pointer (strlen replace_string)) 
             ) 
                 (setq 
                   text_string_length 
                    (strlen text_string) 
                 ) 
           ) 
           (setq pointer (1+ pointer)) 
         ) 
      ) 
       ) 
     ) 
(SETQ text_string text_string) 
  )

oxygen_xy · 发表于 2011-6-29 15:51

留着，，以后学习！哈哈，

simon8001 · 发表于 2011-6-29 16:02

回复 oxygen_xy 的帖子

你一口气看回复了我3个帖子！！

inhoo0 · 发表于 2011-6-30 20:23

追随楼主的脚步

sxh_why · 发表于 2011-7-1 17:01

这个程序可以开发为：中英文自动翻译程序。
国标-DIN标自动转换程序。

uditx · 发表于 2011-11-4 21:28

vb 好东西呀谢谢分享呀

xiaxiang · 发表于 2011-11-4 21:32

中英文自动翻译后文本位置会发生变化，怎样处理文字重叠才是最头疼的！

清风明月名字 · 发表于 2012-5-23 21:36

谢谢楼主，代码很有参考意义

wh89103 · 发表于 2013-3-6 10:40

程序真是好呀，谢谢

账号		自动登录	找回密码
密码			注册

[资源] 与大家分享一个替换图中文字或字符的程序！（分享）