[编程申请]：如何帮我的lsp加一个框选的功能？

cgjcgjcgj

小弟刚刚学习编lsp，以下的lsp仅仅可以在全图范围内查找，请各位大虾帮我加一个框选的功能？先谢了！
(defun c:fR ( )
      (setvar "cmdecho" 0)
      (setq target (getstring  "\n输入需要查找的字符串: "))
      (setq ss1 (ssget "x" '((0 . "TEXT")))
         ss1len (if (/= ss1 nil)(sslength ss1)(eval 0))
         index -1
         mat 0
         ac 5
       )
    (prompt (strcat "\n共"
                  (itoa ss1len) "个文本"))
   (while (> ac 0)
           (setq index (+ index 1)
                       ed (entget (ssname ss1 index))
             test (cdr (assoc 1 ed))          
            )
            (setq tstlen (strlen test)
          tarlen (strlen target)
         dif (+ (- tstlen tarlen) 1)
          z 0
         ind 0
         e5 0
            )
          (if (> dif 0)
             (repeat dif
                  (while (= z 0)
                         (setq ind (+ ind 1)
                                    temp (substr test ind tarlen)
                          )
                        (if (= temp target)
                   (progn
                        (setq  z 1
                           hi (cdr (assoc 40 ed))
                           txy (cdr (assoc 10 ed))
                           tx (nth 0 txy )
                           ty (nth 1 txy )
                           txx (+ (* hi 15) tx)
                           txxx (- tx (* hi 15))
                           tyy (+ (* hi 15) ty)
                           tyyy (- ty (* hi 15))  
                           q1 (list txxx tyy)
                           q2 (list txx tyyy))
                            (command "zoom" "w" q1 q2)
                            (setq yn (getstring  "\n是否查找下一个(Y/N)<Y>: "))
                            (if (= yn "n")(setq ac -5))
                            (if (= yn "N")(setq ac -5))
                      )
                        )
             (if (>= ind tstlen)(setq z 1))
             )
          )
       )

)
(princ)     
)

li_seagull

(setq ss1 (ssget "x" '((0 . "TEXT")))
换成(setq ss1 (ssget  '((0 . "TEXT")))