(NEAR)【启用捕捉】并【清除】或【恢复】最近点捕捉

fangmin723

抛转引玉哈，想要啥样就改成啥样的

1. (defun C:near(/ osm)
   
2.   (if (>= (setq osm (getvar "OSMODE")) 16384)
   
3.     (progn
   
4.       (setvar "OSMODE" (setq osm (- osm 16384)))
   
5.       (princ "\n当前捕捉未启用，已启用捕捉!")
   
6.     )
   
7.   )
   
8.   (if (= (logand osm 512) 512)
   
9.     (progn (setvar "OSMODE" (- osm 512)) (princ "\n已清除最近点捕捉!"))
   
10.     (progn (setvar "OSMODE" (+ osm 512)) (princ "\n已恢复最近点捕捉!"))
    
11.   )
    
12.   (prin1)
    
13. )
    
14. (princ "\n< NEAR >【启用捕捉】并【清除】或【恢复】最近点捕捉! BY - 702099480@qq.com")
    
15. (prin1)

(defun C:near(/ osm)<br />   (if (>= (setq osm (getvar "OSMODE")) 16384)<br />     (progn<br />       (setvar "OSMODE" (setq osm (- osm 16384)))<br />       (princ "\n当前捕捉未启用，已启用捕捉!")<br />     )<br />   )<br />   (if (= (logand osm 512) 512)<br />     (progn (setvar "OSMODE" (- osm 512)) (princ "\n已清除最近点捕捉!"))<br />     (progn (setvar "OSMODE" (+ osm 512)) (princ "\n已恢复最近点捕捉!"))<br />   )<br />   (prin1)<br /> )<br /> (princ "\n< NEAR >【启用捕捉】并【清除】或【恢复】最近点捕捉! BY - <a href="mailto:702099480@qq.com">702099480@qq.com</a>")<br /> (prin1)