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

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

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

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

你好
 
这些代码里有什么？
 
(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)
)

rsdonna 发表于 2022-7-5 16:55:51

哇，太棒了。
 
这正是我想要的。这将节省我很多时间。
 
谢谢Tharwat！

Tharwat 发表于 2022-7-5 17:17:13

 
非常欢迎你。

Lee Mac 发表于 2022-7-5 17:30:09

请参阅我的前缀/后缀文本程序。
页: [1]
查看完整版本: 需要在o结尾添加相同的文本