레이어 끄는 리습 문의

(defun c:lf (/ cmd)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setq ename (car (entsel “도면층 객체선택 :”)))
(while (null ename)
(setq ename (car (entsel “도면층 객체다시선택 :”)))
)
(while (or (null ename)
(equal (cdr (assoc 8 (entget ename))) (getvar “clayer”))
)
(setq ename (car (entsel “도면층 다른객체선택 :”)))
)
(setq elist (entget ename))
(setq lyr (assoc 8 elist))
(prompt (strcat “선택된 도면층은? ” (cdr lyr) “.”))
; (setq test (getstring “선택된 도면층을 감추실겁니까? <N>:”))
; (if (or (equal test “Y”) (equal test “y”))
(progn (command “layer” “off” (cdr lyr) “”))
(prompt (strcat “지금의 도면층은? ” (cdr lyr) ” is OFF”))
; )
; )
(setvar “cmdecho” cmd)
(prin1)
)

레이어 끄는 리습인데요 드레그 하면서도 끌 수 있나요??
고수님들 문의 드립니다. (”)(..)(”)