선택한 객체의 속성 가져오기 lisp 요청

(defun c:ah()
       (setq e (car (entsel “pick an object on the desired layer:”)))
       (if e (progn
       (setq e (entget e))
       (setq n (cdr (assoc 8 e)))
       (command “layer” “set” n “”)))
       (prin1)
)
———————————————————————————————-

위 리습은 기본 도면층을 선택한 객체의 도면층으로 변경해주는 기능입니다.

그런데 제가 원하는 기능은 도면층만 바뀌는게 아니라

선택한 객체의 도면층, 색상, 선종류 등도 같이 가져왔으면 합니다. 


리습의 리자도 모르는 저로써는 너무 어렵네요;;

고수님들의 도움 부탁드립니다!