求高手帮我解决一下这个程序问题

lixiaomin96

(defun c:7test3()
  (setq n(getint"请输入正多边形边数,N="))
  (initget"C c I i")
  (setq side(getkword"内切I或外切C:"))
  (setq en(entsel"选取圆:"))
  (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)))
 (cond
   ((= side"I")(command"polygon"n cenpt"I"rad))
   ((= side"C")(command"polygon"n cenpt"C"rad))
 )
 (setq I(1+ I))
      )
    (alert"该对象并不是圆,请重新选取圆")
    )
    (setq en(entsel"\n选取下一个欲作内切正多边形的圆:"))
  )
  (princ(strcat"\n共绘制了"(itoa i)"圆内切正多边形"))     
  (prinl)
)

怎么样能够使每次点圆的时候都出现选择内切还是外切啊，而且循环还不中止 ，求高手解答一下 小弟谢谢了 

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 1 才可浏览，你当前发帖数只有 0

没高手帮忙吗

lixiaomin96

谢谢版主，受益非浅，看样子我还需要继续努力

357785513

不可以批量变,有待提高