判断文字是否压盖

cz7873559

请求高手帮忙:    所选图中的（单行）文字，如果文字有互相压盖的，则把此文字颜色变成绿色。谢谢！

zxq0220

2. ;文字压盖变色 晓东 zxq0220 2014.6.12世界杯前夜
   
3. (defun c:tt ()
   
4. (vl-load-com)   ;加载vlisp函数
   
5. (if (setq ss (ssget '((0 . "TEXT")))) (progn ;选择操作对象
   
6.   (setq i 0)                                  ;定义索引号
   
7.   (repeat (sslength ss)                       ;遍历选集
   
8.    (setq en (ssname ss i)                     ;图元名
   
9.          ent (entget en)                      ;关联表
   
10.          obj (vlax-ename->vla-object en))     ;转化成VLA对象
    
11.    (vla-getboundingbox obj 'pt1 'pt2)         ;文字对象外框
    
12.    (setq pt1 (vlax-safearray->list pt1)       ;转化为坐标
    
13.          pt2 (vlax-safearray->list pt2))
    
14.    (if (setq ss1 (ssget "c" pt1 pt2 '((0 . "TEXT"))));TEXT对象
    
15.     (if (> (sslength (ssdel en ss1)) 0)       ;去掉原字串
    
16.      (if (assoc 62 ent)                       ;判断是否设定颜色
    
17.       (entmod (subst '(62 . 3) (assoc 62 ent) ent));改色
    
18.       (entmod (append ent '((62 . 3))))
    
19.      )
    
20.     )
    
21.    )
    
22.    (setq i (1+ i))
    
23.   )
    
24. ))
    
25. (princ)   ;静默退出
    
26. )
    

;文字压盖变色 晓东 zxq0220 2014.6.12世界杯前夜<br /> (defun c:tt ()<br /> (vl-load-com)   ;加载vlisp函数<br /> (if (setq ss (ssget '((0 . "TEXT")))) (progn ;选择操作对象<br />   (setq i 0)                                  ;定义索引号<br />   (repeat (sslength ss)                       ;遍历选集<br />    (setq en (ssname ss i)                     ;图元名<br />          ent (entget en)                      ;关联表<br />          obj (vlax-ename->vla-object en))     ;转化成VLA对象<br />    (vla-getboundingbox obj 'pt1 'pt2)         ;文字对象外框<br />    (setq pt1 (vlax-safearray->list pt1)       ;转化为坐标<br />          pt2 (vlax-safearray->list pt2))<br />    (if (setq ss1 (ssget "c" pt1 pt2 '((0 . "TEXT"))));TEXT对象<br />     (if (> (sslength (ssdel en ss1)) 0)       ;去掉原字串<br />      (if (assoc 62 ent)                       ;判断是否设定颜色<br />       (entmod (subst '(62 . 3) (assoc 62 ent) ent));改色<br />       (entmod (append ent '((62 . 3))))<br />      )<br />     )<br />    )<br />    (setq i (1+ i))<br />   )<br /> ))<br /> (princ)   ;静默退出<br /> )<br />

/db_自贡黄明儒_

取两点的话，除非文学正放。不过，不过基本上够用了

cz7873559

运行时候提示参数类型错误，单行文字样式会有影响吗？

zxq0220

cz7873559 发表于 2014-6-13 13:58
运行时候提示参数类型错误，单行文字样式会有影响吗？

沙发改了，再试试。

cz78873559

谢谢zxq0220，运行得起了。但是似乎有些不稳定，如果选择过多文字，可能会把所有的文字都变色了。麻烦你再帮我优化优化嘛~