成双成对(不断更新......)

自贡黄明儒

李钊伟2012 发表于 2020-8-9 14:00
还是不行，没有反应啊

修改组码11不就成了

czb203

恭贺黄总重新出山

自贡黄明儒

捕捉开始、结束标记
[pre]
;;190.1 捕捉开始
(defun _StartOsmode (/ L LST)
  (setq L '("Autosnap" "osmode" "polarmode" "polarAng" "Gridmode" "snapstyl" "snapmode"))
  (foreach x L
    (setq Lst (cons (cons x (getvar x)) Lst))
  )
  (setenv "MyOsmode" (VL-PRIN1-TO-STRING Lst))
  (setvar "osmode" (+ (rem (getvar "osmode") 16384) 16384)) ;关闭捕捉.
)

;;190.2 捕捉结束
(defun _EndOsmode (/ L)
  (cond
    ((setq L (getenv "MyOsmode"))
     (setq L (read L))
     (mapcar '(lambda (x) (cond ((cdr x) (setvar (car x) (cdr x))))) L)
    )
  )
  (setvar "osmode" (rem (getvar "osmode") 16384))            ;打开捕捉.
)
[/pre]

yoyoho

感谢黄大师分享!!!!!

yanshengjiang

黄总出品必须精品

LIULISHENG

支持一下