AutoCAD LISP循环判断语句绘制多个圆内接正多边形

AutoCAD LISP循环判断，根据输入的正多边形边数，语句绘制多个圆内接正多边形，代码如下。

(defun c:test()
  (setq n (getint "请输入正多边形边数N："))
  (setq en (entsel "\n选取欲作内接多边形的圆："))
  (setq i 0)
  (while en
    (setq endata (entget (car en)))
    (setq entype (cdr (assoc 0 endata)))
    (if (= entype "CIRCLE")
      (progn
    (setq cenpt (cdr (assoc 10 endata)))
    (setq rad (cdr (assoc 40 endata)))
    (command "polygon" n cenpt "i" rad)
    (setq i (+ 1 i))
    )
      (alert "该对象不是圆，请重新选取圆")
      )
    (setq en (entsel "\n选取下一个欲作内接正多边形的圆："))
    )
  (princ (strcat "\n共绘制了" (itoa i) "圆内接正多边形"))
(prin1)
)
(prompt "\n<<test>>连续对多个圆绘制内接多边形")
(prin1)

代码完。