乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 45|回复: 3

[编程交流] create an on error resume (esp

[复制链接]

57

主题

183

帖子

126

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
285
发表于 2022-7-6 07:27:00 | 显示全部楼层 |阅读模式
How to create in Visual Lisp an  ON ERROR RESUME NEXT a specific block
in C# i use
  1. try {  COMMAND ERRO}catch{  // GO AHEAD , DONT BREAK}
 
Thanks
Rodrigo
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 07:47:54 | 显示全部楼层
Look into using vl-catch-all-apply
 
Please remember to use code tags...
 
[highlight][noparse]
  1. [/noparse][/highlight] Your code here [highlight][noparse]
[/noparse][/highlight]
回复

使用道具 举报

57

主题

183

帖子

126

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
285
发表于 2022-7-6 08:15:38 | 显示全部楼层
Sorry, thought it was only for use in large codes, I will do next time.
 
Do you have a simple example of vl-catch-all-apply ?
The examples I found on google are as difficult to understand much.
 
Thanks
Rodrigo
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:34:00 | 显示全部楼层
Silly example:
 
  1. (defun c:test ( / num result )   (if (setq num (getint "\nChoose a number... just not zero: "))       (progn           (if (vl-catch-all-error-p (setq result (vl-catch-all-apply '/ (list 10.0 num))))               (princ "\nI told you not to choose zero!")               (princ (strcat "\n10 / " (itoa num) " = " (rtos result 2)))           )       )   )   (princ))
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-10 05:02 , Processed in 0.502466 second(s), 71 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表