求批量替换单行或多行文字的LSP源代码

Free-Lancer · 发表于 2013-11-29 15:58:27

清风明月10 发表于 2013-11-29 15:57
你肯定要测试一下才好啊！

没有图没有 txt 去哪测试! 新字是前面的还是后面的?

清风明月10 · 发表于 2013-11-29 15:58:51

清风明月10 发表于 2013-11-29 15:57
你肯定要测试一下才好啊！

试了，无效果

清风明月10 · 发表于 2013-11-29 16:03:28

本帖最后由清风明月10 于 2013-11-29 16:04 编辑

旧的在前，亲的在后。至于图，很简单的啊，写几个文字就是测试图了。文本文件也新建一个，将我发的替换配对复制粘贴进去就是了

Free-Lancer · 发表于 2013-11-29 16:11:06

清风明月10 发表于 2013-11-29 16:03
旧的在前，亲的在后。至于图，很简单的啊，写几个文字就是测试图了。文本文件也新建一个，将我发的替换配对 ...

忘了 Put-textstring

(defun c:tt (/ fl ss lst)
(if (and (setq fl (getfiled "Select Txt" "" "txt" 8))
(setq ss (ssget '((0 . "*text"))))
)
(progn
(setq lst (XD::List:FromFile fl)
lst (mapcar
'(lambda (x)
(mapcar
'vl-princ-to-string
(read (strcat "(" (vl-string-subst " " "镡" x) ")"))
)
)
lst
)
)
(mapcar '(lambda (x / str)
(setq str (vla-get-textstring x))
(mapcar '(lambda (s)
(if (vl-string-search (car s) str)
(vla-put-textstring
x
(vl-string-subst (cadr s) (car s) str)
)
)
)
lst
)
)
(ss->objs ss)
)
)
)
(princ)
)
(defun ss->objs (ss / i el)
(if (eq (type ss) 'PICKSET)
(progn
(setq i (sslength ss))
(while (setq e (ssname ss (setq i (1- i))))
(setq el (cons e el))
)
(mapcar 'vlax-ename->vla-object el)
)
)
)

(defun c:tt (/ fl ss lst) 
  (if (and (setq fl (getfiled "Select Txt" "" "txt" 8)) 
           (setq ss (ssget '((0 . "*text")))) 
      ) 
    (progn 
      (setq lst        (XD::List:FromFile fl) 
            lst        (mapcar 
                  '(lambda (x) 
                     (mapcar 
                       'vl-princ-to-string 
                       (read (strcat "(" (vl-string-subst " " "镡" x) ")")) 
                     ) 
                   ) 
                  lst 
                ) 
      ) 
      (mapcar '(lambda (x / str) 
                 (setq str (vla-get-textstring x)) 
                 (mapcar '(lambda (s) 
                            (if        (vl-string-search (car s) str) 
                              (vla-put-textstring 
                                x 
                                (vl-string-subst (cadr s) (car s) str) 
                              ) 
                            ) 
                          ) 
                         lst 
                 ) 
               ) 
              (ss->objs ss) 
      ) 
    ) 
  ) 
  (princ) 
) 
(defun ss->objs        (ss / i el) 
  (if (eq (type ss) 'PICKSET) 
    (progn 
      (setq i (sslength ss)) 
      (while (setq e (ssname ss (setq i (1- i)))) 
        (setq el (cons e el)) 
      ) 
      (mapcar 'vlax-ename->vla-object el) 
    ) 
  ) 
)

清风明月10 · 发表于 2013-11-29 16:16:03

本帖最后由清风明月10 于 2013-11-29 16:19 编辑

只替换了第1个啊，没有全部替换D:\Backup\我的文档\QQ截图20121029161522.jpg

清风明月10 · 发表于 2013-11-29 16:22:06

我需要全部替换的，帮忙搞好一下，好吗？:$:P

Free-Lancer · 发表于 2013-11-29 16:22:29

清风明月10 发表于 2013-11-29 16:16
只替换了第1个啊，没有全部替换

你也没说全部替换啊！

清风明月10 · 发表于 2013-11-29 16:25:28

有四个“1”___“1111”，才替换一个“1”，不合理

Free-Lancer · 发表于 2013-11-29 17:11:29

清风明月10 发表于 2013-11-29 16:25
有四个“1”___“1111”，才替换一个“1”，不合理

(defun c:tt (/ fl ss lst)
(if (and (setq fl (getfiled "Select Txt" "" "txt" 8))
(setq ss (ssget '((0 . "*text"))))
)
(progn
(setq lst (XD::List:FromFile fl)
lst (mapcar
'(lambda (x)
(mapcar
'vl-princ-to-string
(read (strcat "(" (vl-string-subst " " "镡" x) ")"))
)
)
lst
)
)
(mapcar '(lambda (x / str)
(setq str (vla-get-textstring x))
(mapcar '(lambda (s)
(while (vl-string-search (car s) str)
(setq str (vl-string-subst
(cadr s)
(car s)
str
)
)
)
(vla-put-textstring x str)
)
lst
)
)
(ss->objs ss)
)
)
)
(princ)
)
(defun ss->objs (ss / i el)
(if (eq (type ss) 'PICKSET)
(progn
(setq i (sslength ss))
(while (setq e (ssname ss (setq i (1- i))))
(setq el (cons e el))
)
(mapcar 'vlax-ename->vla-object el)
)
)
)

(defun c:tt (/ fl ss lst) 
  (if (and (setq fl (getfiled "Select Txt" "" "txt" 8)) 
           (setq ss (ssget '((0 . "*text")))) 
      ) 
    (progn 
      (setq lst        (XD::List:FromFile fl) 
            lst        (mapcar 
                  '(lambda (x) 
                     (mapcar 
                       'vl-princ-to-string 
                       (read (strcat "(" (vl-string-subst " " "镡" x) ")")) 
                     ) 
                   ) 
                  lst 
                ) 
      ) 
      (mapcar '(lambda (x / str) 
                 (setq str (vla-get-textstring x)) 
                 (mapcar '(lambda (s) 
                            (while (vl-string-search (car s) str) 
                              (setq str        (vl-string-subst 
                                          (cadr s) 
                                          (car s) 
                                          str 
                                        ) 
                              ) 
                            ) 
                            (vla-put-textstring x str) 
                          ) 
                         lst 
                 ) 
               ) 
              (ss->objs ss) 
      ) 
    ) 
  ) 
  (princ) 
) 
(defun ss->objs        (ss / i el) 
  (if (eq (type ss) 'PICKSET) 
    (progn 
      (setq i (sslength ss)) 
      (while (setq e (ssname ss (setq i (1- i)))) 
        (setq el (cons e el)) 
      ) 
      (mapcar 'vlax-ename->vla-object el) 
    ) 
  ) 
)

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

[已解决] 求批量替换单行或多行文字的LSP源代码

点评

点评

点评