高手帮忙看看

mjthetuxedo

(defun dft ( 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)))))) (dft 315) 300)
           p 0 (itoa r) "")
   (setq r (1+ r)))
   (setvar "cmdecho" 1)
  (princ)
)

我写了段自动捕圆心顺序编号的代码
能现实编号~~
可为什么运行时总出现很多下面的提示~
未知命令“TT2”。按 F1 查看帮助。
未知命令“TT2”。按 F1 查看帮助。
未知命令“TT2”。按 F1 查看帮助。
未知命令“TT2”。按 F1 查看帮助。
未知命令“TT2”。按 F1 查看帮助。
未知命令“TT2”。按 F1 查看帮助。

圆越多~~也就是一次编号越多的话~出现的次数就越多~~不知道哪出问题了~~
不过编号能顺利实现~~

mjthetuxedo

顺便提一个问题~~
我将多个圆组合成一个块后~~
如何还能提取块中各圆的圆心啊~！！！！
一个个加圆太费事了~~

ZZXXQQ

1楼问题：在调用命令TEXT的最后多了一对双引号。

2楼问题：看看论坛中“读取块中数据”的贴子。