;;这种问题都用反应器,I服了You (if (not userzhl-osmode) (setq userzhl-osmode (vlr-editor-reactor nil '((:vlr-sysvarchanged . userzhl-osmode-set)))) ) (defun userzhl-osmode-set (a b / c) (setq c (getvar "osmode")) (if (member c '(0 4133)) (setvar "osmode" 183) ) (princ) ) |