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<>连续对多个圆绘制内接多边形")

(prin1)