乐筑天下

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

[编程交流] 什么'；如果用户按

[复制链接]
Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:16:47 | 显示全部楼层 |阅读模式
大家好
 
假设我有以下例程，用户在完成Lisp之前按下了Cancel。
 
  1. (setq os (getvar 'osmode))
  2. (setvar 'osmode 0)
  3. ............. Here is the rest of codes
  4. ..... So the user Canceled the Lisp
  6. [color="#f4a460"][color="#f4a460"][color="red"][b](setvar 'osmode os) ; <<-- This System Variable won't be re-set as it was before.[/b][/color][/color][/color]

 
要还原的示例
  2.  (setq SUS_LIST (list "cmdecho" "orthomode" "osmode" "blipmode" "clayer" "snapang" "textsize" "textstyle" "angbase" "angdir")
  3.        SUS      (mapcar 'getvar SUS_LIST)
  4.        TERR *error*
  5.       *error* MD_SET)

 
例如，如果用户按下escape或发生错误。
  2. (defun MD_RUS ()
  3.  (setq *error* TERR)
  4.  (if SUS (mapcar 'setvar SUS_LIST SUS))
  5.  (princ "\nMechanical Duct - Imperial, Copyright © 2010")
  6.  (princ "\nThe program will now restore the user settings and exit.")
  7.  (princ))
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:23:03 | 显示全部楼层
看看这里
http://www.afralisp.net/autolisp/tutorials/error-trapping.php
回复

使用道具 举报

lpseifert

4

主题

940

帖子

961

银币

初来乍到

Rank: 1

铜币
12
发表于 2022-7-6 10:24:43 | 显示全部楼层
 
这就是我得到上面这个的地方。
打得好，拉里。
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:27:09 | 显示全部楼层
这是错误捕获的链接
 
http://www.afralisp.net/archive/lispa/lisp6.htm
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:30:32 | 显示全部楼层
当我第一次了解他们时，我发现罗伯特·贝尔的错误处理程序是一个很好的起点；从非盟课程中学习：
 
  2. (defun MD_SET (ERRORMSG)
  3.  (command nil nil nil)
  4.  (if (not (member ERRORMSG '("console break" "Function cancelled")))
  5.    (princ (strcat "\nError:" ERRORMSG)))
  6.  (if SUS (mapcar 'setvar SUS_LIST SUS))
  7.  (princ "\nAttention!....A user error has occurred.")
  8.  (princ "\nThe program will now restore the user settings and exit.")
  9.  (terpri)
  10.  (setq *error* TERR)
  11.  (princ))
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:34:09 | 显示全部楼层
我使用的。。。
  2. (defun *error* (msg)
  3.  (cond ((not msg))                                              ; Normal exit
  4.    ((member msg '("Function cancelled" "quit / exit abort")))   ; <esc> or (quit)
  5.    ((princ (strcat "\n  <!>  Error: " msg "  <!> "))            ; Fatal error, display it
  6.     (cond ((vl-bb-ref '*Debug*) (vl-bt)))))                     ; If in debug mode, dump backtrace
  7.  (princ))
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 10:37:47 | 显示全部楼层
 
谢谢大家，我的回复很好。
 
所以我发现Renderman先生支持的代码对我来说是最容易处理的，所以会是这样吗。。。
 
  1. (defun *error* (msg)
  2.  (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))
  3.    (princ (strcat "\nError: " msg))
  4.  )
  5. )

 
因为如果用户按下cancel，例程将重新设置error defun中包含的系统变量。
 
是这样吗？
 
再次感谢大家。
回复

使用道具 举报

Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:41:30 | 显示全部楼层
别忘了本地化*error*函数！！！
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 10:44:57 | 显示全部楼层
这就是你说的艾伦先生吗。？
  1. (defun *error* (msg)
  2.  (cond ((not msg))                                              ; Normal exit
  3.    ((member msg '("Function cancelled" "quit / exit abort")))   ; <esc> or (quit)
  4.    ((princ (strcat "\n  <!>  Error: " msg "  <!> "))            ; Fatal error, display it
  5.     (cond ((vl-bb-ref '*Debug*) (vl-bt)))))                     ; If in debug mode, dump backtrace
  6.    [b][color="red"](setvar 'osmode os) [/color][/b]
  7.  (princ))
  9. (setq os (getvar 'osmode))
  10. (setvar 'osmode 0)
  11. ..........
  12. .............. code of the routine
  14. (setvar 'osmode os)
回复

使用道具 举报

Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:46:28 | 显示全部楼层
不，在实际例程中本地化*error*函数本身。
 
如。
  1. (defun *error* (msg [b][color="red"]/ os[/color][/b])
  2.  (cond ((not msg))                                              ; Normal exit
  3.    ((member msg '("Function cancelled" "quit / exit abort")))   ; <esc> or (quit)
  4.    ((princ (strcat "\n  <!>  Error: " msg "  <!> "))            ; Fatal error, display it
  5.     (cond ((vl-bb-ref '*Debug*) (vl-bt)))))                     ; If in debug mode, dump backtrace
  6.    (setvar 'osmode os) 
  7.  (princ))
  9. (setq [b][color="red"]os[/color][/b] (getvar 'osmode))
  10. (setvar 'osmode 0)
  11. ..........
  12. .............. code of the routine
  14. (setvar 'osmode os)
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 20:42 , Processed in 0.350328 second(s), 72 queries .

© 2020-2025 乐筑天下

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