[求助]：请高手帮小弟看一下这段程序那里错的

ssgmyvvfb

已知有数个大大小小不同的圆，指定用正N边形，一一地对各指定圆，自囤出各圆的内接正N边形，赶到不选 取任何圆为止。
帮我验一下那里错了，修改一下谢谢！！！
如下：
(defun c:lin2 ()
  (setq n (getint "请求输入正多边形边数 N="))
  (setq en (entsel "\n请选择一个圆"))
  (setq i 0)
  (while en
    (setq en_data (entget (car en)))
    (setq en_type (cdr (assoc 0 en_data)))
    (if (= en_type "circle")
      (progn
        (setq cenpt (cdr (assoc 10 en_data)))
        (setq rad (cdr (assoc 40 en_data)))
        (command "polygon" n cenpt "I" rad)
        (setq I (1+ I))
      )
      (alert "该对象并不是圆 请重新选择圆")
    )
    (setq en (entsel "\n 选取下一个欲作内切正多边形的圆: "))
  )
  (princ (strcat "\n共绘制了" (itoa i) "圆内切正多边形"))
  (prin1)
)
(prompt "\n ****lin2***** 编著：林建义")
(prin1)

SLMin

(if (= en_type "circle")

circle要大写！！！！