如何批量选取指定直径范围圆中的文字，并将该文字变色

pimixixi

如何批量选取指定直径范围圆中的文字，并将该文字变色

st788796

1. (defun c:tt (/ e filter ss el nss tl)
   
2.   (and (setq
   
3.          e (car (xdrx_entsel "\n拾取指定半径园: " '((0 . "circle"))))
   
4.        )
   
5.        (progn
   
6.          (setq
   
7.            filter
   
8.             (list '(0 . "circle") (cons 40 (xdrx_getentdxf 40)))
   
9.          )
   
10.          (princ "\n拾取选择范围<回车全选>.....")
    
11.          (if (not (setq ss (ssget filter)))
    
12.            (setq ss (ssget "X" filter))
    
13.          )
    
14.        )
    
15.        (setq el (mapcar 'xdrx_entity_box (xdrx_pickset->ents ss)))
    
16.        (setq nss (ssadd))
    
17.        (mapcar '(lambda        (x)
    
18.                   (if (setq s (ssget "WP" x filter))
    
19.                     (ssadd s nss)
    
20.                   )
    
21.                 )
    
22.                el
    
23.        )
    
24.   )
    
25.   (princ)
    
26. )

(defun c:tt (/ e filter ss el nss tl)<br />   (and (setq<br />          e (car (xdrx_entsel "\n拾取指定半径园: " '((0 . "circle"))))<br />        )<br />        (progn<br />          (setq<br />            filter<br />             (list '(0 . "circle") (cons 40 (xdrx_getentdxf 40)))<br />          )<br />          (princ "\n拾取选择范围<回车全选>.....")<br />          (if (not (setq ss (ssget filter)))<br />            (setq ss (ssget "X" filter))<br />          )<br />        )<br />        (setq el (mapcar 'xdrx_entity_box (xdrx_pickset->ents ss)))<br />        (setq nss (ssadd))<br />        (mapcar '(lambda        (x)<br />                   (if (setq s (ssget "WP" x filter))<br />                     (ssadd s nss)<br />                   )<br />                 )<br />                el<br />        )<br />   )<br />   (princ)<br /> )

pimixixi

有演示就更好了