tblobjname函数只能选同名块吗

mjthetuxedo

(defun jzf ( a )
 (* a (/ pi 180))
)
(defun c:tt3 (/ r p s n d)
   (setvar "cmdecho" 0)
   (setvar "osmode" 0)
   (setq s (ssget '((66 . 0 ))))
   (setq r (getint "输入起始序号："))
   (setq p (getdist "输入文字高度："))
   (while (setq s (entnext s))
     (if (= (setq n  (cdr (assoc 0 (entget s)))) "circle")
            (progn (setq d (cdr (assoc 10 (entget n))))
                       (command "_text" "j" "ml" (polar d (jzf 315) 300) p 0 (itoa r))))
   (setq r (1+ r)))
   (setvar "cmdecho" 1)
   (setvar "osmode" 5)
  (princ)
)

循环里的命令为什么不能运行？？？？
tblobjname函数只能选同名块吗？？？？？
很多个不同名块中的圆要如何同时提取