对本论坛的《防止捕捉丢失》，进行了修改

zjsru_18_505 · 发表于 2016-6-13 20:01:37

论坛里搜索到的防止捕捉丢失，使用效果很好，就是在命令执行过程中，捕捉模式改变后，比如：在绘图过程中，通过草图设置对象捕捉界面人工更改捕捉模式后，命令结束时仍为最初的捕捉方式，这里觉得有点不方便，现在修改成可记住中途捕捉模式的改变。

原防止捕捉丢失代码：

<blockquote>(or *osmodemonitor* (setq *osmodemonitor*

修改后的代码：

(defun C:TT ()
;;
;
;
;(vlr-remove-all :vlr-sysvar-reactor)
;(vlr-remove-all :vlr-lisp-reactor)
(vl-load-com)
(or *OSMODEMONITOR*
(setq *OSMODEMONITOR* (vlr-lisp-reactor NIL
'( ;(:vlr-lispwillstart . SAVEOSMODE)
(:vlr-lispended . RESETOSMODE)
(:vlr-lispcancelled . RESETOSMODE)
)
)
*OSMODEMONITOR* (vlr-sysvar-reactor NIL '((:vlr-sysvarwillchange . SAVEOSMODE) (:vlr-sysvarchanged . SAVEOSMODE)))
)
) ;反应器构造
;;回调函数
(defun SAVEOSMODE (V1 V2 / OSN)
(if (and (setq OSN (getvar 'OSMODE)) (/= OSN 0) (/= OSN 16384) (= (car V2) "OSMODE"))
(setq *LASTOSMODE* (rem OSN 16384))
)
)
(defun RESETOSMODE (V1 V2)
(if (and *LASTOSMODE* (/= (getvar "osmode") *LASTOSMODE*))
(setvar "osmode" *LASTOSMODE*)
)
)
(princ)
)

输入TT开始防丢失
每次命令之后捕捉一直是打开状态

尘缘一生 · 发表于 2018-11-6 19:52:05

本帖最后由尘缘一生于 2018-11-6 20:02 编辑

程序有点错误，看是不是这样。。。

(defun C:TT ()
;;

(vl-load-com)
(or *OSMODEMONITOR*
  (setq *OSMODEMONITOR* (vlr-lisp-reactor NIL
            '((:vlr-lispwillstart . SAVEOSMODE)
            (:vlr-lispended . RESETOSMODE)
            (:vlr-lispcancelled . RESETOSMODE)
            )
         )
*OSMODEMONITOR* (vlr-sysvar-reactor NIL
         '((:vlr-sysvarwillchange . SAVEOSMODE)
            (:vlr-sysvarchanged . SAVEOSMODE)

         )
         )
  )
) ;反应器构造
;;回调函数
(defun  SAVEOSMODE (V1 V2 / OSN)
  (if (and (setq OSN (getvar 'OSMODE)) (/= OSN 0) (/= OSN 16384) (= (car V2) "OSMODE"))
(setq *LASTOSMODE* (rem OSN 16384))
  )
)
(defun  RESETOSMODE (V1 V2)
  (if (and *LASTOSMODE* (/= (getvar "osmode") *LASTOSMODE*))
(setvar "osmode" *LASTOSMODE*)
  )
)
(princ)
)  ;;;输入TT开始防丢失

zjsru_18_505 · 发表于 2016-6-16 19:49:54

水洗可口可乐发表于 2016-6-13 23:39
试试了下没反应..

看不出什么反应，没运行前，捕捉是否有丢失现象，运行之后，是否还有丢失现象。

zjsru_18_505 · 发表于 2016-6-16 19:49:03

水洗可口可乐发表于 2016-6-13 23:39
试试了下没反应..

看不出什么反应，没运行前，捕捉是否有丢失现象，运行之后，是否还有丢失现象。

zjsru_18_505 · 发表于 2016-6-16 19:46:44

maiko 发表于 2016-6-13 23:41
其实没啥意义,用个错误处理功能,这些都不要了用反映器,CAD都慢了

自己写的当然可以加错误处理，如果用的不是自己写的，别人的程序不一定处理的好，我想原来写这个命令人的初衷也是这么考虑的。

zjsru_18_505 · 发表于 2016-6-16 19:44:12

maiko 发表于 2016-6-13 23:41
其实没啥意义,用个错误处理功能,这些都不要了用反映器,CAD都慢了

自己写的当然可以加错误处理，如果用的不是自己写的，别人的程序不一定处理的好，我想原来写这个命令人的初衷也是这么考虑的。

maiko · 发表于 2016-6-13 23:41:44

其实没啥意义,用个错误处理功能,这些都不要了

用反映器,CAD都慢了

水洗可口可乐 · 发表于 2016-6-13 23:39:46

试试了下没反应..

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

[讨论] 对本论坛的《防止捕捉丢失》，进行了修改

本帖子中包含更多资源