(defun c:tq()
  (setvar "cmdecho" 0)
  (setq dd (getdist "\n ÊäÈëÎÄ×ÖÓëÔ²ÖÜ¾àÀë<2.0>:"))
  (if (= dd nil) (setq dd 2.0))
  (setq ss (ssget))
  (setq i 0)
  (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq sstyp (cdr (assoc 0 ssdata)))
    (if (= sstyp "TEXT")
          (progn
	    (command "ucs" "e" ssn)
	    (setq box (textbox ssdata))
	    (setq p1 (car box))
	    (setq p3 (cadr box))
	    (setq p2 (list (car p3) (cadr p1)))
	    (setq p4 (list (car p1) (cadr p3)))
	    (setq dda (+ (/ (distance p1 p2) 2) dd))
	    (setq cen (inters p1 p3 p2 p4))
	    (command "circle" cen dda)
	   )
     )
     (setq i (1+ i))
    )
  (command "ucs" "")
  (prin1)
  )