[讨论]：如何截获(vl-cmdf)函数的错误以进行处理？

灯火

示例如下：

2. 
   
3. (defun c:Test (/ ep1 ep2)
   
4.   (setq ep1 (entsel "\n选择第一个对象:"))
   
5.   (setq ep2 (entsel "\n选择第二个对象:"))
   
6.   (vl-cmdf "_.fillet" ep1 ep2)
   
7.   ;;当ep1和ep2无法构成倒角时，程序继续运行到结束，
   
8.   ;;而命令行一直提示选择第二个对象
   
9.   ;;如何截获(vl-cmdf)函数的错误以进行处理？
   
10.   (princ "\nTest")
    
11.   (princ)
    
12. )
    
13. 
    

<br /> (defun c:Test (/ ep1 ep2)<br />   (setq ep1 (entsel "\n选择第一个对象:"))<br />   (setq ep2 (entsel "\n选择第二个对象:"))<br />   (vl-cmdf "_.fillet" ep1 ep2)<br />   ;;当ep1和ep2无法构成倒角时，程序继续运行到结束，<br />   ;;而命令行一直提示选择第二个对象<br />   ;;如何截获(vl-cmdf)函数的错误以进行处理？<br />   (princ "\nTest")<br />   (princ)<br /> )<br /> <br />