73哥函数，文字反转

树櫴希德

2. 
   
3. 
   
4. 
   
5. (defun c:wzfz ( / ent lst i ii zhc ent1 lsta)
   
6. (setq lsta (ssget '((0 . "text"))))
   
7.   (setq ii 0)
   
8. 
   
9. 
   
10.   
    
11. (defun str->chrs(str / a  c i zhc)
    
12. (setq a(vl-string->list str))
    
13. (while a
    
14.   (if(<(car a)129)(setq c(cons(chr(car a))c)a(cdr a))
    
15.     (setq c(cons(strcat(chr(car a))(chr(cadr a)))c)a(cddr a))))
    
16. (reverse c)
    
17. (setq i 0)
    
18.   (setq zhc "" )
    
19. (repeat (length (reverse (reverse c)))
    
20. 
    
21. (setq zhc (strcat zhc (nth i (reverse (reverse c))) ))
    
22.   (setq i (1+ i))
    
23.   )
    
24.   zhc
    
25.   )
    
26. 
    
27.   
    
28. (repeat (sslength lsta)
    
29.   (setq ent (ssname lsta ii))
    
30.   (setq ent1 (cdr(assoc 1(entget ent))))
    
31. (setq lst (str->chrs ent1))
    
32. 
    
33. 
    
34.   (entmod (subst (cons 1 lst) (assoc 1(entget ent)) (entget ent) ))
    
35. 
    
36. (setq ii (1+ ii))
    
37. 
    
38. 
    
39. )
    
40. )
    

<br /> <br /> <br /> (defun c:wzfz ( / ent lst i ii zhc ent1 lsta)<br /> (setq lsta (ssget '((0 . "text"))))<br />   (setq ii 0) <br /> <br /> <br />   <br /> (defun str->chrs(str / a  c i zhc)<br /> (setq a(vl-string->list str))<br /> (while a<br />   (if(<(car a)129)(setq c(cons(chr(car a))c)a(cdr a))<br />     (setq c(cons(strcat(chr(car a))(chr(cadr a)))c)a(cddr a))))<br /> (reverse c)<br /> (setq i 0)<br />   (setq zhc "" )<br /> (repeat (length (reverse (reverse c)))<br /> <br /> (setq zhc (strcat zhc (nth i (reverse (reverse c))) ))<br />   (setq i (1+ i))<br />   )<br />   zhc<br />   )<br /> <br />   <br /> (repeat (sslength lsta)<br />   (setq ent (ssname lsta ii))<br />   (setq ent1 (cdr(assoc 1(entget ent))))<br /> (setq lst (str->chrs ent1))<br /> <br /> <br />   (entmod (subst (cons 1 lst) (assoc 1(entget ent)) (entget ent) ))<br /> <br /> (setq ii (1+ ii))<br /> <br /> <br /> )<br /> )<br />