[求助]：按esc键中断程序，如何使CAD自动恢复到执行该程序前的状态

hsslyl · 发表于 2004-11-16 10:44:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

按esc键中断程序，如何使CAD自动恢复到执行该程序前的状态。如：取消已画的矢量线、取消已亮显的物体。以前好像有见过对该问题的讨论，有提及*error*等函数。望各位指点，谢谢！

tuger · 发表于 2004-11-16 11:17:19

设置好出错程序处理就可以了，程序运行前

hsslyl · 发表于 2004-11-16 16:15:28

能再详细些么？谢谢楼上的大大

aidraft · 发表于 2004-11-16 21:20:13

先详细看看下面的连接

[iframe h=600]http://www.afralisp.com/lispa/lisp6.htm[/iframe]

hsslyl · 发表于 2004-11-18 16:46:42

通过设置(defun *error* (cwxx) (command "undo" "e" "u"))，按esc键中断程序，可以恢复到设置(command "undo" "be")时的状态。请教各位，是否有简便的方法使程序中所有全局变量的值恢复为原值，如以下例子，不应用在(setq tc "ss")之前设置(setq oldtc tc)，然后在*error*函数中设置(setq tc oldtc)的方法，能否使变量tc恢复原值。如果应用以上的方法，那么，对于不同的程序及不同的变量，又如何使*error*函数具有通用性。
(defun c:cs (/ pt1 pt2 pt3)
(command "undo" "be")
(setq tc "ss")
(command "LAYER" "M" tc "")
(setq pt1 (getpoint "\nPick Point 1: "))
(setq pt2 (getpoint pt1 "\nPick Point 2: "))
(command "Line" pt1 pt2 "")
(setq pt3 (getpoint pt2 "\nPick Point 3: "))
(command "Line" pt2 pt3 "")
(command "undo" "e")
)

aidraft · 发表于 2004-11-18 18:59:22

(defun *error* (cwxx) (command "undo" "e" "u")(if oldtc (setq tc oldtc)))
当然，你主程序的最后也应该有一句(setq oldtc tc)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：按esc键中断程序，如何使CAD自动恢复到执行该程序前的状态

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子