求点选一文字，框选一定区域内的文字，如果该文字与点选文字相同

lyqiezi

好傻，选SS2的时候，把SS1也含进去就不用重新编程了

lyqiezi

测试图片

重慶崽兒

1. (defun c:tt()
   
2.   (setq nr (cdr (assoc 1 (entget (car (entsel "\n请选择对象:"))))))
   
3.   (setq ss (ssget '((0 . "TEXT"))))
   
4.   (setq i 0)
   
5.   (setq j 0)
   
6.   (repeat (sslength ss)
   
7.     (setq name (ssname ss i))
   
8.     (setq en (entget name))
   
9.     (setq nr1 (cdr (assoc 1 en)))
   
10.     (cond
    
11.       ((and (= nr nr1) (assoc 62 en)) (progn (entmod (subst (cons 62 1) (assoc 62 en) en)) (setq j (+ j 1))))
    
12.       ((and (= nr nr1) (not (assoc 62 en))) (progn (entmod (append en (list (cons 62 1)))) (setq j (+ j 1))))
    
13.     )
    
14.     (setq i (1+ i))
    
15.   )
    
16.   (print (strcat "相同内容字的个数为：" (itoa j) "个。"))
    
17.   (princ)
    
18. )

(defun c:tt()<br />   (setq nr (cdr (assoc 1 (entget (car (entsel "\n请选择对象:"))))))<br />   (setq ss (ssget '((0 . "TEXT"))))<br />   (setq i 0)<br />   (setq j 0)<br />   (repeat (sslength ss)<br />     (setq name (ssname ss i))<br />     (setq en (entget name))<br />     (setq nr1 (cdr (assoc 1 en)))<br />     (cond<br />       ((and (= nr nr1) (assoc 62 en)) (progn (entmod (subst (cons 62 1) (assoc 62 en) en)) (setq j (+ j 1))))<br />       ((and (= nr nr1) (not (assoc 62 en))) (progn (entmod (append en (list (cons 62 1)))) (setq j (+ j 1))))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (print (strcat "相同内容字的个数为：" (itoa j) "个。"))<br />   (princ)<br /> )

我就随便写写，练练手！

93619320

谢谢分享。

hotson

能把相同的文字画圈圈出来？