重命名文本

hidxb123 · 发表于 2022-7-5 17:04:14

嗨，朋友们
你能给我一个嘴唇吗
1）将我的图纸编号从001-5020重命名
至MUP-001-5050

2）将我的图纸编号MUP-001-5050重命名为001-5050

在第一个嘴唇中添加MUP-
在第二个只需更换MUP-

谢谢

mostafa badran · 发表于 2022-7-5 17:09:48

你的意思是重命名标题还是重命名文件？

hidxb123 · 发表于 2022-7-5 17:18:12

谢谢mostafa

我的意思是只重命名图纸中的文本。。
用MUP重命名文本-

mostafa badran · 发表于 2022-7-5 17:22:24

查找和替换呢？

hidxb123 · 发表于 2022-7-5 17:27:46

我希望用嘴唇来做这个，bz我每次都要重复这个

mostafa badran · 发表于 2022-7-5 17:33:37

这对您很有帮助。：）
http://www.lee-mac.com/bfind.html

hidxb123 · 发表于 2022-7-5 17:35:57

非常感谢。
有任何嘴唇，当我点击文本，它会自动重命名为添加“mup”+当前文本

Roy_043 · 发表于 2022-7-5 17:39:19

copy

(defun c:SwitchTxt ( / enm obj str)
 (if
   (and
     (setq enm (car (nentsel)))
     (setq obj (vlax-ename->vla-object enm))
     (vlax-property-available-p obj 'textstring)
   )
   (vla-put-textstring
     obj
     (if (wcmatch (strcase (setq str (vla-get-textstring obj))) "MUP-*")
       (substr str 5)
       (strcat "MUP-" str)
     )
   )
 )
 (princ)
)

mostafa badran · 发表于 2022-7-5 17:48:33

好的，试试这个。

copy

(defun C:addmup ( / END ENT I SSET TXT)
 (setq sset (ssget '((0 . "*TEXT"))))
 (setq i (sslength sset))
 (while (not (minusp (setq i (1- i))))
   (setq ent (ssname sset i)
     end (entget ent)
     txt (cdr (assoc 1 end))
     end (subst(cons 1(if (strcat txt )(strcat "MUP-" txt)))
          (assoc 1 end) end))
   (entmod end)
 )
(princ)
)

hidxb123 · 发表于 2022-7-5 17:49:21

很好：D:D有效
你是怎么学会这个嘴唇的，我用了很多嘴唇，但都是像你这样的好人
我什么时候才能学会做嘴唇

[编程交流] 重命名文本

发表回复

精选推荐