[求助]：在LISP程序里无法搞定Esc键

mhy007 · 发表于 2004-5-9 17:07:32

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

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

×

我编的一个LISP小程序，当提示“输入XX<退出>：”时，按回车键就正常退出了，如果按Esc键，退是退出了，但“对象捕捉”
来不及恢复，全部清空了，图层也退不回去运行此程序前的图层
了！等等。更苦恼的是我已经习惯用Esc键了。555！谁能救我？！

blackspot · 发表于 2004-5-9 17:17:00

程序主体中定义自己的*error*出错处理函数，同时保存一些原系统变量值（保存现场），在自定义出错处理函数中恢复保存的各系统变量（恢复现场）。如：
(defun c:dp ()

  (command "_.undo" "_begin")

  (setq old_err *error*
*error* dp_err
  )
...
(setq old_osmode (getvar "osmode"))
  (setq old_lunits (getvar "lunits"))
  (setq old_luprec (getvar "luprec"))
  (setq old_dimzin (getvar "dimzin"))
..
)

(defun dp_err (s)
...
  (setvar "osmode" old_osmode)
  (setvar "lunits" old_lunits)
  (setvar "luprec" old_luprec)
  (setvar "dimzin" old_dimzin)
  (setq *error* old_err)
...
)

mhy007 · 发表于 2004-5-13 11:47:15

哇噻！老大，这种问题你都能解决。莫非是个中高手？

yanxinbo67 · 发表于 2004-5-13 12:19:00

我编的lsp程序需要在某张图纸中存入一些数据，并且付给变量，包括数字和字符，希望在存盘退出后再进入本章图纸时这些变量的值还存在，而且我可以付给变量新值。有朋友说可以用xdata，请问我可以用entget将这些数据放在某个实体上，但是怎样提取又怎样输入呢？555，帮帮我

lijiao · 发表于 2004-5-15 07:55:21

最初由 mhy007 发布
[B]哇噻！老大，这种问题你都能解决。莫非是个中高手？ [/B]

错误处理函数要短，要快，否则，它也会被ESC中断的，因为它也是一段程序。
To：yanxinbo67
你的问题可以将数据存为LDATA数据或XRDATA数据，可以参考下面的帖子
http://www.xdcad.net/forum/showt ... d=250104#post250104
http://www.xdcad.net/forum/showt ... y=&pagenumber=1
http://www.xdcad.net/forum/showt ... d=251409#post251409

myrooms · 发表于 2004-5-15 15:15:31

这个问题真的很及时，我也碰到同意的问题，没法解决，esc是
一种错误吗？

secwolf · 发表于 2008-7-18 16:42:01

esc退出也困扰了我好久，比如写一个lisp程序标楼号，这个标楼号的程序可以循环的，一直可以往下标，用了循环while，就是想标一直往下标，也不知道有多少个可标，退出正常可以用空格或者回车，但是自己经常习惯用ESC，本来系统变量恢复在while后面，而ESC后直接终止了，恢复函数无法执行，导致了cad的系统变量（如捕捉）无法恢复到原值，如何处理这种错误？

qiaqiadeng · 发表于 2008-7-18 20:01:05

lisp这个语言实在是太怪了，esc键出错控制是个怪胎，虽然搞了好多lisp，但还是觉得lisp这个语言蹩脚至极，让人很难受。

wzx21_ren · 发表于 2008-7-26 16:13:32

牛人,很厉害

loofs · 发表于 2008-8-23 23:56:36

有办法：
首先在命令开始时保存现场数值，再自定义一个*error*函数，函数中设置陷阱，一旦捕捉到“ESC”中断错误，立即执行恢复现场数据的程序，然后退出。

lionyoyo · 发表于 2008-9-3 11:51:43

关于*error*程序，个人认为这正是vlisp最灵活最强大的特色之处，一个vlisp程序员如果不会运用*error*来使他的程序健壮完善，就像一个篮球运动员不会三步上篮一样。
至于*error*程序的大小，个人认为通常它不必要很大，但一般来说不必担心Esc会中断*error*，因为*error*本身就是在出现错误（包括ESC事件也被认为是错误的一种）后被调用的，也就是说，*error*运行在Esc事件结束之后，不存在被Esc中断之说，即便是在*error*运行过程中再次按下Esc，只要还没有运行到尾句(setq *error* nil)，其结果仍是递归调用*error*，这里就涉及到了*error*在递归情况下的写法，属于更高一点的应用了。
总的来说，好的vlisp程序员应该学会利用*error*，试着爱上*error*

本人常用的一段错误处理函数，欢迎讨论指正

;;; ===================== error checking======================

(defun Lionel:err()
  (if (boundp *error*) (setq Old_err *error*))
  (defun *error* (msg)
  (if (not (member msg
            (list "console break" "Function cancelled" "quit / exit abort" "函数被取消")))
(princ (strcat "错误：" msg "\n") )
(princ)
  );if
  (if (boundp 'cmdecho_old) (setvar "cmdecho" cmdecho_old) )
  (if (boundp 'osmode_old) (setvar "osmode" osmode_old) )
  (command "_.undo" "_e")
  (setq *error* Old_err Old_err nil)
  (princ)
  );defun *error*
);defun
;;; =================end of error checking ===================

mhy007 · 发表于 2008-9-3 15:41:32

四年前的帖子都翻出来了！这几年偶还是没有完全解决这个问题。虽然不是每次都清空捕捉设置，但是还是有大约30%的时候还是会清空，忍着忍着就过了四年。。。试试lionyoyo同学的方法看看。

hb198075 · 发表于 2008-9-3 16:58:46

我也发个我常用的错误处理程序..

[FONT=courier new]
;;;m_redraw----高亮显示的目标
;;;m_delss-----在程序运行时生成的临时物体
;;;m_hbdraw-----在程序中设置此值来确定是否在出错后重绘图形;;;m_setFirst------程序运行中的临时选择集
(defun hb_error (a /)
(if
(not
(member a
'("函数被取消" "Function cancelled" "quit / exit abort")
)
)
(princ a)
)
(if m_redraw
(cond
((member (type m_redraw) (list 'ename ))
(redraw m_reDraw 4)
(setq m_reDraw nil)
)
((= (type m_redraw) 'list)
(MAPCAR '(LAMBDA (itm) (redraw itm 4))
m_redraw
)
(setq m_reDraw nil)
)
)
)
(if m_hbdraw
(redraw)
)
(if m_delss
(progn
(vl-cmdf "_.erase" m_delss "")
(setq m_delss nil)
)
)
(if m_setFirst
(sssetfirst nil nil)
)
(HB_SETVAR m_lst) ;_m_lst为初始化时所保存的系统变量值
(setq *error* olderr)
(vla-EndUndoMark VLAXDOC)
)
[/FONT]

[FONT=courier new] 
;;;m_redraw----高亮显示的目标 
;;;m_delss-----在程序运行时生成的临时物体 
;;;m_hbdraw-----在程序中设置此值来确定是否在出错后重绘图形;;;m_setFirst------程序运行中的临时选择集 
(defun hb_error        (a /) 
  (if 
    (not 
      (member a 
              '("函数被取消" "Function cancelled" "quit / exit abort") 
      ) 
    ) 
     (princ a) 
  ) 
  (if m_redraw 
    (cond 
      ((member (type m_redraw) (list 'ename )) 
       (redraw m_reDraw 4) 
       (setq m_reDraw nil) 
      ) 
      ((= (type m_redraw) 'list) 
       (MAPCAR '(LAMBDA (itm) (redraw itm 4)) 
               m_redraw 
       ) 
       (setq m_reDraw nil) 
      ) 
    ) 
  ) 
  (if m_hbdraw 
    (redraw) 
  ) 
  (if m_delss 
    (progn 
      (vl-cmdf "_.erase" m_delss "") 
      (setq m_delss nil) 
    ) 
  ) 
  (if m_setFirst 
    (sssetfirst nil nil) 
  ) 
  (HB_SETVAR m_lst)  ;_m_lst为初始化时所保存的系统变量值 
  (setq *error* olderr) 
  (vla-EndUndoMark VLAXDOC) 
) 
  [/FONT]

下面是2个参考函数

[FONT=courier new]
;;;本函数为初始化程序,在程序的开始和结束时加载.
;;;例: 在程序头(hb_start '(("CMDECHO" . 0)("OSMODE" . 0)) t)
;;;在程序尾(hb_start nil nil)
(defun hb_start (lst is /)
(if is
(progn
(vla-StartUndoMark vlaxDoc)
(setq m_lst (HB_SETVAR lst))
(setq *error* hb_error)
)
(progn
(setq *error* olderr)
(HB_SETVAR m_lst)
(vla-EndUndoMark VLAXDOC)
)
)
)
;;;设置系统变量
(defun hb_setVar (lst / rel)
(foreach itm lst
(setq rel (cons (cons (car itm) (getvar (car itm))) rel))
(setvar (car itm) (cdr itm))
)
rel
)
[/FONT]

yxianfo · 发表于 2008-9-4 18:17:41

这可能是初学者都会遇到的问题，关注着。

enixing · 发表于 2008-9-9 11:23:58

这问题困惑了我很久，居然给古墓派的发现秘诀了，学习学习

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

[求助] [求助]：在LISP程序里无法搞定Esc键

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

相关帖子