[LISP函数]：一个捕捉模式关闭与打开的LISP函数

cgl

2. ;;取得当前图档中的捕捉模式并将其关闭
   
3. (defun napmod (/ nap)
   
4.         (testle)
   
5.         (setq nap (getvar "OSMODE"))
   
6.         (setvar "OSMODE" 0)
   
7.         nap
   
8. )
   
9. 
   
10. ;;打开捕捉模式
    
11. (defun napset(nap)
    
12.         (setvar "OSMODE" nap)
    
13. )
    
14. 
    
15. ;;使用方法如下（以上两个函数应配合使用）
    
16. (defun name_line()                 ;您定义的函数名
    
17.   (setq nap (napmod))              ;用napmod函数取得当前图档中的捕捉模式并关闭
    
18.   (setq pt1 (getpoint "\n第一点:"));您的代码开始
    
19.   (initget 17)
    
20.   (setq pt2 (getpoint pt1 "\n第二点:"))
    
21.   (command "line" pt1 pt2 "")      ;您的代码结束
    
22.   (napset nap)                     ;用napset函数恢复您图档中执行您新定义的函数前的捕捉模式
    
23. )

;;取得当前图档中的捕捉模式并将其关闭<br /> (defun napmod (/ nap)<br />         (testle)<br />         (setq nap (getvar "OSMODE"))<br />         (setvar "OSMODE" 0)<br />         nap<br /> )<br /> <br /> ;;打开捕捉模式<br /> (defun napset(nap)<br />         (setvar "OSMODE" nap)<br /> )<br /> <br /> ;;使用方法如下（以上两个函数应配合使用）<br /> (defun name_line()                 ;您定义的函数名<br />   (setq nap (napmod))              ;用napmod函数取得当前图档中的捕捉模式并关闭<br />   (setq pt1 (getpoint "\n第一点:"));您的代码开始<br />   (initget 17) <br />   (setq pt2 (getpoint pt1 "\n第二点:"))<br />   (command "line" pt1 pt2 "")      ;您的代码结束<br />   (napset nap)                     ;用napset函数恢复您图档中执行您新定义的函数前的捕捉模式<br /> )

haijiangl

我以前也是用这种方法，有一个缺点：程序半当中退出的话，捕捉方式还是被清空了。
我现在用这种办法：原osmode值小于16384时，就给他加上16384，捕捉就关闭了，即使中途推出，用户只要按一下F3就打开了。

zhynt

啊，这个办法真好，这也是一直困扰我的问题，现在解决了。
是不是这样：

2. 
   
3. (defun offos (/ a)
   
4.    (setq a (getvar "osmode"))
   
5.          (if (< a 16384)
   
6.              (setq a (+ a 16384))
   
7.          )
   
8.    (setvar "osmode" a)
   
9. )
   

<br /> (defun offos (/ a)<br />    (setq a (getvar "osmode"))<br />          (if (< a 16384)<br />              (setq a (+ a 16384))<br />          )<br />    (setvar "osmode" a)<br /> )<br />

zhchkuo

3楼的方法很好用，虽然是17年前的答案。哈哈