我想的是如果能够不跳出来继续执行下一个圆就好了，请问该怎么办？

Question

(defun c:ad() ;;;;程序选择可以求几个圆的面积，并在圆框内写出面积大小。
(defun *error* (msg)
(print msg)
(setq ccxx (strcat "求面积失败!!!第" i0 "个面积求取不成功。")); ccxx:出错信息
(alert ccxx)
(princ)
)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(while (/= 0 (getvar "cmdactive")) (command ""))

(setq yorn "" i 1 i0 "1")
(while (eq yorn "")
(setq pt (getpoint "选取点: \n"))
;;;;以下在点圆中取一个点，并获取面积
(command "bpoly" pt "") 
(setq en (entlast))
(command "area" "o" en)
(setq mj (getvar "area"))
(setq mj (rtos mj))
(command "text" "j" "mc" pt "0" mj "")
;;;;获取面积成功并写出
(setq i (1+ i) i0 (itoa i))
(setq yorn (getstring (strcat "添加第" i0 "个点?回车确认或输入n后回车中止选点:")))
) 
)
屏幕上有20个圆，我在圆内点1个点，就会在点的位置显示圆的面积，然后继续点下一个点。
问题是，如果我有一个点点在圆外，程序的(command "bpoly" pt "") 语句就会出错，然后就跳出来了，我想的是如果能够不跳出来继续执行下一个圆就好了，请问怎么办

Answer 1

;圆具有面积属性，没有必要生成一个边界再来求面积;选取圆后自动标注面积(可单选、多选或框选)(defun c:bzymj()(vl-load-com)(setq cm (getvar "cmdecho") os (getvar "osmode"))(setvar "cmdecho" 0) (setvar "osmode" 0)(command "_undo" "be")(while (progn(princ "\n请选取圆:")(setq ssa (ssget '((0 . "circle")))))(setq i 0)(repeat (sslength ssa)(setq ent (ssname ssa i)obj (vlax-ename->vla-object ent)pt (vlax-get obj "Center")mj (rtos (vlax-get obj "area") 2 3)Hig (* (vlax-get obj "diameter") 0.618)i (1+ i))(command "_text" "j" "mc" pt Hig 0 mj)))(command "_undo" "e")(setvar "osmode" os) (setvar "cmdecho" cm) (princ))