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

巨蟹莫岩

nonsmall 发表于 2008-10-1 21:13
(vl-load-com)(vl-load-reactors)(if (not (equal (type ResetOsmode_lisp_end) 'VLR-Lisp-Reactor))  ...

厉害

mjz521yy

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

lengxiaxi

好帖，留名！顾及到程序繁多，还是用命令设置捕捉模式比较好！

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