求一段小lsp让我设置好捕捉后,永不关掉!

caoyin

;;用反应器，但不推荐这样，因为 许多程序在运行时需要关掉 osmode

;;红色部分自行设置

(if (not ltr-ResetOsmode)
  (setq ltr-ResetOsmode (vlr-editor-reactor nil '((:vlr-sysvarchanged . lt-ResetOsmode))))
)
(defun lt-ResetOsmode (a b) (if (/= (getvar "osmode") 15359) (setvar "osmode" 15359)) (princ))

英雄无敌

不关捕捉，有些程序运行会出现结果不正确的情况的，还是建议做一个命令，输入该命令自动打开捕捉的好

英雄无敌

不关捕捉，有些程序运行会出现结果不正确的情况的，还是建议做一个命令，输入该命令自动打开捕捉的好

无痕

反应器检测

:vlr-lispEnded

:vlr-lispCancelled

qsb506

我的方法是先打开捕捉设置窗口，选择你要常用的选项，然后按确定退出，输入命令osmode，记下变量值，在CAD安装文件夹下打开Support文件夹，用记事本打开acad2004doc.lsp文件（我用的是2004版的），末尾加上三行代码如下：
(defun c:OOO(  )
(SETVAR "OSMODE" 刚才记下的变量值)
)
保存退出，以后在CAD下如发现捕捉设置被改变了，只要输入ooo就可恢复了。

dinosaurhxe

和楼上的想法差不多，我在捕捉被关闭之后一般都DXC。

;设置对象捕捉模式为：
;端点、中点、圆心、交点、延伸、垂足、插入点
(defun c:dxc ()
  (setvar "osmode" 4327)
  (princ "OK!")
  (PRINC)
)