lisp在一条语句（函数）执行错误之后，如何继续执行下一条？
屏幕上有20个圆，我在圆内点1个点，就会在点的位置显示圆的面积，然后继续点下一个点。问题是，如果我有一个点点在圆外，程序的(command "bpoly" pt "") 语句就会出错，然后就跳出来了，我想的是如果能够不跳出来继续执行下一个圆就好了，请问怎么办？
(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后回车中止选点:")))
)
)
求懂的大神帮帮忙啊，什么all-catch***之类的语句都没有弄好。。。。 既然你知道原因了
加个IF不就好了
楼下说对吗？ (command "bpoly" pt "")
(setq en (entlast))
===>
(if (setq en (bpoly pt))
.... 呵呵，我试试看，不知道可以这样操作。
试了一下果然可以，(if (setq en (bpoly pt))这句里面没有""都帮我想到了，谢谢哈。
页:
[1]