entsel选择后，如何让被选择的对象区别于别的对象

hubeiwdlue

最近写了全图查找2个以上不同文字，并全选它们的代码，但是发现选择的时候，cad中，选择的文字没有反应，虽然对最后的执行结果没有影响，但总感觉少了点什么。请教各位大佬，这个问题，一般怎么解决？

1. ;;根据文本*text图元名a创建一个选择集，该选择集包含全图中所有相同文字的文本
   
2. (defun W:wz(a / b pd tt)
   
3.   (setq b (entget a))
   
4.   (setq tt (ssget "_X" (list(cons 0 "*text")(cons 1 (cdr(assoc 1 b))))))
   
5.   tt
   
6. )
   
7. ;;错误函数
   
8. (defun err1 (sss)
   
9.     (if sss
   
10.       (progn
    
11.        (princ "\n错误，仅能选择文字，请重新选择:")
    
12.        (setq *error* olderr)
    
13.       )
    
14.     )
    
15.   )
    
16. 
    
17. ;;主函数
    
18. (defun c:dxz()
    
19.   (setq olderr *error*
    
20.                 *error* err1)
    
21.   (princ "\n请选择要查找的文字:")
    
22.   (setq a (car (entsel)))
    
23.   (setq tt (W:wz a))  
    
24.   (setq loop t)
    
25.   (while loop
    
26.     (princ "\n请选择要查找的文字:")
    
27.     (setq b (car (entsel)))
    
28.     (if (not (= b nil))
    
29.       (progn
    
30.       (setq ss (W:wz b))
    
31.       (setq n (sslength ss))
    
32.       (setq i 0)
    
33.       (repeat n
    
34.        (ssadd (ssname ss i) tt)
    
35.        (setq i (1+ i))
    
36.       ))
    
37.       (setq loop nil)  
    
38.       )
    
39.   )
    
40.   (sssetfirst nil tt)   
    
41.   (princ)  
    
42. )

;;根据文本*text图元名a创建一个选择集，该选择集包含全图中所有相同文字的文本<br /> (defun W:wz(a / b pd tt)<br />   (setq b (entget a))<br />   (setq tt (ssget "_X" (list(cons 0 "*text")(cons 1 (cdr(assoc 1 b))))))<br />   tt<br /> )<br /> ;;错误函数<br /> (defun err1 (sss)<br />     (if sss<br />       (progn<br />        (princ "\n错误，仅能选择文字，请重新选择:")<br />        (setq *error* olderr)<br />       )<br />     )<br />   )<br /> <br /> ;;主函数<br /> (defun c:dxz()<br />   (setq olderr *error*<br />                 *error* err1)<br />   (princ "\n请选择要查找的文字:")<br />   (setq a (car (entsel)))<br />   (setq tt (W:wz a))  <br />   (setq loop t)<br />   (while loop <br />     (princ "\n请选择要查找的文字:")<br />     (setq b (car (entsel)))<br />     (if (not (= b nil))<br />       (progn <br />       (setq ss (W:wz b))<br />       (setq n (sslength ss))<br />       (setq i 0)<br />       (repeat n<br />        (ssadd (ssname ss i) tt)<br />        (setq i (1+ i))<br />       ))<br />       (setq loop nil)  <br />       )<br />   )<br />   (sssetfirst nil tt)    <br />   (princ)  <br /> )

hubeiwdlue

ssyfeng 发表于 2023-9-1 10:12
那个循环没啥用

您好，我重新写了一遍，但是有一段总是出错，(setq tt (ssget "_X" (list(cons 0 "*text")(-4 . "<or") filter (-4 . "or>"))))，filter套了2个括号，我也不知道有什么函数可以把这些点对重新组成一个表。既然您说不需要那个循环，那应该是有办法解决的吧。

2. (defun c:dxz()
   
3.         (setq olderr *error*
   
4.                 *error* err1)
   
5.         (princ "\n请选择要查找的文字:")
   
6.          (if (setq ss (ssget ":E" '((0 . "*TEXT"))))
   
7.     (progn
   
8.       (setq n (sslength ss))
   
9.                   (setq i 0)
   
10.                         (setq ent nil)
    
11.                         (repeat n
    
12.                           (setq en (ssname ss i))
    
13.                                 (setq ent (append ent (list en)))
    
14.                           (setq i (1+ i))
    
15.                   ))
    
16.     (princ "\n未选中文字！")
    
17.   )
    
18.         (setq filter (mapcar '(lambda (x) (cons 1 (cdr(assoc 1 (entget x)))))ent))
    
19.        
    
20.         (setq tt (ssget "_X" (list(cons 0 "*text")(-4 . "<or") filter (-4 . "or>"))))
    
21.         (sssetfirst nil tt)               
    
22.         (princ)       
    
23. )

(defun c:dxz()<br />         (setq olderr *error*<br />                 *error* err1)<br />         (princ "\n请选择要查找的文字:")<br />          (if (setq ss (ssget ":E" '((0 . "*TEXT"))))<br />     (progn <br />       (setq n (sslength ss))<br />                   (setq i 0)<br />                         (setq ent nil)<br />                         (repeat n<br />                           (setq en (ssname ss i))<br />                                 (setq ent (append ent (list en)))<br />                           (setq i (1+ i))<br />                   ))<br />     (princ "\n未选中文字！")<br />   )<br />         (setq filter (mapcar '(lambda (x) (cons 1 (cdr(assoc 1 (entget x)))))ent))<br />         <br />         (setq tt (ssget "_X" (list(cons 0 "*text")(-4 . "<or") filter (-4 . "or>"))))<br />         (sssetfirst nil tt)                <br />         (princ)        <br /> )

bonny

hubeiwdlue 发表于 2023-9-1 14:03
一顿乱试，试出问题了。现已经解决，谢谢各位大神的指导。

2. (defun c:tt (/ s)
   
3.         (if (and (setq s (ssget ":E:S" '((0 . "*TEXT"))))
   
4.                           (setq s (ssname s 0))
   
5.                                 (setq s (cons 1 (strcat "*" (cdr (assoc 1 (entget s))) "*")))
   
6.                                 (setq s (ssget "A" (list '(0 . "*TEXT") s)))
   
7.                         )
   
8.                 (sssetfirst nil s)
   
9.         )
   
10.         (princ)
    
11. )
    
12. ;;===========================================
    
13. 
    
14. (defun c:tt (/ s ss)
    
15.   (if (and (setq s (ssget ":E:S" '((0 . "*TEXT"))))
    
16.         (setq s (ssname s 0))
    
17.         (setq ss (cons 1 (strcat "*" (cdr (assoc 1 (entget s))) "*")))
    
18.         (setq ss (ssget "A" (list '(0 . "*TEXT") ss)))
    
19.       )
    
20.     (sssetfirst nil (ssdel s ss))
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt (/ s)<br />         (if (and (setq s (ssget ":E:S" '((0 . "*TEXT"))))<br />                           (setq s (ssname s 0))<br />                                 (setq s (cons 1 (strcat "*" (cdr (assoc 1 (entget s))) "*")))<br />                                 (setq s (ssget "A" (list '(0 . "*TEXT") s)))<br />                         )<br />                 (sssetfirst nil s)<br />         )<br />         (princ)<br /> )<br /> ;;===========================================<br /> <br /> (defun c:tt (/ s ss)<br />   (if (and (setq s (ssget ":E:S" '((0 . "*TEXT"))))<br />         (setq s (ssname s 0))<br />         (setq ss (cons 1 (strcat "*" (cdr (assoc 1 (entget s))) "*")))<br />         (setq ss (ssget "A" (list '(0 . "*TEXT") ss)))<br />       )<br />     (sssetfirst nil (ssdel s ss))<br />   )<br />   (princ)<br /> )

hubeiwdlue

一顿乱试，试出问题了。现已经解决，谢谢各位大神的指导。

2. (defun c:dxz(/ ss n i ent en filter tt)
   
3.         (princ "\n请选择要查找的文字:")
   
4.          (if (setq ss (ssget ":E" '((0 . "*TEXT"))))
   
5.     (progn
   
6.       (setq n (sslength ss))
   
7.                   (setq i 0)
   
8.                         (setq ent nil)
   
9.                         (repeat n
   
10.                           (setq en (ssname ss i))
    
11.                                 (setq ent (append ent (list en)))
    
12.                           (setq i (1+ i))
    
13.                   ))
    
14.     (princ "\n未选中文字！")
    
15.   )
    
16.         (setq filter (mapcar '(lambda (x) (cons 1 (cdr(assoc 1 (entget x)))))ent))
    
17.         (setq filter (append (list (cons 0 "*text")) '((-4 . "<or")) filter '((-4 . "or>"))))       
    
18.         (setq tt (ssget "_X" filter))
    
19.         (sssetfirst nil tt)               
    
20.         (princ)       
    
21. )

(defun c:dxz(/ ss n i ent en filter tt)<br />         (princ "\n请选择要查找的文字:")<br />          (if (setq ss (ssget ":E" '((0 . "*TEXT"))))<br />     (progn <br />       (setq n (sslength ss))<br />                   (setq i 0)<br />                         (setq ent nil)<br />                         (repeat n<br />                           (setq en (ssname ss i))<br />                                 (setq ent (append ent (list en)))<br />                           (setq i (1+ i))<br />                   ))<br />     (princ "\n未选中文字！")<br />   )<br />         (setq filter (mapcar '(lambda (x) (cons 1 (cdr(assoc 1 (entget x)))))ent))<br />         (setq filter (append (list (cons 0 "*text")) '((-4 . "<or")) filter '((-4 . "or>"))))        <br />         (setq tt (ssget "_X" filter))<br />         (sssetfirst nil tt)                <br />         (princ)        <br /> )

ssyfeng

那个循环没啥用

1. ;;根据文本*text图元名a创建一个选择集，该选择集包含全图中所有相同文字的文本
   
2. (defun W:wz (a / b pd tt)
   
3.   (setq b (entget a))
   
4.   (setq tt (ssget "_X" (list (cons 0 "*text")(cons 1 (cdr(assoc 1 b))))))
   
5.   tt
   
6. )
   
7. ;;错误函数
   
8. (defun err1 (sss)
   
9.   (if sss
   
10.     (progn
    
11.       (princ "\n错误，仅能选择文字，请重新选择:")
    
12.       (setq *error* olderr)
    
13.     )
    
14.   )
    
15. )
    
16. ;;主函数
    
17. (defun c:dxz()
    
18.   (setq olderr *error*
    
19.     *error* err1
    
20.   )
    
21.   (princ "\n请选择要查找的文字:")
    
22.   (if (setq ss (ssget ":s" '((0 . "*TEXT"))))
    
23.     (progn
    
24.       (setq a (ssname ss 0))
    
25.       (setq tt (W:wz a))  
    
26.       (sssetfirst nil tt)
    
27.     )
    
28.     (princ "\n未选中文字！")
    
29.   )
    
30.   (princ)
    
31. )

;;根据文本*text图元名a创建一个选择集，该选择集包含全图中所有相同文字的文本<br /> (defun W:wz (a / b pd tt)<br />   (setq b (entget a))<br />   (setq tt (ssget "_X" (list (cons 0 "*text")(cons 1 (cdr(assoc 1 b))))))<br />   tt<br /> )<br /> ;;错误函数<br /> (defun err1 (sss)<br />   (if sss<br />     (progn<br />       (princ "\n错误，仅能选择文字，请重新选择:")<br />       (setq *error* olderr)<br />     )<br />   )<br /> )<br /> ;;主函数<br /> (defun c:dxz()<br />   (setq olderr *error* <br />     *error* err1<br />   )<br />   (princ "\n请选择要查找的文字:")<br />   (if (setq ss (ssget ":s" '((0 . "*TEXT"))))<br />     (progn <br />       (setq a (ssname ss 0))<br />       (setq tt (W:wz a))  <br />       (sssetfirst nil tt)<br />     )<br />     (princ "\n未选中文字！")<br />   )<br />   (princ)<br /> )

hubeiwdlue

ssyfeng 发表于 2023-9-1 10:12
那个循环没啥用

谢谢您的指导，扩宽思路。我在重新写一个。

664571221

hubeiwdlue 发表于 2023-9-1 10:38
谢谢您的指导，扩宽思路。我在重新写一个。

大神你重新写的能否上传一下

hubeiwdlue

664571221 发表于 2023-9-1 11:36
大神你重新写的能否上传一下

我是新手，刚开始学，遇到问题就来论坛上问一下。

664571221

hubeiwdlue 发表于 2023-9-1 11:50
我是新手，刚开始学，遇到问题就来论坛上问一下。

重写的代码麻烦上传一下

xyp1964

(defun c:tt ()
  (princ "\n请选择要查找的文字: ")
  (if (setq ss (ssget  '((0 . "*TEXT"))))
    (sssetfirst nil ss)
  )
  (princ)
)