支持通配符替换替换lisp
 

支持通配符替换替换lisp
www.dimcax.com
支持通配符替换替换lisp
图纸中遇到这样的文字：
钢筋c30混凝土；钢筋混凝土（c30）；钢筋c35砼等
“钢筋*”的词组，有没有这样的支持通配符的程序，就是开头是钢筋的短语都改成“钢筋混凝土（c40）”，宽高比为0.7的的lsp程序，就是支持通配符的替换程序！

谢谢
d
查找一下无痕或者狂刀或者正则！
需要解密fas、vlx请联系本人。
d
郁闷，这个看来是有点难度的郁闷，这个看来是有点难度的
看了半天正则，呵呵，没懂
d

d
勾兑后的一个帖子(defun c:fre ()
;;; 模糊的查找替换程序，即支持前后通配符
(princ "\n**在\"text\"对象中模糊查找替换(包含即替换)*")
;;
(setq cmd_old (getvar "cmdecho"))
(setvar "cmdecho" 0)
;;
(setq findname (getstring "\n请输入替换内容包含文字："))
(setq rename (getstring "\n请输入替换后内容："))
(setq ss (ssget "x" (list (cons 0 "*text") (cons 1 (strcat "*" findname "*")) ) ))
(setq n 0)
(while (< n (sslength ss))
(setq eg (entget (ssname ss n)))
(setq eg (subst (cons 1 rename)(assoc 1 eg) eg))
(entmod eg)
(setq n (1+ n))
)
(setvar "cmdecho" cmd_old)
)
如果再开始在加一个替换后的宽高比参数就完美了，不输入的话，就默认为就是个文字原来的宽高比，输入的话，各替换文字同一一个输入参数的宽高比，请大侠补充一下！
d
期待完美，请高人相助(setq findname (getstring "\n请输入替换内容包含文字："))
(setq rename (getstring "\n请输入替换后内容："))
(setq kgb (getreal "\n请输入替换后宽高比：")) ；不输入就是宽高比就是原有文字的宽高比，输入的话，就是替换后的文字宽高比！请大侠帮助一下！