求自动恢复扑捉代码

尘缘一生

前言：

      一直为画图过程中，扑捉丢失烦恼，经常F3键重新设置。特为此求解决

1：虽然本论坛有介绍，我实验后，都不行。
2：能不能写段代码？一直监视程序的执行，发现中断，就立即执行这段代码？这一个办法不行吗？。
3：能不能写段代码，叫每个LISP命令执行完，都自动执行它，不就可以啦？
4：至于反应器，看不懂，不知道怎么用。

Gu_xl

[转贴]防止捕捉丢失 By free-Lancer

spp_wall

G版的转帖  试了能解决！

尘缘一生

Gu_xl 发表于 2014-10-29 19:18
[转贴]防止捕捉丢失 By free-Lancer

看啦，不知道怎么用，加了LISP，还是不行

Gu_xl

尘缘一生 发表于 2014-10-29 19:26
看啦，不知道怎么用，加了LISP，还是不行

将这段代码保存为lsp文件,添加到启动组或加到acad.lsp中即可!

1. (or *osmodemonitor*     (setq *osmodemonitor*
   
2.            (vlr-lisp-reactor
   
3.              nil
   
4.              '((:VLR-lispWillStart . SaveOsmode)
   
5.                (:vlr-lispEnded . ResetOsmode)
   
6.                (:vlr-lispCancelled . ResetOsmode)
   
7.               )
   
8.            )
   
9.     )
   
10. )                                ;反应器构造
    
11. ;;回调函数
    
12. (defun SaveOsmode (v1 v2)
    
13.   (setq *LastOsmode* (getvar 'osmode))
    
14.    (princ)
    
15. )
    
16. (defun ResetOsmode (v1 v2)
    
17.   (if (and *LastOsmode*
    
18.            (/= (getvar "osmode") *LastOsmode*)
    
19.            )
    
20.     (setvar "osmode" *LastOsmode*)
    
21.   )
    
22.    (princ)
    
23. )

(or *osmodemonitor*     (setq *osmodemonitor*<br />            (vlr-lisp-reactor <br />              nil<br />              '((:VLR-lispWillStart . SaveOsmode)<br />                (:vlr-lispEnded . ResetOsmode)<br />                (:vlr-lispCancelled . ResetOsmode)<br />               )<br />            )<br />     )<br /> )                                ;反应器构造<br /> ;;回调函数<br /> (defun SaveOsmode (v1 v2)<br />   (setq *LastOsmode* (getvar 'osmode))<br />    (princ)<br /> )<br /> (defun ResetOsmode (v1 v2)<br />   (if (and *LastOsmode*<br />            (/= (getvar "osmode") *LastOsmode*)<br />            )<br />     (setvar "osmode" *LastOsmode*)<br />   )<br />    (princ)<br /> )

尘缘一生

Gu_xl 发表于 2014-10-29 19:28
将这段代码保存为lsp文件,添加到启动组或加到acad.lsp中即可!

非常感谢，完美成功啊！！！！

669423907

原来可以加很多东西进去的

尘缘一生

经过这几天工作，发现，还是有1%的时候，丢失。

hbgsw

好东西啊，这个写的好。

ㄘ丶转裑ㄧ灬

Gu_xl 发表于 2014-10-29 19:28
将这段代码保存为lsp文件,添加到启动组或加到acad.lsp中即可!

顾老师，代码里有(or和(if (and定义捕捉状态，那如果要把动态输入也恢复的话应该怎么加？

因为CAD2014版本以上，在命令行输入字母+中文字符的情况下，会把前面的字母消除，所以需要用到动态输入，
但是平常是不用动态输入的，所以如果在命令行新建图层/命令行改块名等程序中手动中断的话，需要恢复无动态；
我原来改反应器的时候是直接把条件设为了其它值，改用备份旧变量值进行判断不会改。。

2. (defun resetosmode (v1 v2 /)
   
3.   (if (/= (getvar "osmode") 4775)
   
4. (progn
   
5.    (setvar "osmode" 2183)
   
6.         (setvar "dynmode" -2)
   
7. )
   
8.   )
   
9. ;;;(princ "*********已恢复捕捉设置及动态输入设置\n")
   
10.   (princ)
    
11. )
    
12. ;;;;;构造编辑器反应器对象;;如果没有数据则为 nil
    
13. (vlr-editor-reactor
    
14.   nil
    
15.   '(
    
16.     ;;;(:vlr-lispEnded . ResetOsmode) ;;;已完成对 AutoLISP 表达式的求值
    
17.     (:vlr-lispCancelled . ResetOsmode) ;;;已取消对 AutoLISP 表达式的求值
    
18.     ;;;(:vlr-commandEnded . ResetOsmode)  ;;;已完成某 AutoCAD 命令
    
19.     ;;;(:vlr-commandCancelled . ResetOsmode) ;;; 已取消某 AutoCAD 命令
    
20.     ;;;(:vlr-commandFailed . ResetOsmode);;; 无法完成某 AutoCAD 命令
    
21.    )
    
22. )

(defun resetosmode (v1 v2 /)<br />   (if (/= (getvar "osmode") 4775)<br /> (progn<br />    (setvar "osmode" 2183)<br />         (setvar "dynmode" -2)<br /> )<br />   )<br /> ;;;(princ "*********已恢复捕捉设置及动态输入设置\n")<br />   (princ)<br /> )<br /> ;;;;;构造编辑器反应器对象;;如果没有数据则为 nil<br /> (vlr-editor-reactor<br />   nil<br />   '(<br />     ;;;(:vlr-lispEnded . ResetOsmode) ;;;已完成对 AutoLISP 表达式的求值<br />     (:vlr-lispCancelled . ResetOsmode) ;;;已取消对 AutoLISP 表达式的求值<br />     ;;;(:vlr-commandEnded . ResetOsmode)  ;;;已完成某 AutoCAD 命令<br />     ;;;(:vlr-commandCancelled . ResetOsmode) ;;; 已取消某 AutoCAD 命令<br />     ;;;(:vlr-commandFailed . ResetOsmode);;; 无法完成某 AutoCAD 命令<br />    )<br /> )