替换属性块中的文字，求完善程序

ly8zx2109

替换属性块中的文字，求完善程序，自己编的小程序，不是很好，没找到哪里有错误，求高手帮忙修改一下，谢谢。

ly8zx2109

1. 
   

复制代码

ZZXXQQ

1. ;替换文字和属性指定内容 明经 ZZXXQQ 2013.5.9
   
2. (vl-load-com)
   
3. (defun c:11()
   
4. (SETVAR "CMDECHO" 0)
   
5. (setq SS (ssget "X" (list (cons 0 "INSERT,TEXT"))));;;附带处理单行文本
   
6. (setq S1 (ssget "P" '((0 . "INSERT") (66 . 1))));;;过滤出属性块
   
7. (vl-cmdf "SELECT" SS "")
   
8. (SETQ S88 (SSGET "P" '((0 . "TEXT"))));;;过滤出文本
   
9. (setq i -1)  
   
10. (setq s2 (ssname s1 0))
    
11. (setq s20 (getstring "\n请输入要查找的文本内容："))
    
12. (setq s21 (getstring "\n请输入要替换的文本内容："))
    
13. (if s88 (progn
    
14.   (repeat (sslength s88)
    
15.    (setq s83 (entget (ssname s88 (setq i (1+ i)))))
    
16.    (setq s84 (cdr (assoc 1 s83)))
    
17.    (if (vl-string-search s20 s84)
    
18.     (entmod (subst (cons 1 (vl-string-subst s21 s20 s84)) (assoc 1 s83) s83))
    
19.    )
    
20.   )
    
21. ))  
    
22. (if s1 (progn
    
23.   (setq i -1)  
    
24.   (repeat (sslength S1)
    
25.    (setq ENT (entget (ssname S1 (setq I (1+ I))))
    
26.          ENT1 ENT)
    
27.    (while (/= (cdr(assoc 0 (setq ENT1 (entget(entnext(cdr(assoc -1 ENT1))))))) "SEQEND")
    
28.     (if (= (cdr(assoc 0 ENT1)) "ATTRIB") (progn
    
29.      (setq s15 (cdr(assoc 1 ent1)))
    
30.      (if (vl-string-search s20 s15) (progn
    
31.       (entmod (subst (cons 1 (vl-string-subst s21 s20 s15)) (assoc 1 ent1) ent1))
    
32.       (entmod ent)
    
33.      ))
    
34.     ))
    
35.    )
    
36.   )
    
37. ))
    
38. (terpri)
    
39. (SETVAR "CMDECHO" 1)
    
40. (princ)
    
41. )
    

;替换文字和属性指定内容 明经 ZZXXQQ 2013.5.9<br /> (vl-load-com)<br /> (defun c:11()<br /> (SETVAR "CMDECHO" 0)<br /> (setq SS (ssget "X" (list (cons 0 "INSERT,TEXT"))));;;附带处理单行文本<br /> (setq S1 (ssget "P" '((0 . "INSERT") (66 . 1))));;;过滤出属性块<br /> (vl-cmdf "SELECT" SS "")<br /> (SETQ S88 (SSGET "P" '((0 . "TEXT"))));;;过滤出文本<br /> (setq i -1)  <br /> (setq s2 (ssname s1 0))<br /> (setq s20 (getstring "\n请输入要查找的文本内容："))<br /> (setq s21 (getstring "\n请输入要替换的文本内容："))<br /> (if s88 (progn<br />   (repeat (sslength s88)<br />    (setq s83 (entget (ssname s88 (setq i (1+ i)))))<br />    (setq s84 (cdr (assoc 1 s83)))<br />    (if (vl-string-search s20 s84)<br />     (entmod (subst (cons 1 (vl-string-subst s21 s20 s84)) (assoc 1 s83) s83))<br />    )<br />   )<br /> ))  <br /> (if s1 (progn<br />   (setq i -1)  <br />   (repeat (sslength S1)<br />    (setq ENT (entget (ssname S1 (setq I (1+ I))))<br />          ENT1 ENT)<br />    (while (/= (cdr(assoc 0 (setq ENT1 (entget(entnext(cdr(assoc -1 ENT1))))))) "SEQEND")<br />     (if (= (cdr(assoc 0 ENT1)) "ATTRIB") (progn<br />      (setq s15 (cdr(assoc 1 ent1)))<br />      (if (vl-string-search s20 s15) (progn<br />       (entmod (subst (cons 1 (vl-string-subst s21 s20 s15)) (assoc 1 ent1) ent1))<br />       (entmod ent)<br />      ))<br />     ))<br />    )<br />   )<br /> ))<br /> (terpri)<br /> (SETVAR "CMDECHO" 1)<br /> (princ)<br /> )<br />

ly8zx2109

看楼下。

zyhandw

图上全是属性块吗？如果不是的话，那s1中不是属性块的怎么处理呢？附上你的dwg来测试下吧

ly8zx2109

附件已上传，谢谢

zyhandw

思路上应该可以更简捷！给你推荐个严长老的，可能就是你想要的：http://bbs.mjtd.com/thread-94971-1-1.html

ly8zx2109

还是谢谢你了，可 我想搞一个小程序，只是能换其中的文本，然后把他加入到批量执行的程序中，批量修改一批图纸，谢谢。其中的的程序可以借鉴一下。

ly8zx2109

konoko

谢谢Z大的指点。。