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

amook147

qsb506 发表于 2008-6-6 12:30
我的方法是先打开捕捉设置窗口，选择你要常用的选项，然后按确定退出，输入命令osmode，记下变量值，在CAD ...

如果需要手动恢复  那不需要这么麻烦啊    加载这个  就行了 需要哪个自行更改   
(defun c:BZ ()
  ;; 1. 设置哪些捕捉需要打开，添加对应位码数，并在OSMODE中把所有位码相加
  (setvar "OSMODE" 695) ; 1(端点) + 2(中点) + 4(圆心) + 16(象限点) + 32(交点) + 128(垂足) + 512(最近点)
  
  ;; 2. 确保对象捕捉开启（清除关闭标志）
  (setvar "OSMODE" (logand (getvar "OSMODE") 16383)) ; 清除16384位（关闭标志）
  
  ;; 3. 开启对象捕捉追踪（F11）
  (setvar "AUTOSNAP" (boole 7 (getvar "AUTOSNAP") 16)) ; 设置追踪位
  
  ;; 4. 验证并显示结果
  (setq finalOsMode (getvar "OSMODE"))
  
  (princ "\n========== 对象捕捉设置 ==========")
  (princ (strcat "\n对象捕捉状态: " (if (zerop (logand finalOsMode 16384)) "开启" "关闭")))
  
  ;; 列出所有启用的捕捉模式
  (setq enabledModes "")
  (if (> (logand finalOsMode 1) 0) (setq enabledModes (strcat enabledModes "端点 ")))
  (if (> (logand finalOsMode 2) 0) (setq enabledModes (strcat enabledModes "中点 ")))
  (if (> (logand finalOsMode 4) 0) (setq enabledModes (strcat enabledModes "圆心 ")))
  (if (> (logand finalOsMode 16) 0) (setq enabledModes (strcat enabledModes "象限点 ")))
  (if (> (logand finalOsMode 32) 0) (setq enabledModes (strcat enabledModes "交点 ")))
  (if (> (logand finalOsMode 128) 0) (setq enabledModes (strcat enabledModes "垂足 ")))
  (if (> (logand finalOsMode 512) 0) (setq enabledModes (strcat enabledModes "最近点 ")))
  (if (= enabledModes "")
    (princ "\n捕捉模式: 无")
    (princ (strcat "\n捕捉模式: " enabledModes)))
  
  (princ (strcat "\n对象捕捉追踪(F11): " (if (zerop (logand (getvar "AUTOSNAP") 16)) "关闭" "开启")))
  (princ "\n==================================")
  
  ;; 5. 如果捕捉模式未设置，提供解决方案
  (if (= enabledModes "")
    (progn
      (princ "\n\n?? 捕捉模式未正确设置！请尝试：")
      (princ "\n1. 手动设置捕捉模式：")
      (princ "\n   (setvar \"OSMODE\" 167)")
      (princ "\n2. 检查CAD版本兼容性")
      (princ "\n3. 联系技术支持")
    )
  )
  
  (princ)
)

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)
)