[编程交流] 绕过李需要帮助

;;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))
           (setq  s::startup (append s::startup expr))
           (eval (vl-list* 'defun-q 's::startup 'nil expr))
       )
       (princ x)
   )
)
;;----------------------------------------------------------------------;;
;;                             End of File                              ;;
;;----------------------------------------------------------------------;;