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

(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

好的，试试这个。
(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有效
你是怎么学会这个嘴唇的，我用了很多嘴唇，但都是像你这样的好人
我什么时候才能学会做嘴唇
页: [1] 2
查看完整版本: 重命名文本