visual lisp 出错进入下一循环