[求助]：支持通配符替换替换lisp

逐月飞鸿 · 发表于 2008-12-14 22:13:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

carrot1983 · 发表于 2008-12-15 09:49:35

用CAD命令：find

逐月飞鸿 · 发表于 2008-12-15 10:50:19

find命令是支持通配符的，可以有很多文档，想都批量执行一个lsp，呵呵，这样就可以批量修改了
呵呵
不过还是很谢谢carrot1983的！

carrot1983 · 发表于 2008-12-15 11:51:48

那就用
(ssget (list (cons 0 "TEXT") (cons 1 string)))
string就是支持通配符，具体通配符的用法，看wcmatch函数。

逐月飞鸿 · 发表于 2008-12-15 12:45:09

(ssget "X"(list (cons 0 "TEXT") (cons 1 "钢筋*")))

zml84 · 发表于 2008-12-15 13:58:20

http://zml84.blog.sohu.com/64529687.html

逐月飞鸿 · 发表于 2008-12-15 15:38:09

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

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

albbzdc156 · 发表于 2008-12-15 20:18:18

占位置好好学习

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：支持通配符替换替换lisp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

学习上面的后，勾兑的一个程序，谢谢各位！