객체선택하면 레이어 자동으로 변하는 현상

 (defun c:qw(/ ent ed la en cdim h-name h-scal h-ang cts)
 (setq ent (car (entsel “레이어변경:”)))
 (if ent
   (progn
    (setq ed (entget ent))
    (setq la (cdr (assoc 8 ed)))
    (setq en (cdr (assoc 0 ed)))
    (setvar “clayer” la)
    (cond ((or (= en “dimension”) (= en “leader”))
           (setq cdim (cdr (assoc 3 ed)))
           (command “dimstyle” “r” cdim)
          )
          ((or (= en “text”) (= en “mtext”))
           (setq cts (cdr (assoc 7 ed)))
           (setvar “textstyle” cts)
          )
          ((= en “hatch”)
           (setq h-name (cdr (assoc 2 ed)))
           (setvar “hpname” h-name)
           (if (/= h=name “solid”)
            (progn
             (setq h-scal (cdr (assoc 41 ed)))
             (setq h-ang (cdr (assoc 52 ed)))
             (setvar “hpscale” h-scal)
             (setvar “hpang” h-ang)
            )
           )
          )
     )
     (princ “Wn레이어변경”)
     (cond ((/= cdim nil) (princ ” & 치수스타일변경”))
           ((/= h-name nil) (princ ” & 해치스타일변경”))
           ((/= cts nil) (princ ” & 문자스타일변경”))
     )
    )
  )
  (princ)
  )