替换某个图层中的文字代码，无法正常运行，请大神指教

苏清寒

我想只替换这个“S_TEXT_SLAB_RBAR （板钢筋文字）”图层里的文字内容，在前人的代码上修改了下，无法正常运行。想请各位大神帮忙看看需要怎么修改一下？
(defun subst3(en s1 s2 /)
  (setq b (entget en))
  (setq d (assoc '1 b))
  (setq str (cdr d)); 内容

  (setq str (vl-string-subst s1 s2 str))

  (setq d2 (cons '1 str))
  (setq en2 (subst d2 d b))
  (entmod en2)
)

(setq ss (ssget "x" '((0 . "TEXT"))))
(setq sl (sslength ss))

(setq index 0)
(repeat sl
  (setq en (ssname ss index))
  (setq layer (cdr (assoc 8 (entget en))))
  (if (equal layer "S_TEXT_SLAB_RBAR （板钢筋文字）")
    (progn
      (subst3 en "%%1328@200" "%%1326@200")
      (subst3 en "%%1328@200" "%%1326@190")
      (subst3 en "%%1328@200" "%%1326@180")
      (subst3 en "%%1328@200" "%%1326@170")
      (subst3 en "%%1328@200" "%%1326@160")
      (subst3 en "%%1328@200" "%%1326@150")
      (subst3 en "%%1328@200" "%%1326@140")
      (subst3 en "%%1328@200" "%%1326@130")
      (subst3 en "%%1328@200" "%%1326@120")
      (subst3 en "%%1328@190" "%%1326@110")
      (subst3 en "%%1328@170" "%%1326@100")
      (subst3 en "8@200" "6@200")
      (subst3 en "8@200" "6@190")
      (subst3 en "8@200" "6@180")
      (subst3 en "8@200" "6@170")
      (subst3 en "8@200" "6@160")
      (subst3 en "8@200" "6@150")
      (subst3 en "8@200" "6@140")
      (subst3 en "8@200" "6@130")
      (subst3 en "8@200" "6@120")
      (subst3 en "8@190" "6@110")
      (subst3 en "8@170" "6@100")
    )
  )
  (setq index (+ index 1))
)

yaojing38

替换  函数有问题  换这个试试

2. (defun subst3(en s1 s2 /)
   
3.   (setq b (entget en))
   
4.   (setq d (assoc 1 b))
   
5.   (setq str (cdr d)); 内容
   
6. 
   
7.   (setq str (vl-string-subst s1 s2 str))
   
8. 
   
9.   (setq d2 (cons 1 str))
   
10.   (setq en2 (subst d2 d b))
    
11.   (entmod en2)
    
12. )

(defun subst3(en s1 s2 /)<br />   (setq b (entget en))<br />   (setq d (assoc 1 b))<br />   (setq str (cdr d)); 内容<br /> <br />   (setq str (vl-string-subst s1 s2 str))<br /> <br />   (setq d2 (cons 1 str))<br />   (setq en2 (subst d2 d b))<br />   (entmod en2)<br /> )

cchessbd

没有图吗，你这样光程序没法弄啊

llsheng_73

不明白楼主为什么要对一个text图元进行多次替换，无图无真相只能瞎搞

1. (defun c:tt(/ s lst e str)
   
2.   (if(setq lst'(("%%1328@200" "%%1326@200")
   
3.                 ("%%1328@200" "%%1326@190")
   
4.                 ("%%1328@200" "%%1326@180")
   
5.                 ("%%1328@200" "%%1326@170")
   
6.                 ("%%1328@200" "%%1326@160")
   
7.                 ("%%1328@200" "%%1326@150")
   
8.                 ("%%1328@200" "%%1326@140")
   
9.                 ("%%1328@200" "%%1326@130")
   
10.                 ("%%1328@200" "%%1326@120")
    
11.                 ("%%1328@190" "%%1326@110")
    
12.                 ("%%1328@170" "%%1326@100")
    
13.                 ("8@200" "6@200")
    
14.                 ("8@200" "6@190")
    
15.                 ("8@200" "6@180")
    
16.                 ("8@200" "6@170")
    
17.                 ("8@200" "6@160")
    
18.                 ("8@200" "6@150")
    
19.                 ("8@200" "6@140")
    
20.                 ("8@200" "6@130")
    
21.                 ("8@200" "6@120")
    
22.                 ("8@190" "6@110")
    
23.                 ("8@170" "6@100"))
    
24.            s(ssget "x" '((0 . "TEXT")(8 . "S_TEXT_SLAB_RBAR （板钢筋文字）"))))
    
25.     (while(setq e(ssname s 0))
    
26.       (ssdel e s)
    
27.       (setq str(cdr(assoc '1 (entget e))))
    
28.       (vl-some(function(lambda(x)(if(VL-STRING-SEARCH(cadr x)str)
    
29.                                    (entmod(list(cons -1 e)(cons 1(vl-string-subst(car x)(cadr x)str)))))))lst)
    
30.       )
    
31.     )
    
32.   )

(defun c:tt(/ s lst e str)<br />   (if(setq lst'(("%%1328@200" "%%1326@200")<br />                 ("%%1328@200" "%%1326@190")<br />                 ("%%1328@200" "%%1326@180")<br />                 ("%%1328@200" "%%1326@170")<br />                 ("%%1328@200" "%%1326@160")<br />                 ("%%1328@200" "%%1326@150")<br />                 ("%%1328@200" "%%1326@140")<br />                 ("%%1328@200" "%%1326@130")<br />                 ("%%1328@200" "%%1326@120")<br />                 ("%%1328@190" "%%1326@110")<br />                 ("%%1328@170" "%%1326@100")<br />                 ("8@200" "6@200")<br />                 ("8@200" "6@190")<br />                 ("8@200" "6@180")<br />                 ("8@200" "6@170")<br />                 ("8@200" "6@160")<br />                 ("8@200" "6@150")<br />                 ("8@200" "6@140")<br />                 ("8@200" "6@130")<br />                 ("8@200" "6@120")<br />                 ("8@190" "6@110")<br />                 ("8@170" "6@100"))<br />            s(ssget "x" '((0 . "TEXT")(8 . "S_TEXT_SLAB_RBAR （板钢筋文字）"))))<br />     (while(setq e(ssname s 0))<br />       (ssdel e s)<br />       (setq str(cdr(assoc '1 (entget e))))<br />       (vl-some(function(lambda(x)(if(VL-STRING-SEARCH(cadr x)str)<br />                                    (entmod(list(cons -1 e)(cons 1(vl-string-subst(car x)(cadr x)str)))))))lst)<br />       )<br />     )<br />   )