奇怪了~！！！来高手帮我看看怎么回事

mjthetuxedo

(defun jzf ( a )
 (* a (/ pi 180))
)
(defun c:tt2 (/ r p s n)
   (setvar "cmdecho" 0)
   (setq s (ssget (list '(0 . "CIRCLE"))))
   (setq r (getint "输入起始序号："))
   (setq p (getdist "输入文字高度："))
   (repeat (setq n (sslength s))
      (command "_text" "j" "ml"
           (polar (cdr (assoc 10 (entget (ssname s (setq n (1- n)))))) (jzf 315) 300)
                p 0 (itoa r))
   (setq r (1+ r)))
   (setvar "cmdecho" 1)
  (princ)
)

这是自动取圆心编号的代码~~
我想把号码放到圆外面~~可为什么有时候号码能自动移在外面~
可有时却在圆心~~~
(polar (cdr (assoc 10 (entget (ssname s (setq n (1- n)))))) (jzf 315) 300)
这段代码不知道有什么问题~~
怎么有时编号在圆外~有时却在圆里面~~~~~~

mjthetuxedo

老问题~~我在论坛找了很久都没发现啊~~
知道的请回复一下~！！！！
例：我建了一个块~由三个圆形组成（成正三角形分布）~
并在一张图里插入了多个~！！
我想提取这些块中的圆心要怎么弄~！！！

caoyin

(setvar "osmode" 0)