求指点，命令后显示的错误信息什么原因？

atjsking

；修改圆的半径并移动该圆（或取消移动）
(DEFUN C:RG(/ ent-c pt1 old-r new-r oldr)
  (prompt "\n<RG>修改圆半径")
  (setvar "cmdecho" 0)                                       
  (setvar "blipmode" 0)                                    
  (setq ent-c (entget(car(entsel"\n请选择要修改的圆"))))
  (setq pt1(cdr(assoc 10 ent-c)));获得圆心坐标
  (setq old-r  (assoc 40 ent-c));获得半径
  (setq oldr (cdr old-r))
  (print "半径为：")(print oldr)
  (setq new-r (cons 40 (getdist pt1 "\n请指定半径")))
   (entmod   (subst new-r old-r ent-c))  
;;;  (setq entc   (subst new-r old-r ent-c)  )
;;;  (entmod entc )
(command "move" (entlast ) ""  pt1 (getdist pt1 "\n请指定位移点<空格取消>") "" )
  (prompt "\n<RG>Made With Saviner")
  (princ)
  )

以下为CAD命令行的显示内容
命令:  RG
<RG>修改圆半径
请选择要修改的圆
"半径为："
23.2781
请指定半径
请指定位移距离<取消>未知命令“RG”。按 F1 查看帮助。---------最后一行的显示为什么是未知命令？？？

lsjj

有Move那行多一組""

atjsking

lsjj 发表于 2013-8-11 14:29
有Move那行多一組""

谢谢 ！

补充下
command "move" (entlast ) ""  pt1 (getdist pt1 "\n请指定位移点<空格取消>") "" )
改为command "move" (entlast ) ""  pt1    pause )

另外对同个圆第2次使用该命令时候捕捉的还是最开始的那个圆心，该怎么改？

spiderman

出现未知命令，一般都是多写了一对双引号导致。

chenbh2

spiderman 发表于 2013-8-11 15:11
出现未知命令，一般都是多写了一对双引号导致。

我找不到原因！真是多谢！