（求助）属性块文字直接替换

wang8091

有没有一个办法在属性块里，我只要输入B1 他就将附档机种里的ABC值替换成123  ，输入B2他就换成456，求大神帮帮忙设定一下。。谢谢啦

lishucheng96

2. (DEFUN CHATTRIB (OLDATT NEWATT)
   
3. (IF (AND (PRINC "\nSelect Block with attribute 选择带属性图块 :")
   
4.           (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN
   
5.   (SETQ I -1)
   
6.   (REPEAT (SSLENGTH SS)
   
7.    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
   
8.          ENT1 ENT)
   
9.    (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
   
10.     (IF (= (CDR (ASSOC 1 ENT1)) OLDATT) (PROGN
    
11.   (SETQ ENT1 (SUBST (CONS 1 NEWATT) (ASSOC 1 ENT1) ENT1))
    
12.   (ENTMOD ENT1)
    
13.   (ENTMOD ENT)
    
14. ))
    
15.    )
    
16.   )
    
17. ))
    
18. (PRINC)
    
19. )
    
20. (DEFUN C:A11 (/ input)
    
21.   (setq input (getstring "\输入b1/b2<b1>:"))
    
22.   (if (= input "")
    
23.       (setq input "b1")
    
24.   )
    
25.   (IF (= input "b1")
    
26.       (SETQ OATT "ABC" NATT "123")
    
27.       (SETQ NATT "ABC" NATT "456")
    
28.   )
    
29.   (CHATTRIB OATT NATT)
    
30. 
    
31. (PRINC)

(DEFUN CHATTRIB (OLDATT NEWATT)<br /> (IF (AND (PRINC "\nSelect Block with attribute 选择带属性图块 :")<br />           (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN<br />   (SETQ I -1)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))<br />          ENT1 ENT)<br />    (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")<br />     (IF (= (CDR (ASSOC 1 ENT1)) OLDATT) (PROGN<br />   (SETQ ENT1 (SUBST (CONS 1 NEWATT) (ASSOC 1 ENT1) ENT1))<br />   (ENTMOD ENT1)<br />   (ENTMOD ENT)<br /> ))<br />    )<br />   )<br /> ))<br /> (PRINC)<br /> )<br /> (DEFUN C:A11 (/ input)<br />   (setq input (getstring "\输入b1/b2<b1>:"))<br />   (if (= input "")<br />       (setq input "b1")<br />   )<br />   (IF (= input "b1")<br />       (SETQ OATT "ABC" NATT "123")<br />       (SETQ NATT "ABC" NATT "456")<br />   )<br />   (CHATTRIB OATT NATT)<br /> <br /> (PRINC)

magicheno

感谢大佬分享

书院扫地僧

感谢！！！！！！！！！！