1个函数--加删前后缀/查找替换字符串 另类文本刷来了--

wzg356

补充高级文本刷---下载文件
加减前后缀或查找替换或直接刷文本---小小对话框一体化
灵感来自cad标注文字替代的<>用法
进入程序空选时dcl编辑框默认输入<*>以便输入查找替换的文本 常用格式如下“新前缀<旧前缀*旧后缀>新后缀 ”
没有的为空串，空格也是有效字符串   查找替换的格式为 “新串<旧串>”或“<旧串>新串”

不勾选查找替换：按编辑框内容刷文本
查找替换打勾 编辑框如下时示例：
<>mm  加后缀mm
<*>mm  加后缀mm
<*mm>  删后缀mm
<*mm>cm 后缀mm换为cm
上面前缀同理并可前后缀同时操作

<cc>查找并全部删除cc
<cc>aa 或 aa<cc> 查找全部cc换为aa
  
具体规则见函数说明，贴出来屏幕难看  

中望不能用，要替换关键字取点函数---可用initget+getpiont替代
=========下面是原帖函数====================
最近要用，刚写的。贴出来以供新同学参考
;字符串加删前后缀/查找替换函数strdelall
;Nstr新字符串 Ostr要替换的字符串 str原字符串
;;bit 0换前缀 1换后缀 非0/1全部替换
;(strdelall "" "b" "aa4bb" 1);删后缀b
;(strdelall "B" "b" "aa4bb" 1);新后缀B替换后缀b
;(strdelall "B" "" "aa4bb" 1);加后缀B
;前缀同理
;(strdelall "B" "b" "aa4bb" 3);B替换b一个不留
;返回新字符串/原字符串-不能替换
(defun strdelall(Nstr Ostr str bit)
        (cond
                ((and(= 0 bit)(wcmatch str (strcat ostr "*")))
                        (vl-string-subst nstr ostr str)
                );前缀ostr替换为nstr,ostr=""加前缀 nstr=""则删前缀
                ((and(= 1 bit)(wcmatch str (strcat "*" ostr)))
                        (strcat(substr str 1(- (strlen str)(strlen ostr)))nstr)
                );后缀ostr替换为nstr,ostr为""加后缀,nstr=""则删后缀
                ((/= "" ostr)(while
                        (vl-string-search ostr str)
                        (setq str(vl-string-subst nstr ostr str))
                )str)
                (str)
        )
)

loveu515

感谢分享哦

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！

muai2010

支持大佬..
.

wzg356

补充一个高级另类的刷文字程序，功能提示用熟悉了自己注释取消

中望不能用，要替换关键字取点函数---可用initget+getpiont替代
(setq p(getpickp "S" "\n拾框取要刷新的对象或[设置S]<>"))
换为
(setq p(initget "S  ")(getpoint "\n拾框取要刷新的对象或[设置S]<>"))---这是十字光标
要用拾取框光标就去我关键字SSGET帖子找函数换

hubeiwdlue

谢谢分享。。。