LEE,Nice work,Thank you!
this "(setq s (ssget "_:L" '((0 . "TEXT") (1 . "@##"))))"
Write when in the selected issues, such as the time when the A119 will occur not on the selection, there is the ability to ensure that when the text is replaced in the circle,
(if (not (tblsearch "layer" "qh"))
(command "layer" "n" "qh" "c" "2" "qh" "")
)
(defun c:test1 ( / ss i n elist )
(setq con1 (getpoint "\nFrist point:"))
(setq con2 (getcorner con1 "\nSecond point:"))
(if (setq s (ssget "w" con1 con2 '((1 . "[a-A-z-Z]*"))))
(repeat (setq i (sslength s))
(setq n (ascii (strcase (cdr (assoc 1 (setq l (entget (ssname s (setq i (1- i))))))))))
(entupd (cdr (assoc -1 (entmod (subst (cons 1 (itoa (- n 64))) (assoc 1 l) l)))))
)
)
(command "chprop" s "" "la" "qh" "")
(princ)
)