对象捕捉开关切换？

zilong136

• ;;对象捕捉开关----
• (defun c:r3 (/ d)
•     (prompt "\n r3:选项板开关")
•   (setq d (getvar "OSMODE"))
•   (cond
•     ((and (< d 16384) (/= d 0))
•       (setq d (+ d 16384))
•       (prompt "\n <对象捕捉 关>")
•     )
•     ((or (= d 0) (>= d 16384))
•       (setq d 16383)
•       (prompt "\n <对象捕捉 开>")
•     )
•   )
•   (setvar "OSMODE" d)
• )
• 欢迎大家来检测。
  

bai2000

看不清，换换颜色

飞雪神光

这种问题跟踪一下 就知道了 可惜我还没安2024  

zilong136

bai2000 发表于 2024-2-11 10:13
看不清，换换颜色

已换，你再看看

ljfdjjj

这有啥好玩的？判断捕捉开关状态不是挺简单的嘛。你这个打开捕捉，直接全给打开了，有些人画图是用不到所有捕捉设置的，你一下全给开了有点不妥，应该是只打开使用者喜好的那几个设置

1. (defun c:tt()
   
2.   (setq a (getvar "osmode"))
   
3.   (if(> a 16384)
   
4.      (progn
   
5.        (setvar "osmode" (- a 16384))
   
6.        (prompt "\n <对象捕捉已打开>")
   
7.      )
   
8.      (progn
   
9.        (setvar "osmode" (+ a 16384))
   
10.        (prompt "\n <对象捕捉已关闭>")
    
11.      )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt()<br />   (setq a (getvar "osmode"))<br />   (if(> a 16384)<br />      (progn<br />        (setvar "osmode" (- a 16384))<br />        (prompt "\n <对象捕捉已打开>")<br />      )<br />      (progn<br />        (setvar "osmode" (+ a 16384))<br />        (prompt "\n <对象捕捉已关闭>")<br />      )<br />   )<br />   (princ)<br /> )