请教 为什么程序不能运行

xyz2009xyz

请教   为什么程序不能运行,没有错误，但是输入命令说不能识别


;******************************************************************************************
;;程序名称：自动让圆内单个文字移动到圆中心
; 执行命令：YJ
;窗口范围内有效
;******************************************************************************************
(defun YJ ( / ssdata ssy sst pc pw s1 r i)
  (setvar "CMDECHO" 0)
  (if
    (setq ssy (ssget "X" '((0 . "CIRCLE"))))
     (progn
       (setq i 0)
       (repeat (sslength ssy)
  (setq ssn (ssname ssy i))
  (setq ssdata (entget ssn))
  (setq pc (cdr (assoc 10 ssdata)))
     ;取圆心坐标
  (setq r (cdr (assoc 40 ssdata)))
     ;取圆半径
  (setq p1 (polar (polar pc 0 r) (/ pi 2) r))
     ;圆外接矩形的右上顶点
  (setq p2 (polar (polar pc pi r) (/ pi -2) r))
     ;圆外接矩形的左下顶点
  (if (setq sst (ssget "W" p1 p2 '((0 . "*TEXT"))))
    (if (= (sslength sst) 1)
      (progn
        (setq s1 (ssname sst 0))
        (setq pw (xyp-get-MinMaxPoint s1 5))
        (COMMAND "MOVE" s1 "" "NON" pw "NON" pc)
      )
    )
  )
  (setq i (1+ i))
       )
     )
  )
  (setvar "CMDECHO" 1)
  (princ)
)

xyp1964

(defun YJ ( / ssdata ssy sst pc pw s1 r i)
→
(defun c:YJ ( / ssdata ssy sst pc pw s1 r i)

xyz2009xyz

非常感谢，好初级的错误，呵呵，查了半天就是没看最前面几句!