有关查找替换中特殊符号@

baiyier1112

想要将6@替换成8@，已解决

2. ;想要将6@替换成8@，x_s_s_1帮忙解决的
   
3. (defun c:68( / ss n ent obj txt)
   
4.   (if (setq ss (ssget '((0 . "*text")(1 . "*6`@*"))))
   
5.     (repeat (setq n (sslength ss))
   
6.       (setq ent (ssname ss (setq n (1- n))))
   
7.       (setq obj (vlax-ename->vla-object ent))
   
8.       (setq txt (vla-get-textstring obj))
   
9.       (while (wcmatch txt "*6`@*")
   
10.         (setq txt (VL-STRING-SUBST "8@" "6@" txt))      )
    
11.       (vla-put-textstring obj txt)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

;想要将6@替换成8@，x_s_s_1帮忙解决的<br /> (defun c:68( / ss n ent obj txt)<br />   (if (setq ss (ssget '((0 . "*text")(1 . "*6`@*")))) <br />     (repeat (setq n (sslength ss))<br />       (setq ent (ssname ss (setq n (1- n))))<br />       (setq obj (vlax-ename->vla-object ent))<br />       (setq txt (vla-get-textstring obj))<br />       (while (wcmatch txt "*6`@*")<br />         (setq txt (VL-STRING-SUBST "8@" "6@" txt))      )<br />       (vla-put-textstring obj txt)<br />     )<br />   )<br />   (princ)<br /> )

baiyier1112

多谢，我去试试看

baiyier1112

还是搞不定，能否帮改一下，改成正确的，其他的替换我就可以自己参照着改了

陨落

建议采用这个思路：利用(vl-string-position (ascii "@")语句找到@的位置，然后对@前的数字进行判断，若为六则换成8

baiyier1112

陨落 发表于 2013-4-26 23:56
建议采用这个思路：利用(vl-string-position (ascii "@")语句找到@的位置，然后对@前的数字进行判断，若为六 ...

我不会lisp编程，只会简单的照葫芦画瓢修改一下。多谢