绕过李需要帮助
你好我需要以下代码的帮助,这些代码用于检查cmdactive变量,如果脚本正在运行,则绕过例程。
代码是:
;;s::startup section from Lee_Mac, 3rd version of startup modified by Lee_Mac
( (lambda ( / expr )
(vl-load-com)
(setq x (getvar 'cmdactive))
(setq expr '((if (zerop (logand 4 (getvar 'cmdactive))) (c:gochngplt)) (princ)))
(if (= 'list (type s::startup))
(setqs::startup (append s::startup expr))
(eval (vl-list* 'defun-q 's::startup 'nil expr))
)
(princ x)
)
)
;;----------------------------------------------------------------------;;
;; End of File ;;
;;----------------------------------------------------------------------;;
我添加了一个检查来查看cmdactive变量是什么,它始终是一个“0”。
任何帮助都将不胜感激!
感谢您的时间和关注!
页:
[1]