[求助]：防止程序運行終止對系統變量作變動

taner · 发表于 2005-10-23 16:18:50

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

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

×

請教各位:
怎樣防止程序運行終止對系統變量作變動?
如果以下程序:
(Defun c: aa()
(setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq k (getvar "osmode"))
  (setvar "osmode" 0)
.....................................................<其它語句>
( setvar "osmode" k)
  (command "undo" "e")
  (setvar "cmdecho" z)
)

如果程序運行一半終止,則osmode會改變.
請問怎麽處理?謝謝大家!

舟自横 · 发表于 2005-10-23 17:08:57

运用错误处理函数*error*
先(SETQ OLDERROR *ERROR*)
然后
(defun *error*(MSG)
  (setvar "osmode" k);;;;k是你原来取得的旧系统变量
  (setvar "cmdecho" z);;z是你原来取得的旧系统变量
  (setq *error* olderror)
  (princ)
  (princ)
)
最后程序收尾时.再
(setvar "osmode" k)
  (setvar "cmdecho" z)
  (setq *error* olderror)
这样就可以防止再程序出错退出时对系统变量修改..
而且可以实现程序真正的无错误回显退出

taner · 发表于 2005-10-23 19:20:28

搜了一上,論壇上有好多這樣的貼子.
謝謝指點.
不過,我還是覺得http://www.xdcad.net/forum/showt ... 地方講得不錯.

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

[求助] [求助]：防止程序運行終止對系統變量作變動

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

相关帖子