[编程申请]：删除重复文字的程序

ihqu

用途：删除插入点、内容、文字大小、比例、角度一致的多余文字

aeo

2. 
   
3. (defun c:test( / a an b bn del j ss x)
   
4. ;;by Aeo  @ [url]www.XDCAD.net[/url]
   
5. (princ"\n删除插入点、内容、文字大小、比例、角度一致的多余文字" )
   
6.   (if(setq ss(ssget '((0 . "text"))))
   
7.      (while(setq a(ssname ss (setq j 0)))
   
8.         (setq del nil
   
9.               ss(ssdel a ss )
   
10.               an(vl-remove-if-not '(lambda(x)(member (car x) '(10 1 40 41 50)))(entget a))
    
11.         )
    
12.         (repeat(sslength ss)
    
13.           (setq b(ssname ss j)
    
14.                 bn(vl-remove-if-not '(lambda(x)(member (car x) '(10 1 40 41 50)))(entget b))
    
15.                 j(1+ j)
    
16.           )
    
17.           (if(equal an bn 0.01)
    
18.             (setq del(cons b del))
    
19.           )
    
20.         )
    
21.         (foreach x del(ssdel (entdel x)ss))
    
22.       )
    
23.   )(princ)
    
24. )
    

<br /> (defun c:test( / a an b bn del j ss x)<br /> ;;by Aeo  @ [url]www.XDCAD.net[/url]<br /> (princ"\n删除插入点、内容、文字大小、比例、角度一致的多余文字" )<br />   (if(setq ss(ssget '((0 . "text"))))<br />      (while(setq a(ssname ss (setq j 0)))<br />         (setq del nil<br />               ss(ssdel a ss )<br />               an(vl-remove-if-not '(lambda(x)(member (car x) '(10 1 40 41 50)))(entget a))<br />         )<br />         (repeat(sslength ss)<br />           (setq b(ssname ss j)<br />                 bn(vl-remove-if-not '(lambda(x)(member (car x) '(10 1 40 41 50)))(entget b))<br />                 j(1+ j)<br />           )<br />           (if(equal an bn 0.01)<br />             (setq del(cons b del))<br />           )<br />         )<br />         (foreach x del(ssdel (entdel x)ss))<br />       )<br />   )(princ)<br /> )<br />

ihqu

谢谢斑竹，挺好用

zxdvip

谢谢,这可以防止门窗统计时发生错误.