[求助]：很多小lisp都没有“中断处理”功能，程序虽小但应完善呀…

陈小云

(defun c:ff (/ OS pe1 p1 p2 dist2)
(setq os (getvar "osmode"))
(setvar "osmode" 128)
(setq pe1 (entsel)  
         p1 (osnap (last pe1) "nea")
         p2 (getpoint p1)
         p2 (list (car p2) (cadr p2))
         dist2 (/ (distance p1 p2) 2)
)
(command "_.offset"  dist2 pe1 p2 ^c)
(setvar "osmode" os)
(princ)
)

这是一个平行生线的程序，如果程序运行时，直接回车或者ESC取消的话，那么捕捉osmode就被设为128了，应该让它回到以前的状态呀。
编程好难啊，学习中。

yshf

;作如下简单处理即可
(defun c:ff (/ OS pe1 p1 p2 dist2)
(setq os (getvar "osmode") odlerr *error*)
(defun *error*(msg)(setvar "osmode" os)(princ))
(setvar "osmode" 128)
(setq pe1 (entsel)
p1 (osnap (last pe1) "nea")
p2 (getpoint p1)
p2 (list (car p2) (cadr p2))
dist2 (/ (distance p1 p2) 2)
)
(command "_.offset" dist2 pe1 p2 ^c)
(setq *error* olderr)
(setvar "osmode" os)
(princ)
)

xshrimp

论坛中好多这样的问题，发贴前最好搜索一下论坛。
[php]
例如
[求助]如何恢复被ESC中断的系统变量？
lisp程序的开始往往要改变系统变量，在程序结束前再恢复过来。但是，如果在程序执行过程中由于esc强行退出，则系统变量就无法恢复了。

我这里所说的"退出"是指在执行lisp语句时的强行退出，例如：
  (setq p0 (getpoint "\n指定第一点："))
按ESC键强制退出。

不要直接重定义*error*函数,应该
自定义出错处理函数，按ESC时，系统会自动执行*error*函数


(defun err(msg)
  (setvar "osmode" os)    ;恢复系统的改变
  (setq *error* errtmp)   ;恢复原有*error*函数
)

(defun myapp( / pt)
  (setq errtmp *error*)   ;保存原有*error*函数
  (setq *error* err)      ;使用自己错误处理函数
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt (getpoint "\nabc:"))
  (setvar "osmode" os)
  (setq *error* errtmp)   ;恢复原有*error*函数
  (princ)
)
[/php]

陈小云

好的，我会好好看看各行代码的。