如何分解出块中的文字,其它都不会

vectra

品茗新秀 发表于 2015-1-30 01:18
如果有多个，框选就更好了

1. (defun c:tt (/ i ss)
   
2.   (setq ss (ssget '((0 . "INSERT"))))
   
3.   (if (not (null ss))
   
4.     (progn
   
5.       (setq i 0)
   
6.       (repeat (sslength ss)
   
7.         (detachattrib (ssname ss i))
   
8.         (setq i (+ i 1))
   
9.       )
   
10.     )
    
11.   )
    
12. )
    
13. 
    
14. 
    
15. (defun detachattrib (ent / dxf txt)
    
16.   (while
    
17.     (and (setq ent (entnext ent))
    
18.          (setq dxf (entget ent))
    
19.          (/= "SEQEND" (cdr (assoc 0 dxf)))
    
20.          (= "ATTRIB" (cdr (assoc 0 dxf)))
    
21.     )
    
22. 
    
23. 
    
24.      (setq txt (subst '(0 . "TEXT") '(0 . "ATTRIB") dxf)
    
25.            txt (vl-remove-if '(lambda (e) (member (car e) '(-1 330 5 2 70 73 74 280))) txt)
    
26.      )
    
27.      (entmake txt)
    
28. 
    
29.      (setq dxf (subst '(1 . "") (assoc 1 dxf) dxf))
    
30.      (entmod dxf)
    
31.   )
    
32. )

(defun c:tt (/ i ss)<br />   (setq ss (ssget '((0 . "INSERT"))))<br />   (if (not (null ss))<br />     (progn<br />       (setq i 0)<br />       (repeat (sslength ss)<br />         (detachattrib (ssname ss i))<br />         (setq i (+ i 1))<br />       )<br />     )<br />   )<br /> )<br /> <br /> <br /> (defun detachattrib (ent / dxf txt)<br />   (while<br />     (and (setq ent (entnext ent))<br />          (setq dxf (entget ent))<br />          (/= "SEQEND" (cdr (assoc 0 dxf)))<br />          (= "ATTRIB" (cdr (assoc 0 dxf)))<br />     )<br /> <br /> <br />      (setq txt (subst '(0 . "TEXT") '(0 . "ATTRIB") dxf)<br />            txt (vl-remove-if '(lambda (e) (member (car e) '(-1 330 5 2 70 73 74 280))) txt)<br />      )<br />      (entmake txt)<br /> <br />      (setq dxf (subst '(1 . "") (assoc 1 dxf) dxf))<br />      (entmod dxf)<br />   )<br /> )

非常简洁，能不能把子函数发出来学习一下

哪里用到什么子函数？

funken

果然是大神啊......