[求助]：？执行自定义lisp中途退出会出错？

活塞 · 发表于 2002-8-18 23:27:25

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

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

×

在命令行输入自定义的lisp（都是网站上下的）后，在没有执行或者没有执行完毕该命令之前退出（按Esc键）。此时ORTHO（正交）模式和OSNAP（对象捕捉）模式经常会无故的退出。特别是OSNAP模式，退出的概率很高！不得不让我一遍一遍的重新设置！

学生真诚的盼望问题的解决···········

eachy · 发表于 2002-8-18 23:37:53

最初由活塞发布
[B]在命令行输入自定义的lisp（都是网站上下的）后，在没有执行或者没有执行完毕该命令之前退出（按Esc键）。此时ORTHO（正交）模式和OSNAP（对象捕捉）模式经常会无故的退出。特别是OSNAP模式，退出的概率很高！不得不... [/B]

晓东工具箱中的程序已经解决了这种情况，其他的Lisp程序就不能保证了。

活塞 · 发表于 2002-8-19 01:09:45

为什么不能保证？在理论上有可能保证吗？

eachy · 发表于 2002-8-19 02:00:13

最初由活塞发布
[B]为什么不能保证？在理论上有可能保证吗？ [/B]

理论上可行，但看程序中是否作了这个工作。

秋枫 · 发表于 2002-8-19 09:19:38

这个做法是很简单的。你看看autocad中的标准lisp命令的源文件即可。比如3darray之类的。
一般网上的小程序是应急而作，考虑周全的话程序会复杂一点。

ll_j · 发表于 2002-8-19 12:19:40

随手写的程序一般不会加出错处理的，其实加上也很简单。

梦断江南 · 发表于 2002-8-21 23:27:58

常用的 os 配置可以做个简单的lsp,或者写到菜单里面
如： (defun c:osn ()(command "_.osnap" "end,mid,int,per,qua,nod"))

eachy · 发表于 2002-8-22 08:06:30

最初由活塞发布
[B]为什么不能保证？在理论上有可能保证吗？ [/B]

整理了一下，用以下格式就可以了，可以UNDO。

;;;
;;; Error routine.
;;;
(defun ai_error (s) ; If an error (such as CTRL-C) occurs
(if (not (member s '("函数已取消" "控制台中断")))
(princ (strcat "\n错误: " s))
)
(if undo_init
(ai_undo_pop)
) ; Deal with UNDO
(if old_error
(setq *error* old_error)
) ; Restore old *error* handler
(if old_cmd
(setvar "cmdecho" old_cmd)
) ; Restore cmdecho value
(princ)
)
;;;
;;; A function that turns on UNDO so that some existing routines will work.
;;; Do not use with new routines as they should be designed to operate with
;;; any UNDO setting.
;;;
(defun ai_undo_on ()
(setq undo_setting (getvar "undoctl"))
(cond
((= 2 (logand undo_setting 2)) ; Undo is one
(command "_.undo" "_control" "_all" "_.undo" "_auto" "_off")
)
((/= 1 (logand undo_setting 1)) ; Undo is disabled
(command "_.undo" "_all" "_.undo" "_auto" "_off")
)
)
)
;;;
;;; Return UNDO to the initial setting. Do not use with new routines as they
;;; should be designed to operate with any UNDO setting.
;;;
(defun ai_undo_off ()
(cond
((/= 1 (logand undo_setting 1))
(command "_.undo" "_control" "_none")
)
((= 2 (logand undo_setting 2))
(command "_.undo" "_control" "_one")
)
)
)
;;;
;;; UNDO handlers. When UNDO ALL is enabled, Auto must be turned off and
;;; GROUP and END added as needed.
;;;
(defun ai_undo_push ()
(setq undo_init (getvar "undoctl"))
(cond
((and (= 1 (logand undo_init 1)) ; enabled
(/= 2 (logand undo_init 2)) ; not ONE (ie ALL is ON)
(/= 8 (logand undo_init 8)) ; no GROUP active
)
(command "_.undo" "_group")
)
(T)
)
;; If Auto is ON, turn it off.
(if (= 4 (logand 4 undo_init))
(command "_.undo" "_auto" "_off")
)
)
;;;
;;; Add an END to UNDO and return to initial state.
;;;
(defun ai_undo_pop ()
(cond
((and (= 1 (logand undo_init 1)) ; enabled
(/= 2 (logand undo_init 2)) ; not ONE (ie ALL is ON)
(/= 8 (logand undo_init 8)) ; no GROUP active
)
(command "_.undo" "_end")
)
(T)
)
;; If it has been forced off, turn it back on.
(if (= 4 (logand undo_init 4))
(command "_.undo" "_auto" "_on")
)
)
;;; ==================== end load-time operations ===========================
;;;
;;;******************************** MODES ********************************
;;;
;;; System variable save
(defun MODES (a)
(setq MLST '())
(repeat (length a)
(setq MLST (append MLST (list (list (car a) (getvar (car a))))))
(setq a (cdr a))
)
)
;;;******************************** MODER ********************************
;;;
;;; System variable restore
(defun MODER ()
(repeat (length MLST)
(setvar (caar MLST) (cadar MLST))
(setq MLST (cdr MLST))
)
)
;;;******************************** 3DAERR *******************************
;;;
;;; Standard error function
(defun 3DAERR (st) ; If an error (such as CTRL-C) occurs
; while this command is active...
(if (/= st "函数已取消")
(princ (strcat "\n错误: " st))
)
(command "_.UNDO" "_E")
(ai_undo_off)
(moder) ; Restore system variables
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
[COlor=red];;主程序[/color]
(defun c:xxx ()
(setq olderr *error*
*error* 3daerr
)
(modes '("cmdecho" "blipmode" "highlight" "orthomode" "ucsfollow"
"gridmode"
)
)
(setvar "CMDECHO" 0)
(ai_undo_on) ; Turn UNOD on
(command "_.UNDO" "_GROUP")
[color=blue];;加入你自己的程序
.
.
.
.
.
.
;;程序结束[/color]
(command "_.UNDO" "_E")
(ai_undo_off) ; Return UNDO to initial state
(moder) ; Restore system variables
(setq *error* olderr) ; Restore old *error* handler
(princ)
)

;;; 
;;;  Error routine. 
;;; 
(defun ai_error        (s)                        ; If an error (such as CTRL-C) occurs 
  (if (not (member s '("函数已取消" "控制台中断"))) 
    (princ (strcat "\n错误: " s)) 
  ) 
  (if undo_init 
    (ai_undo_pop) 
  )                                        ; Deal with UNDO 
  (if old_error 
    (setq *error* old_error) 
  )                                        ; Restore old *error* handler 
  (if old_cmd 
    (setvar "cmdecho" old_cmd) 
  )                                        ; Restore cmdecho value 
  (princ) 
) 
;;; 
;;; A function that turns on UNDO so that some existing routines will work. 
;;; Do not use with new routines as they should be designed to operate with 
;;; any UNDO setting. 
;;; 
(defun ai_undo_on () 
  (setq undo_setting (getvar "undoctl")) 
  (cond 
    ((= 2 (logand undo_setting 2))        ; Undo is one 
     (command "_.undo" "_control" "_all" "_.undo" "_auto" "_off") 
    ) 
    ((/= 1 (logand undo_setting 1))        ; Undo is disabled 
     (command "_.undo" "_all" "_.undo" "_auto" "_off") 
    ) 
  ) 
) 
;;; 
;;; Return UNDO to the initial setting.  Do not use with new routines as they 
;;; should be designed to operate with any UNDO setting. 
;;; 
(defun ai_undo_off () 
  (cond 
    ((/= 1 (logand undo_setting 1)) 
     (command "_.undo" "_control" "_none") 
    ) 
    ((= 2 (logand undo_setting 2)) 
     (command "_.undo" "_control" "_one") 
    ) 
  ) 
) 
;;; 
;;; UNDO handlers.  When UNDO ALL is enabled, Auto must be turned off and 
;;; GROUP and END added as needed. 
;;; 
(defun ai_undo_push () 
  (setq undo_init (getvar "undoctl")) 
  (cond 
    ((and (= 1 (logand undo_init 1))        ; enabled 
          (/= 2 (logand undo_init 2))        ; not ONE (ie ALL is ON) 
          (/= 8 (logand undo_init 8))        ; no GROUP active 
     ) 
     (command "_.undo" "_group") 
    ) 
    (T) 
  ) 
  ;; If Auto is ON, turn it off. 
  (if (= 4 (logand 4 undo_init)) 
    (command "_.undo" "_auto" "_off") 
  ) 
) 
 
;;; 
;;; Add an END to UNDO and return to initial state. 
;;; 
(defun ai_undo_pop () 
  (cond 
    ((and (= 1 (logand undo_init 1))        ; enabled 
          (/= 2 (logand undo_init 2))        ; not ONE (ie ALL is ON) 
          (/= 8 (logand undo_init 8))        ; no GROUP active 
     ) 
     (command "_.undo" "_end") 
    ) 
    (T) 
  ) 
  ;; If it has been forced off, turn it back on. 
  (if (= 4 (logand undo_init 4)) 
    (command "_.undo" "_auto" "_on") 
  ) 
) 
;;; ==================== end load-time operations =========================== 
;;; 
;;;******************************** MODES ******************************** 
;;; 
;;; System variable save 
 
(defun MODES (a) 
  (setq MLST '()) 
  (repeat (length a) 
    (setq MLST (append MLST (list (list (car a) (getvar (car a)))))) 
    (setq a (cdr a)) 
  ) 
) 
 
;;;******************************** MODER ******************************** 
;;; 
;;; System variable restore 
 
(defun MODER () 
  (repeat (length MLST) 
    (setvar (caar MLST) (cadar MLST)) 
    (setq MLST (cdr MLST)) 
  ) 
) 
 
;;;******************************** 3DAERR ******************************* 
;;; 
;;; Standard error function 
 
(defun 3DAERR (st)                        ; If an error (such as CTRL-C) occurs 
                                        ; while this command is active... 
  (if (/= st "函数已取消") 
    (princ (strcat "\n错误: " st)) 
  ) 
  (command "_.UNDO" "_E") 
  (ai_undo_off) 
  (moder)                                ; Restore system variables 
  (setq *error* olderr)                        ; Restore old *error* handler 
  (princ) 
) 
[COlor=red];;主程序[/color] 
(defun c:xxx () 
  (setq        olderr        *error* 
        *error*        3daerr 
  ) 
  (modes '("cmdecho" "blipmode"        "highlight" "orthomode"        "ucsfollow" 
           "gridmode" 
          ) 
  ) 
  (setvar "CMDECHO" 0) 
 
  (ai_undo_on)                                ; Turn UNOD on 
  (command "_.UNDO" "_GROUP") 
 [color=blue];;加入你自己的程序 
 . 
  . 
  . 
  . 
  . 
  . 
;;程序结束[/color] 
  (command "_.UNDO" "_E") 
  (ai_undo_off)                                ; Return UNDO to initial state 
  (moder)                                ; Restore system variables 
  (setq *error* olderr)                        ; Restore old *error* handler 
  (princ) 
)

活塞 · 发表于 2002-8-22 08:48:43

江南的东西蛮实用，我试了。谢谢！
eachy的lisp我不知该如何使用？

cy956 · 发表于 2002-8-22 09:04:35

eachy不是把格式都写出来了？

活塞 · 发表于 2002-8-23 10:52:09

不知要把eachy的格式加在哪里使用？

zhb2516 · 发表于 2002-9-3 23:31:59

我需要学的东西实在太多了。

szkevin · 发表于 2002-9-4 00:00:26

用eachy的这个程序,别忘了加载晓东的api涵数.

PFD8667 · 发表于 2004-7-31 13:16:33

太感谢了.斑主

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

[求助] [求助]：？执行自定义lisp中途退出会出错？

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

相关帖子

Re: [求助]：？执行自定义lisp中途退出会出错？

浏览过的版块