支持通配符替换替换lisp

逐月飞鸿

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

谢谢

cnks

查找一下无痕或者狂刀或者正则！

逐月飞鸿

郁闷，这个看来是有点难度的

看了半天正则，呵呵，没懂

mccad

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70729

逐月飞鸿

(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)
)

如果再开始在加一个替换后的宽高比参数就完美了，不输入的话，就默认为就是个文字原来的宽高比，输入的话，各替换文字同一一个输入参数的宽高比，请大侠补充一下！

逐月飞鸿

(setq findname (getstring "\n请输入替换内容包含文字："))
(setq rename (getstring "\n请输入替换后内容："))
(setq kgb (getreal "\n请输入替换后宽高比："))  ；不输入就是宽高比就是原有文字的宽高比，输入的话，就是替换后的文字宽高比！请大侠帮助一下！

ding9736

(if (/= value nil)
  (setq input value)
  (setq input 0)
)    

(princ "\n请输入替换后宽高比：<")
(PRINC input)
(PRINC ">")
(setq value (getreal))
(if (= value ())
  (setq value input)
)