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

dinosaurhxe

我也是新来的，懂的不多，呵呵。

xotoo

我想知道反应器是如何用的

pmyun

liminnet发表于2008-6-1 15:13:00我们经常在设置好捕捉后,在用到一些别人开发的程序时,有时程序自动把捕捉变量关掉啦,而在程序退出了并没有还原原来的变量,造成捕捉功能被关掉,又要开启,太烦啦。现在想通过lsp语言让程序执行后

用注册表文件赛，CAD捕捉设置是保存在注册表里的，我一直是这样干的。

nonsmall

(vl-load-com)
(vl-load-reactors)
(if (not (equal (type ResetOsmode_lisp_end) 'VLR-Lisp-Reactor))
  (setq ResetOsmode_Lisp_End (vlr-lisp-reactor nil '((:vlr-lispEnded . ResetOsmode))))
)
(if (not (equal (type ResetOsmode_Lisp_Cancel) 'VLR-Lisp-Reactor))
  (setq ResetOsmode_Lisp_Cancel (vlr-lisp-reactor nil '((:vlr-lispCancelled . ResetOsmode))))
)
(defun ResetOsmode(Rec_a Rec_b)
 (if (/= (getvar "osmode") 4327) (setvar "osmode" 4327)) (princ)
)

softguard

 以下我开发的一段程序，

1）当捕捉值丢失后，手动执行BZ命令，即可恢复。

2）在没有把直记录到注册表前，会提示先保存下来，以后丢失就使用bz命令。

3）在其他程序执行之前，如果你不知道当前的值是多少，可以用（snapvalue “get”）获得您

设定的值

    ;save the obsnap mode
(DEFUN C:BZ (/ oce opselect)
  (SETQ oce (GETVAR "cmdecho"))
  (SETVAR "cmdecho" 0)
  (SETQ opselect (GETSTRING "\n输入选项 [保存捕捉设定(S) |使用保存的捕捉设定(U)]:<U>"))
   (PRINC "       Osmode=")
  (IF (OR (= opselect "S") (= opselect "s"))
    (PROGN (PRINC (snapvalue "save")))
    (PROGN (PRINC (snapvalue "get"))) ;ACAD-301:409
  )
  (SETVAR "cmdecho" oce)
  (PRINC)
)

(DEFUN snapvalue  (get_save / osm hkey cver cProfiles)
  (SETQ hkey "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
  (SETQ cver (VL-REGISTRY-READ hkey "CurVer")) ;R16.1
  (SETQ hkey (STRCAT hkey "\\" cver))   ;HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R16.1
  (SETQ cver (VL-REGISTRY-READ hkey "CurVer")) ;ACAD-301:409
  (SETQ hkey (STRCAT hkey "\\" cver "\\Profiles")) ;HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R16.1\\ACAD-301:409\\Profiles
  (SETQ cProfiles (VL-REGISTRY-READ hkey "")) ;2014
  (SETQ hkey (STRCAT hkey "\\" cProfiles "\\General")) ;HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R16.1\\ACAD-301:409\\Profiles\\2014
  (COND ((= (STRCASE get_save) "GET")
         (SETQ osm (VL-REGISTRY-READ hkey "Osmode1"))
         (IF (AND (/= osm nil) (/= osm 0))
           (PROGN (VL-REGISTRY-WRITE hkey "Osmode" osm) (SETVAR "osmode" osm))
           (PROGN (SETQ promptstr "\n尚未保存捕捉设定!保存当前捕捉模式？(Y/N) :<")

(ALERT "Please setup the objsnap value first and save it!")
                  (INITDIA)  

                (COMMAND "'_+dsettings" "2" "")
                  (SETQ sosmd (STRCASE (getuserinput sosmd promptstr "Y" "Getstring")))；自定义函数，（getsuerinput old promptstring default getmodeStr）
                  (IF (= sosmd "Y")
                    (PROGN (SETQ osm (GETVAR "osmode")) (VL-REGISTRY-WRITE hkey "Osmode1" osm)))

                  (PRINC))))
        ((= (STRCASE get_save) "SAVE") (SETQ osm (GETVAR "osmode")) (VL-REGISTRY-WRITE hkey "Osmode1" osm))))

oyxx1023

上面的方法不能透明执行.我是用ARX重新定义F3键,按F3时,如果捕捉是关闭的,则打开默认捕捉.如果之前设置过捕捉,打开即可.

samshs

(defun c:bg(  )
(SETVAR "OSMODE" 703 )
)
(prin1)
;捕捉點設置

Alan.Shi

我的方法是用快捷键F7定义成 (setvar "osmode" 2263)，反正原来的F7都已经包含在OSMODE里面了