[分享]：(setvar "osmode" 0)关闭捕捉不合理，请看：

fylinwater

关闭捕捉

1. 
   
2. (if (< (getvar "osmode") 16384)
   
3. (setvar "osmode" (+ 16384 (getvar "osmode"))))
   

复制代码

打开捕捉

1. 
   
2. (if (> (getvar "osmode") 16384) (setvar "osmode" (- (getvar "osmode")16384  )))
   

复制代码

efan2000

有问题吧，输入16383 是指定全部对象捕捉方式。那么(< (getvar "osmode") 16384)这个条件就永远成立，下面的一句不是超出范围了吗？

zhynt

不是的。当(getvar "osmode")大于16384时对象捕捉方式是关闭的。当用这种方式关闭对象捕捉方式后再用F3打开，你会发现你原来设置的对象捕捉方式还在。你再用F3关闭，用(getvar "osmode")查看，你会发现结果是大于16384的。

efan2000

1. 
   
2.   [FONT=courier new]
   
3. 使用状态行的“对象捕捉”按钮关闭对象捕捉模式，除了返回 OSMODE 的普通值，还将返回位码 16384 (0x4000)。
   
4. 这个附加值有助于开发人员编写 AutoCAD 应用程序并将此模式与“绘图设置”对话框关闭的对象捕捉模式区别开来。
   
5. 设置此位码值将关闭对象捕捉。将 OSMODE 设置为其他值将打开对象捕捉。
   
6.   [/FONT]
   

复制代码

看了帮助文件，感觉有点奇怪了，按CAD的意思是关闭对象捕捉模式，那关闭了怎么捕捉？

fylinwater

很好理解阿
按F3就是 osmode加上16384或者减去16384

efan2000

前提是在Lisp中设置后，怎么让用户运行捕捉而即使错误也恢复原来的设置，先按F3打开吧，跟没加上16384是一样的，加上吧，不是关闭了吗，会出现捕捉框？

zhynt

加上出错机制:
如：

2. 
   
3. (setq temp *error*)
   
4. (setq *error* newerror)
   
5. (defun newerror (err)
   
6.       (setq *error* temp)
   
7.       (setvar "osmode" a)
   
8. )
   

<br /> (setq temp *error*)<br /> (setq *error* newerror)<br /> (defun newerror (err)<br />       (setq *error* temp)<br />       (setvar "osmode" a)<br /> )<br />

其中“a”为旧值

efan2000

已经搞定，自己编了个程序，即使第三方程序更改了捕捉设置也能自动的恢复过来。

efan2000

不过对于新建的图纸或者没有运行此程序进行设置的图纸不起作用。

秋枫

我的方案：

2. 
   
3. [FONT=courier new]
   
4. ;;使用状态行的“对象捕捉”按钮关闭对象捕捉模式，除了返回 OSMODE 的普通，
   
5. ;;还将返回位码 16384 (0x4000)。这个附加值有助于开发人员编写 AutoCAD 用
   
6. ;;程序并将此模式与“绘图设置”对话框关闭的对象捕捉模式区别开来。设置位
   
7. ;;码值将关闭对象捕捉。将 OSMODE 设置为其他值将打开对象捕捉。
   
8. 
   
9. (defun qf-disable-osmode()
   
10.     (setvar "osmode" (logior (getvar "osmode") 16384)) ; turn it off: 16384=0x4000
    
11. )
    
12. (defun qf-enable-osmode()
    
13.     (setvar "osmode" (logand (getvar "osmode") 49151)) ; turn it on: 49151=0xBFFF
    
14. )
    
15. [/FONT]

<br /> [FONT=courier new]<br /> ;;使用状态行的“对象捕捉”按钮关闭对象捕捉模式，除了返回 OSMODE 的普通，<br /> ;;还将返回位码 16384 (0x4000)。这个附加值有助于开发人员编写 AutoCAD 用<br /> ;;程序并将此模式与“绘图设置”对话框关闭的对象捕捉模式区别开来。设置位<br /> ;;码值将关闭对象捕捉。将 OSMODE 设置为其他值将打开对象捕捉。<br /> <br /> (defun qf-disable-osmode()<br />     (setvar "osmode" (logior (getvar "osmode") 16384)) ; turn it off: 16384=0x4000<br /> )<br /> (defun qf-enable-osmode()<br />     (setvar "osmode" (logand (getvar "osmode") 49151)) ; turn it on: 49151=0xBFFF<br /> )<br /> [/FONT]