리습파일 좀 봐주세요

(defun c:ess2(/ entl la lt co ty ss)
(prompt “nt 선택한 라인타입과 같은(layer,ltype,color)것을 지웁니다.”)
(setq entl (entget (setq ent (car (entsel)))))
(setq la (dxf 8 entl) lt (dxf 6 entl) co (dxf 62 entl) ty (dxf 0 entl))
(cond
((and co lt)
(setq ss (ssget “X” (list (cons 0 ty)(cons 8 la)(cons 6 lt)(cons 62 co)))))
((and co (= lt nil))
(setq ss (ssget “X” (list (cons 0 ty)(cons 8 la)(cons 62 co)))))
((and (= co nil) lt)
(setq ss (ssget “X” (list (cons 0 ty)(cons 8 la)(cons 6 lt)))))
((and (= co nil)(= lt nil))
(setq ss (ssget “X” (list (cons 0 ty)(cons 8 la)))))
)
; (sssetfirst nil ss)
; (cond
; ((and lt co)(setq ss2 (ssget “_I” (list (cons 6 lt)(cons 62 co)))))
; (lt (setq ss2 (ssget “_I” (list (cons 6 lt)))))
; (co (setq ss2 (ssget “_I” (list (cons 62 co)))))
; (T
; (progn
; (setq i 0 ss2 (ssadd))
; (repeat (sslength ss)
; (setq el (entget (setq en (ssname ss i))))
; (if (and (= (dxf 6 el) nil) (= (dxf 62 el) nil))
; (setq ss2 (ssadd en ss2))
; )
; (setq i (1+ i))
; )
; )
; )
; )
(if ss (command “_.Erase” ss ))
(prin1)
)