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

ZZXXQQ

bai2000 发表于 2014-4-16 19:43
可惜不支持天正文字

没试过怎么知道不行？

bai2000

ZZXXQQ 发表于 2014-4-16 21:59
没试过怎么知道不行？

试了，不行，选不上文字

品茗新秀

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

也就是点选改框选，框选中有不同文字，就给出不同的颜色，然后再去框选指定区域，一 一对应相应颜色

lyqiezi

不是不知道你说啥，就是想说，你有啥想法一次说清楚，不要解决了一个，又来一个要求，一次到位

lyqiezi

2. (defun c:tt()
   
3.   (princ "\n选择源文字")
   
4.   (setq ss1 (ssget '((0 . "TEXT"))))
   
5.   (princ "\n选择目标文字")
   
6.   (setq ss2 (ssget '((0 . "TEXT"))))
   
7.   (setq i 0)
   
8.   (if (and ss1 ss2)
   
9.     (while (< i (sslength ss1))
   
10.       (progn
    
11.         (setq text1 (cdr (assoc 1 (entget (ssname ss1 i)))))
    
12.         (command "_.CHPROP" (ssname ss1 i) "" "c" (1+ i) "")
    
13.         (command "select" ss2 "")
    
14.         (if (setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))
    
15.           (command "_.CHPROP" ss "" "c" (1+ i) "")
    
16.          )
    
17.       )
    
18.     (setq i (1+ i))
    
19.     )
    
20.    )
    
21.   (prin1)
    
22. )
    

(defun c:tt()<br />   (princ "\n选择源文字")<br />   (setq ss1 (ssget '((0 . "TEXT"))))<br />   (princ "\n选择目标文字")<br />   (setq ss2 (ssget '((0 . "TEXT"))))<br />   (setq i 0)<br />   (if (and ss1 ss2)<br />     (while (< i (sslength ss1))<br />       (progn<br />         (setq text1 (cdr (assoc 1 (entget (ssname ss1 i)))))<br />         (command "_.CHPROP" (ssname ss1 i) "" "c" (1+ i) "")<br />         (command "select" ss2 "")<br />         (if (setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))<br />           (command "_.CHPROP" ss "" "c" (1+ i) "")<br />          ) <br />       )<br />     (setq i (1+ i))<br />     )<br />    )<br />   (prin1)<br /> )<br />

请教一下
(setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))
这一句，我一开始没有把（0 . “text”)放进去，就一直调不出来，不知道是什么原因

lyqiezi

测试过你就知道了，只有完全一样的才变色


(setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))
这一句，我一开始没有把（0 . “text”)放进去，就一直调不出来，不知道是什么原因

这个谁来给我解答一下
我前段时间编的一个程序也是这个问题，我觉得text已经是过滤过的，怎么还要再进行一次过滤呢？

品茗新秀

(setq ss2 (ssget '((0 . "TEXT"))))如果能加上前一个选择集中的文字名称就好了

llsheng_73

一个功能不停追加需求，而自己却不想法根据最基本的功能进行修改完善，怎么看怎么不象是在学习，倒越看越象找义务劳工，也许我说错了,弄不好我因此成为挑事的，哎，随便吧

xyp1964

2. ;;需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]
   
3. (defun c:tt ()
   
4.   (princ "\n选择样板文本: ")
   
5.   (if (setq ss1 (ssget '((0 . "text"))))
   
6.     (progn
   
7.       (setq lst '() i -1)
   
8.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.         (if (not (member (setq t1 (xyp-DXF 1 s1)) lst))
   
10.           (setq lst (cons t1 lst))
    
11.         )
    
12.       )
    
13.       (setq lst (vl-sort lst '<)
    
14.             tx (xyp-strcat lst ",")
    
15.             nn (+ (length lst) 1)
    
16.             i -1
    
17.       )
    
18.       (princ "\n选择处理范围: ")
    
19.       (if (setq ss (ssget (list '(0 . "text") (cons 1 tx))))
    
20.         (progn
    
21.           (setq ss (ssdiff ss ss1))
    
22.           (while (setq s1 (ssname ss (setq i (1+ i))))
    
23.             (setq m (- nn (length (member (xyp-DXF 1 s1) lst))))
    
24.             (xyp-SubUpd s1 62 m)
    
25.           )
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    

;;需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]<br /> (defun c:tt ()<br />   (princ "\n选择样板文本: ")<br />   (if (setq ss1 (ssget '((0 . "text"))))<br />     (progn<br />       (setq lst '() i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (if (not (member (setq t1 (xyp-DXF 1 s1)) lst))<br />           (setq lst (cons t1 lst))<br />         )<br />       )<br />       (setq lst (vl-sort lst '<)<br />             tx (xyp-strcat lst ",")<br />             nn (+ (length lst) 1)<br />             i -1<br />       )<br />       (princ "\n选择处理范围: ")<br />       (if (setq ss (ssget (list '(0 . "text") (cons 1 tx))))<br />         (progn<br />           (setq ss (ssdiff ss ss1))<br />           (while (setq s1 (ssname ss (setq i (1+ i))))<br />             (setq m (- nn (length (member (xyp-DXF 1 s1) lst))))<br />             (xyp-SubUpd s1 62 m)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

lyqiezi

品茗新秀 发表于 2014-4-17 13:27
(setq ss2 (ssget '((0 . "TEXT"))))如果能加上前一个选择集中的文字名称就好了

这个想过，用处就是避免原先选择集中有重复文字，但是这个修改很容易，自己想办法吧，我还要搞清楚list的问题