[求助]：如何让lisp程序中途退出后，恢复捕捉

zw_zwzx · 发表于 2007-12-12 11:04:20

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

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

×

我编了一些小程序，每个小程序开头部分都会加入这样一行代码：
(setvar "cmdecho" 0)
(setq osn (getvar "osmode"))
(setvar "osmode" 0)
......
......
在结尾再恢复：
(setvar "osmode" osn)

但有时，程序执行了一半时按ESC退出了，这时所有的捕捉都被取消了，还要重新设置捕捉，这样非常麻烦，请教各位能不能在其中加点东西，让程序在非正常退出时能自动恢复原来的捕捉设置？
望赐教！！！

carrot1983 · 发表于 2007-12-12 11:24:07

(defun *error*()
(setvar "osmode" osn)
)

wyihui · 发表于 2007-12-12 13:54:10

这个问题真是太好了,这困扰了我好长时间,请版主给予关注

zw_zwzx · 发表于 2007-12-12 14:07:11

2楼的你好，这是个子程序吧，那么应该把这个子程序放在主程序什么位置呢？调用时用(*error*())就行吗？

wyihui · 发表于 2007-12-12 14:15:17

请二楼楼主说明一下用法!

carrot1983 · 发表于 2007-12-12 18:05:27

用法。。我也说不清楚。
论坛里面搜索一下，错误处理，应该相关主题多得很

taner · 发表于 2007-12-12 18:46:31

http://www.xdcad.net/forum/showthread.php?s=&threadid=486574
一樓看懂了就搞定!

或http://www.xdcad.net/forum/showthread.php?s=&threadid=463100

qiyu0588 · 发表于 2007-12-14 16:44:12

能否举个简单的例子啊
楼上说的那个太复杂了，不太容易看懂
比如下面的程序：
;;;
;;;选取数字文本求和
;;;
(defun c:js_jia()
  (setvar "cmdecho" 0)
  (setq ooe (getvar "osmode"))
  (setvar "osmode" 0)
  (setq en (ssget (list (cons 0 "text"))))
  (setq i 0
      j 0
      n (sslength en))
  (repeat n
      (setq endate (entget (ssname en i)))
      (setq wb (atof(cdr (assoc 1 endate))))
      (setq j (+ j wb))
      (setq i (+ 1 i))
  );end repeat
(setq pt (getpoint "\n插入点"))
(command "text" "m" pt 3 "" (rtos j 2 3) )
  (setvar "osmode" ooe)
  (prin1)
)
;;; end defun

如何在程序运行中按esc后恢复捕捉
该加上那些程序
高手解答下谢谢

arqc · 发表于 2007-12-15 00:32:17

好像得使“vl-catch-all-apply”，大概如下：
[php]
(defun C:foo ()
  (defun OVal (@:1) (SetVar 'osmode 0) (vl-catch-all-apply 'Proc) (SetVar 'osmode @:1))
  (defun Proc ()
()
;;往下看情況隨意
)
  (OVal (GetVar 'osmode))
  (Prin1)
  )
[/php]

zml84 · 发表于 2007-12-15 08:56:47

自定义error函数即可。

例子：http://zml84.blog.sohu.com/57639898.html

gysjy · 发表于 2007-12-15 18:49:09

执行“u”命令即可恢复原来的捕捉设置。

lvbaoqi · 发表于 2007-12-16 23:05:38

先getvar ,再setvar

qiyu0588 · 发表于 2007-12-17 16:44:49

学会了呵呵

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

[求助] [求助]：如何让lisp程序中途退出后，恢复捕捉

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

相关帖子