查找块里面的文字内容并缩放到该文字处

神秘将军

如图，想查找块里面的文字，然后缩放到该文字处。本人有一个对text的查找，但是对块就不起作用了。求高手帮忙看看要如何改改呢？
附上查找text的文字内容
(defun c:fd()
  (SETQ GY(GETSTRING "\nPlease Input keyword£º"))
  (SETQ SS(SSGET "X" (list '(0 . "text") (cons 1 (strcat "*"GY"*")))))
  (SETQ SS1 (SSNAME SS 0))
  (SETQ SS2 (ENTGET SS1 '("*")))
  (SETQ p1 (cdr (assoc 10 SS2)) p1y (car p1) p1x (cadr p1) p1 (list p1y p1x))
  (SETQ XY1(LIST (+ P1Y 10) (+ P1X 10)) XY2(LIST (- P1Y 10) (- P1X 10)))
  (COMMAND "ZOOM" "W" XY1 XY2 )
  (REDRAW SS1 3)
)