重叠文字字符串比较，不同则改色。

shona521

将文字重叠后比较内容，如果内容不同，则将预先设为蓝色的文字改为红色。如图。还没有好的思路，请高手赐教。

重叠文字比较

st788796

重叠时哪个算上？哪个算下？

st788796

用 XDRXAPI 给你个思路，自己测试

1. (defun c:tt (/ ss bss wss bel wel)
   
2.   (if (setq ss (ssget '((0 . "TEXT") (-4 . "<or") (62 . 7) (62 . 4) (-4 . "or>"))))
   
3.     (progn
   
4.       (setq bss        (ssget "P" '((0 . "TEXT") '(62 . 4))) ;_蓝色选集
   
5.             wss        (xdrx_PickSet_Subtract ss bss) ;_白色选集
   
6.             bel        (xdrx_pickset->ents bss);_白色实体表
   
7.             wel        (mapcar        '(lambda (x)
   
8.                            (cons x (xdrx_getpropertyvalue x "Position" "Height" "Textstring"))
   
9.                          )
   
10.                         (xdrx_pickset->ents wss)
    
11.                 );_蓝色表
    
12.       )
    
13.       (mapcar
    
14.         '(lambda (x / p l)
    
15.            (setq p (xdrx_getpropertyvalue x "Position" "Height" "TextString")) ;_ 插入点、字高、文字内容
    
16.            (if (setq l (vl-member-if '(lambda (a) (equal p (cdr a) (cadr p))) wel))
    
17.              (progn
    
18.                (setq wel (vl-remove (car l) wel))
    
19.                (xdrx_setpropertyvalue (caar l) "ColorIndex" 1) ;_？
    
20.              )
    
21.            )
    
22.          )
    
23.         bel
    
24.       );_遍历白色文字实体
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

(defun c:tt (/ ss bss wss bel wel)<br />   (if (setq ss (ssget '((0 . "TEXT") (-4 . "<or") (62 . 7) (62 . 4) (-4 . "or>"))))<br />     (progn<br />       (setq bss        (ssget "P" '((0 . "TEXT") '(62 . 4))) ;_蓝色选集<br />             wss        (xdrx_PickSet_Subtract ss bss) ;_白色选集<br />             bel        (xdrx_pickset->ents bss);_白色实体表<br />             wel        (mapcar        '(lambda (x)<br />                            (cons x (xdrx_getpropertyvalue x "Position" "Height" "Textstring"))<br />                          )<br />                         (xdrx_pickset->ents wss)<br />                 );_蓝色表<br />       )<br />       (mapcar<br />         '(lambda (x / p l)<br />            (setq p (xdrx_getpropertyvalue x "Position" "Height" "TextString")) ;_ 插入点、字高、文字内容<br />            (if (setq l (vl-member-if '(lambda (a) (equal p (cdr a) (cadr p))) wel))<br />              (progn<br />                (setq wel (vl-remove (car l) wel))<br />                (xdrx_setpropertyvalue (caar l) "ColorIndex" 1) ;_？<br />              )<br />            )<br />          )<br />         bel<br />       );_遍历白色文字实体<br />     )<br />   )<br />   (princ)<br /> )<br />