求一个单行文本替换的源码

夏雨雪 · 发表于 7 天前

本帖最后由夏雨雪于 2024-11-7 13:15 编辑

要求:

      1. 我图号的前半部分是机台号，后半部分是图纸编号；要替换的每张图纸的机台号是一样的（2432B）。图纸编号（R05）每张图纸不一样。我现在就是要把机台编号批量换掉，换成另一台机的。比如把2432B-R05 2432B-R06换成2435A-R05 2435A-R06.
      2.我的这个代码只能实现全部替换  就是把2432B替换成2435A  不能实现2432B-R05替换成2435A-R05

defun find_replace(/ dir str_old str_new )
(setq dir "D://THSOFT//hsh//工作目录//find.ini")
(if (=(setq n(:::read dir 1)) "1")
(progn
(setq str_old (:::read dir 2))
(setq str_new (:::read dir 3))
(while (setq a (ssget "x" (list (cons 1 str_old))))
;(setq a (ssget "x" (list (cons 1 str_old))));;;
(setq a1 (ssname a 0))
(setq a2 (entget a1))
(setq a2 (subst (cons 1 str_new) (assoc 1 a2) a2));;用新项替换旧项
(entmod a2) ;;;更新图元
)
)
)
)
(find_replace)

xj6019 · 发表于 7 天前

(defun X:chgterr (s / p)
(if (/= s "Function cancelled") ; If an error (such as CTRL-C) occurs
(princ (strcat "\nError: " s)) ; while this command is active...
)
(setq p nil)                   ; Free selection set
(setq *error* olderr)          ; Restore old *error* handler
(princ)
)
(defun XJ:CHANGETEXT (SS OLD NEW / p l n e os as ns st s nsl osl sl si chf chm olderr)
(setq olderr  *error*          ; Initialize variables
*error* X:chgterr
chm    0)
(setq p SS)                ; Select objects
(if p (progn                   ; If any objects selected
;    (while (= 0 (setq osl (strlen (setq os (getstring t "\nOld string: ")))))
(while (= 0 (setq osl (strlen (setq os OLD))))
         (princ "Null input invalid")
)
;    (setq nsl (strlen (setq ns (getstring t "\nNew string: "))))
(setq nsl (strlen (setq ns NEW)))
(setq l 0 n (sslength p))
(while (< l n)                ; For each selected object...
(setq e (entget (ssname p l)))
(cond ((= "TEXT" (cdr (assoc 0 e)))             ; Look for TEXT entity type (group 0)
                  (setq chf nil si 1)
                  (setq s (cdr (setq as (assoc 1 e))))
                  (while (= osl (setq sl (strlen
   (setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
                  )
                  (if chf (progn       ; Substitute new string for old
(setq e (subst (cons 1 s) as e))
(entmod e)       ; Modify the TEXT entity
(setq chm (1+ chm))
))
)                   ; Treat TEXT entity type (group 0)
((= "MTEXT" (cdr (assoc 0 e)))             ; Look for MTEXT entity type (group 0)
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
   (setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn       ; Substitute new string for old
(setq e (subst (cons 1 s) as e))
(entmod e)       ; Modify the MTEXT entity
(setq chm (1+ chm))
))
)                   ; Treat MTEXT entity type (group 0)
((= "ATTDEF" (cdr (assoc 0 e)))             ; Look for Attrib entity type (group 0)
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 2 e))))
(while (= osl (setq sl (strlen
   (setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn       ; Substitute new string for old
(setq e (subst (cons 2 s) as e))
(entmod e)       ; Modify the TEXT entity
(setq chm (1+ chm))
))
)                   ; Treat TEXT entity type (group 0)
)       ;cond
(setq l (1+ l))
)
))
(princ "一共修改了")             ; Print total lines changed
(princ chm)
(princ " 个位置的文字.")
(terpri)
(setq *error* olderr)          ; Restore old *error* handler
(princ)
)
(defun find_replace (/ i s1 ss)
  (if(and
   (setq dir "D://THSOFT//hsh//工作目录//find.ini")
   (=(setq n(:::read dir 1)) "1")
   (setq str_old (:::read dir 2))
   (setq str_new (:::read dir 3))
   (setq ss (ssget "x" (list (cons 1 (strcat str_old "*") ))))
   (setq i -1)
   )
(progn
(xj:changetext ss str_old str_new)
)
)
)
(princ)
)
(find_replace)
;;;; 你都测试过你贴的函数了，那:::read这个函数你肯定有，复制到一起就行了，瞎玩一下，凑凑热闹

wu0146 · 发表于 7 天前

试试这个excel多文档替换

夏雨雪 · 发表于 7 天前

wu0146 发表于 2024-11-6 18:13
试试这个excel多文档替换

这么用啊，点击按键没反应

qazxswk · 发表于 7 天前

240506-F005 中的-F005，是固定的吗？

xj6019 · 发表于 7 天前

论坛好久没这么大悬赏的功能需求了，大佬们冲呀.................................

夏雨雪 · 发表于 7 天前

qazxswk 发表于 2024-11-6 19:56
240506-F005 中的-F005，是固定的吗？

不是的 -号前面是固定的，-号后面不是固定的 -号前面是机台编号，同一台机是固定的，F005是图纸编号，是不固定的

黄翔 · 发表于 7 天前

本帖最后由黄翔于 2024-11-6 22:29 编辑

lee-mac的 Batch Find & Replace Text 这个程序就可以了.

https://www.lee-mac.com/bfind.html

寒潮大冬瓜 · 发表于 7 天前

'iMini迷你工具'能够不开图批量实现替换，包括塑型块内的‘单行文字’！

饼仲郎 · 发表于 6 天前

http://bbs.mjtd.com/thread-187447-1-1.html 你是想批量的话还有这种不打开文件替换文本的参考这个帖子

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

[源码] 求一个单行文本替换的源码

最佳答案

本帖子中包含更多资源

点评