[Hướng dẫn] Nhờ sự trợ giúp từ mọi người: Sửa lisp tìm text có giá trị text valua giống với text mẫu được chọn.

[Thanh TV 2]

Em có tìm trên web một lisp tìm text cùng giá trị (text value bằng nhau) trên bản vẽ, nhưng phải chọn từng text mẫu rồi chọn vùng chứa text cần tìm.
Mong muốn mọi người chỉnh sửa, cải tiến thêm nội dung để phục vụ công việc được tốt hơn, cụ thể như sau:

B1: Nhập lệnh 

B2: Chọn một hoặc nhóm text mẫu (ví dụ: text mẫu hoặc nhóm text mẫu có giá trị text valua lần lượt là 17, 18, 19)

B3: Chọn vùng text cần tìm theo text mẫu đã chọn

B4: Hiện kết quả tìm được. (hiện tất cả các text có giá trị text valua lần lượt là 17, 18, 19)

Cảm ơn!

Lisp hiện có như sau:

TIM TEXT CUNG GIA TRI
(defun C:jk( / i txt ent)
(setq i 1 txt (cdr (assoc 1 (entget (car (entsel "\nChon Text mau: "))))))
(while (setq ent (car (entsel (strcat "\nChon Text mau " (itoa i) ": "))))
 (setq txt (strcat txt "," (cdr (assoc 1 (entget ent)))))
  (setq i (1+ i)))
(princ "\nChon nhom Text...")
(setq ss (ssget (list '(0 . "*TEXT") (cons 1 txt))))
(sssetfirst nil ss))

JK - TIM TEXT CUNG GIA TRI.lsp