本帖最后由 dcl1214 于 2024-4-17 12:06 编辑
以下良好习惯虽然不是有助于编译程序,但是有助于代码稳定性
 - (getpoint "请点击一点")
如果用户按下了esc,那么就会导致程序退出,一旦程序退出,你还要在代码里面加上出错恢复,为了不让用户乱操作导致程序出错,请改成以下代码:
 - (while (not p)
- (setq p (vl-catch-all-apply 'getpoint (list "请点击一点\nQ 退出")))
- (if (vl-catch-all-error-p p)
- (progn(setq p nil)(alert "你想退出吗?可以叫开发人员通过initget控制您使用Q代替esc"))
- )
- )
这一段代码就可以屏蔽用户的esc的错误行为
|