[求助]：如何ssget并替换代有通配符的字符串？

carrot1983

如题：
举个例子：
[] 是通配符

要求：ssget选中图形中带有"[123]" 的字符串。
      并将其替换成"[456]"  

1.  (setq ss (ssget '((1 . "*`[123`]*"))))
   
    由于[]是通配符，故用ssget时需要用到 ` 转义字符.

2.  "aaa[123]" -> "aaa[456]"

    而在替换时，我又不需要`这个转义字符参与进来.


可能会有人看不太懂：
再贴一段：

2. 
   
3.   [FONT=courier new]
   
4. carrot1983(结构)(95818608)  18:47:58
   
5. (setq PATTERN "`[  5.1`]")
   
6. (setq STRING " 20.5[  5.1]")
   
7. 
   
8. (setq SS (ssget (list (cons 1 (strcat "*" PATTERN "*")))))
   
9. 
   
10. (while (vl-string-search PATTERN STRING)
    
11.   (setq STR (vl-string-subst "[5.1]" PATTERN STRING))
    
12. )
    
13. carrot1983(结构)(95818608)  18:48:07
    
14. 选中并替换。。。
    
15. carrot1983(结构)(95818608)  18:48:30
    
16. 遇到通配符的问题
    
17. carrot1983(结构)(95818608)  18:49:05
    
18. [] 中括号需要用`来转义。。。
    
19. 
    
20. 怎么搞？？？
    
21. carrot1983(结构)(95818608)  18:50:19
    
22. 重讲一下问题：
    
23. 
    
24. 就是怎么替换带有转义字符的字符串。。。
    
25. 
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> carrot1983(结构)(95818608)  18:47:58<br /> (setq PATTERN "`[  5.1`]")<br /> (setq STRING " 20.5[  5.1]")<br /> <br /> (setq SS (ssget (list (cons 1 (strcat "*" PATTERN "*")))))<br /> <br /> (while (vl-string-search PATTERN STRING)<br />   (setq STR (vl-string-subst "[5.1]" PATTERN STRING))<br /> )<br /> carrot1983(结构)(95818608)  18:48:07<br /> 选中并替换。。。<br /> carrot1983(结构)(95818608)  18:48:30<br /> 遇到通配符的问题<br /> carrot1983(结构)(95818608)  18:49:05<br /> [] 中括号需要用`来转义。。。<br /> <br /> 怎么搞？？？<br /> carrot1983(结构)(95818608)  18:50:19<br /> 重讲一下问题：<br /> <br /> 就是怎么替换带有转义字符的字符串。。。<br /> <br />   [/FONT]<br />

taner

啥都可以替换吧!

2. 
   
3.   [FONT=courier new]
   
4. (defun th-str-repl (curchar newchar str)
   
5.   (while (vl-string-search curchar str)
   
6.     (setq str (vl-string-subst newchar curchar str))
   
7.   )
   
8.   str
   
9. )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th-str-repl (curchar newchar str)<br />   (while (vl-string-search curchar str)<br />     (setq str (vl-string-subst newchar curchar str))<br />   )<br />   str<br /> )<br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. (defun th-text-repl (cur new ss / i newstr sslst str)
   
5.   (setq i 0)
   
6.   (if (= ss nil)
   
7.     (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   
8.   )
   
9.   (setq sslst (hao-ss2lst ss))
   
10.   (foreach each sslst
    
11.     (setq str (th-get-dxf 1 each))
    
12.     (setq newstr (th-str-repl cur new str))
    
13.     (if (not (equal str newstr))
    
14.       (progn
    
15.         (txt-sub-upd each 1 newstr)
    
16.         (setq i (1+ i))
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ (strcat "\n替换了" (rtos i 2 0) "个."))
    
21. )
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th-text-repl (cur new ss / i newstr sslst str)<br />   (setq i 0)<br />   (if (= ss nil)<br />     (setq ss (ssget '((0 . "TEXT,MTEXT"))))<br />   )<br />   (setq sslst (hao-ss2lst ss))<br />   (foreach each sslst<br />     (setq str (th-get-dxf 1 each))<br />     (setq newstr (th-str-repl cur new str))<br />     (if (not (equal str newstr))<br />       (progn<br />         (txt-sub-upd each 1 newstr)<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (princ (strcat "\n替换了" (rtos i 2 0) "个."))<br /> )<br />   [/FONT]<br />

carrot1983

http://www.theswamp.org/index.php?topic=27733.msg333257#new

还没找到解决的方法。。。
虽然人家给了一些网址。看不懂

它山之石

果然看不懂
既然不需要就删除好了

(while (vl-string-search "`" pattern)
    (setq pattern (vl-string-subst "" "`" pattern))
  )

carrot1983

应该是这样子的。。。

反正CAD自带的替换已经够用了。。。偷懒一下。