Topic: Lisp text search

[hcbn1997]

I have a lisp that searches for text and the content of Mr. Doan Van Ha as follows. The command will be 22, then select the text with the content GJ5 for example (eg picture). After clicking on GJ5, the command will ask and select Object. Now I want the step to select Obejcts to automatically select the full drawing. That is, after pressing command 22 and then pressing the word "GJ5", all the letters in GJ5 in the drawing will be selected, no need to select the area anymore.
I hope everyone can help me fix it. Thanks everyone !!!

[hcbn1997]

pic

[danAllen]

Try this. Added "X" to select all, also added echo of text picked, and princ at end for clean finish.

Code - Auto/Visual Lisp: [Select]

1. (defun C:22( / txt)
2.   (setq txt (cdr (assoc 1 (entget (car (entsel "\nChon Text mau: "))))))
3.   (princ (strcat "\nChon nhom Text..." txt))
4.   (setq ss (ssget "X" (list '(0 . "*TEXT") (cons 1 txt))))
5.   (sssetfirst nil ss)
6.   (princ)
7. )
8.  

[hcbn1997]

Try this. Added "X" to select all, also added echo of text picked, and princ at end for clean finish.

Code - Auto/Visual Lisp: [Select]

1. (defun C:22( / txt)
2.   (setq txt (cdr (assoc 1 (entget (car (entsel "\nChon Text mau: "))))))
3.   (princ (strcat "\nChon nhom Text..." txt))
4.   (setq ss (ssget "X" (list '(0 . "*TEXT") (cons 1 txt))))
5.   (sssetfirst nil ss)
6.   (princ)
7. )
8.  

thanks you so much