【文字】找相同字

marting

1. (defun c:xdtb_txtsrhsame (/ lst i x)
   
2.   (xdrx-begin)
   
3.   (xd::doc:getint "\n输入颜色号" "#xd-var-global-color" 1)
   
4.   (if (setq ss (xdrx-ssget "\n选择查找的文字<退出>:" '((0 . "*text"))))
   
5.     (progn (setq lst (mapcar '(lambda (x)
   
6.                                 (list (xdrx-getpropertyvalue x "textstring") x)
   
7.                               )
   
8.                              (xdrx-pickset->ents ss)
   
9.                      )
   
10.                  lst (xd::list:groupbyindex lst 1)
    
11.            )
    
12.            (setq i 0)
    
13.            (mapcar '(lambda (x)
    
14.                       (if (> (length (cdr x)) 1)
    
15.                         (progn (setq i (1+ i))
    
16.                                (xdrx-setpropertyvalue
    
17.                                  (cdr x)
    
18.                                  "color"
    
19.                                  #xd-var-global-color
    
20.                                )
    
21.                         )
    
22.                       )
    
23.                     )
    
24.                    lst
    
25.            )
    
26.            (xdrx-prompt "\n共发现 " i " 组相同的文字.")
    
27.     )
    
28.   )
    
29.   (xdrx-end)
    
30.   (princ)
    
31. )
    
32. 
    

(defun c:xdtb_txtsrhsame (/ lst i x)<br />   (xdrx-begin)<br />   (xd::doc:getint "\n输入颜色号" "#xd-var-global-color" 1)<br />   (if (setq ss (xdrx-ssget "\n选择查找的文字<退出>:" '((0 . "*text"))))<br />     (progn (setq lst (mapcar '(lambda (x)<br />                                 (list (xdrx-getpropertyvalue x "textstring") x)<br />                               )<br />                              (xdrx-pickset->ents ss)<br />                      )<br />                  lst (xd::list:groupbyindex lst 1)<br />            )<br />            (setq i 0)<br />            (mapcar '(lambda (x)<br />                       (if (> (length (cdr x)) 1)<br />                         (progn (setq i (1+ i))<br />                                (xdrx-setpropertyvalue<br />                                  (cdr x)<br />                                  "color"<br />                                  #xd-var-global-color<br />                                )<br />                         )<br />                       )<br />                     )<br />                    lst<br />            )<br />            (xdrx-prompt "\n共发现 " i " 组相同的文字.")<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

音河之声

感谢楼主分享！！！