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

品茗新秀

求点选一文字，框选一定区域内的文字，如果该文字与点选文字相同，则相同文字变红色。

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. (defun c:tt ()
   
4.   (if (and (setq s1 (car (entsel "\n点选文字: ")))
   
5.            (xyp-etype s1 "text")
   
6.       )
   
7.     (if (setq ss (ssget (list '(0 . "text") (cons 1 (xyp-DXF 1 s1)))))
   
8.       (xyp-SubUpd ss 62 1)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (if (and (setq s1 (car (entsel "\n点选文字: ")))<br />            (xyp-etype s1 "text")<br />       )<br />     (if (setq ss (ssget (list '(0 . "text") (cons 1 (xyp-DXF 1 s1)))))<br />       (xyp-SubUpd ss 62 1)<br />     )<br />   )<br />   (princ)<br /> )

819534890

哇，楼主好大方。好像不难。
楼主指的相同是什么概念？只是文字内容一样，还是文字完全一样（包括全部属性）？

ZZXXQQ

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (and (setq s1 (entsel "\n选择文字: "))
   
5.           (setq ent (entget(car s1)))
   
6.                                         (wcmatch (cdr(assoc 1 ent)) "*TEXT")) (progn
   
7.   (princ "\n窗选文字: ")
   
8.         (if (setq ss (ssget (list '(0 . "*TEXT") (assoc 1 ent))))
   
9.          (command "_.CHPROP" ss "" "C" 1 "")
   
10.         )
    
11. ))
    
12. (setvar "CMDECHO" 1)
    
13. (princ)
    
14. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (and (setq s1 (entsel "\n选择文字: "))<br />           (setq ent (entget(car s1)))<br />                                         (wcmatch (cdr(assoc 1 ent)) "*TEXT")) (progn<br />   (princ "\n窗选文字: ")<br />         (if (setq ss (ssget (list '(0 . "*TEXT") (assoc 1 ent))))<br />          (command "_.CHPROP" ss "" "C" 1 "")<br />         )<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

xyp1964

2. (defun c:tt ()
   
3.   (defun dxf (code s1) (cdr (assoc code (entget s1))))
   
4.   (setq i -1)
   
5.   (if (and (setq s1 (car (entsel "\n点选文字: ")))
   
6.            (= (DXF 0 s1) "TEXT")
   
7.       )
   
8.     (if  (setq ss (ssget (list '(0 . "text") (cons 1 (DXF 1 s1)))))
   
9.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.         (vla-put-color (vlax-ename->vla-object s1) 1)
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt ()<br />   (defun dxf (code s1) (cdr (assoc code (entget s1))))<br />   (setq i -1)<br />   (if (and (setq s1 (car (entsel "\n点选文字: ")))<br />            (= (DXF 0 s1) "TEXT")<br />       )<br />     (if  (setq ss (ssget (list '(0 . "text") (cons 1 (DXF 1 s1)))))<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (vla-put-color (vlax-ename->vla-object s1) 1)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

bai2000

定起来

品茗新秀

如果能框选目标文字，再框选一定区域内的文字，如果该文字与框选文字相同，则相同文字变色。并用不同颜色区分,相同文字中的不同种类。

品茗新秀

xyp1964 发表于 2014-4-16 07:31

如果能框选目标文字，再框选一定区域内的文字，如果该文字与框选文字相同，则相同文字变色。并用不同颜色区分,相同文字中的不同种类。

lyqiezi

也不难啊，目标文字的颜色用 i 变量确定，再进入子程序查找相同文字

bai2000

可惜不支持天正文字