(defun remove-duplicates (lst)

(defun remove-item (item lst)

(cond ((null lst) nil)

((equal item (car lst)) (remove-item item (cdr lst)))

(t (cons (car lst) (remove-item item (cdr lst)))))

)

(if lst

(cons (car lst) (remove-duplicates (remove-item (car lst) (cdr lst))))

nil

)

)

(defun c:test (/ cla ss k la-lis ed la)

(princ “n ::::: Layer Except Lock :::::”)

(setq cla (getvar “clayer”))

(setq ss (ssget))

(setq k 0 la-lis ‘())

(setvar “cmdecho” 0)

(repeat (sslength ss)

(setq ed (entget (ssname ss k))

la (cdr (assoc 8 ed)))

(setq la-lis (append la-lis (list la)))

(setq k (1+ k))

) ;repeat

(setq la-lis (remove-duplicates la-lis))

(command “undo” “be”)

(command “layer” “lo” “*” “”)

(foreach x la-lis

(progn

(command “layer” “u” x “”)

(princ (strcat “n[” x “] layer is unlocked.”))

)

) ;foreach

(command “undo” “e”)

(princ “n ::::: Layer Except Lock completion :::::”)

(princ)

) ;defunfun

여기 구문 올리니깐 기호가 빠지네요…매일주소 남겨주세요.//