스톰님, 수정 할 수 있나요?

객체를 선택하고 엔터키를 눌러야 레이어가 동결 및 off 됩니다. 스톰님이 수정 해 주셧습니다..그런데 객체를 선택하고 엔터키를 누르지 않아도 바로 동결 및 off 되게 가능할가요. 부탁드립니다.
메론님 말로는 안된다고 하는데..만일 가능하다면 알려주세요..
;================레이어끄기,동결==============================
;;;ⓒ Kor_Storm 2013
;;;선택 레이어 끄기, 동결
(defun sl-mapcar-ss (func ss)
 (mapcar func (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss))))
)
(defun sl-dub-del (lst / )
 (if lst (cons (car lst) (sl-dub-del (vl-remove (car lst) (cdr lst)))))
)
(defun c:test( / ss layerList layers)
 (vl-load-com)
 (if (setq ss (ssget))
  (progn
   (setq layerList (sl-dub-del (sl-mapcar-ss ‘(lambda (en) (cdr (assoc 8 (entget en)))) ss)))
   (setq layers (vlax-get (vla-get-activedocument (vlax-get-acad-object)) ‘layers))
   (foreach layer layerList
    (vlax-put (vla-item layers layer) ‘LayerOn 0)
    (vlax-put (vla-item layers layer) ‘Freeze 1)
   )
   (vlax-release-object layers)
  )
 )
 (princ)
)