需要在o结尾添加相同的文本

rsdonna · 发表于 2022-7-5 16:25:03

大家好。所以我需要在多个多行文字对象的末尾添加文字。多行文字对象中的所有内容都不同，但我需要在所有内容的末尾都有“p”。我无法进行查找和替换，因为我最终在多行文字对象中多次获得“p”。我一直在选择所有的多行文字对象，然后进入属性，点击内容，然后它在所有的多行文字中循环，我以这种方式编辑每一个，但我有很多图形，每个图形有大约70个多行文字对象，我要编辑。有人有什么想法吗？

提前感谢

Tharwat · 发表于 2022-7-5 16:51:26

你好

这些代码里有什么？

copy

(defun c:Test ( / ss in en st)
 (if (setq ss (ssget "_:L" '((0 . "MTEXT"))))
   (repeat (setq in (sslength ss))
     (setq en (entget (ssname ss (setq in (1- in))))
           st (assoc 1 en))
     (entmod (subst (cons 1 (strcat (cdr st) "p")) st en))
     )
   )
 (princ)
 )