改字，不知道来源于哪了，贴出来给我同样0基础的小伙伴学习。

ht1480

2. (defun c:gz():;改字，点一下改一下
   
3.   (prompt "请点取修改以后的值:")
   
4.   (setq aa(car(entsel)))
   
5.   (while aa
   
6.   (setq a (cdr(assoc 1(entget aa))))
   
7.   (setq a1(substr a 2 1))
   
8.   (setq a2(substr a 3 1))
   
9.   (if (= a1 ":")(setq a (substr a 3)))
   
10.   (if (= a2 ":")(setq a (substr a 4)))
    
11.   (prompt "请点取要修改的值:")
    
12.   (setq b (entget(car(entsel))))
    
13.   (setq b1 (cons '1 a))
    
14.   (setq b(subst b1(assoc 1 b)b))
    
15.   (entmod b)
    
16.   (prompt "请点取修改以后的值:")
    
17.   (setq aa(car(entsel)))
    
18.   (princ)
    
19.   )
    
20. )
    
21. (defun c:zg();改字，点一下一直改
    
22.   (prompt "请点取修改以后的值:")
    
23.   (setq aa(car(entsel)))
    
24.   (while aa
    
25.   (setq a (cdr(assoc 1(entget aa))))
    
26.   (setq a1(substr a 2 1))
    
27.   (setq a2(substr a 3 1))
    
28.   (setq a3(substr a 4 1))
    
29.   (if (= a1 ":")(setq a (substr a 4)))
    
30.   (if (= a2 ":")(setq a (substr a 5)))
    
31.   (if (= a2 ":")(setq a (substr a 6)))
    
32.   (prompt "请点取要修改的值:")
    
33.   (setq b (entget(car(entsel))))
    
34.   (setq b1 (cons '1 a))
    
35.   (setq b(subst b1(assoc 1 b)b))
    
36.   (entmod b)
    
37.   (princ)
    
38.   )
    
39. )

(defun c:gz():;改字，点一下改一下<br />   (prompt "请点取修改以后的值:")<br />   (setq aa(car(entsel)))<br />   (while aa<br />   (setq a (cdr(assoc 1(entget aa))))<br />   (setq a1(substr a 2 1))<br />   (setq a2(substr a 3 1))<br />   (if (= a1 ":")(setq a (substr a 3)))<br />   (if (= a2 ":")(setq a (substr a 4)))<br />   (prompt "请点取要修改的值:")<br />   (setq b (entget(car(entsel))))<br />   (setq b1 (cons '1 a))<br />   (setq b(subst b1(assoc 1 b)b))<br />   (entmod b)<br />   (prompt "请点取修改以后的值:")<br />   (setq aa(car(entsel)))<br />   (princ)<br />   )<br /> )<br /> (defun c:zg();改字，点一下一直改<br />   (prompt "请点取修改以后的值:")<br />   (setq aa(car(entsel)))<br />   (while aa<br />   (setq a (cdr(assoc 1(entget aa))))<br />   (setq a1(substr a 2 1))<br />   (setq a2(substr a 3 1))<br />   (setq a3(substr a 4 1))<br />   (if (= a1 ":")(setq a (substr a 4)))<br />   (if (= a2 ":")(setq a (substr a 5)))<br />   (if (= a2 ":")(setq a (substr a 6)))<br />   (prompt "请点取要修改的值:")<br />   (setq b (entget(car(entsel))))<br />   (setq b1 (cons '1 a))<br />   (setq b(subst b1(assoc 1 b)b))<br />   (entmod b)<br />   (princ)<br />   ) <br /> )

逍遥无声

e2002

用vl-string-search来确定字符串中是否有某个（某些）字符。