cad r14 에서 단축키로 색깔 바꾸는 lisp 좀..

안녕 하십니까..
이건 제가 사용하고 있는 레이어 관련 리습입니다.
약간 수정 하셔서 사용하시면 가능할검니다.
모르는 부분 있으시면 리플 달아주세요.
그럼 수고하세요.

;=============LAYER 만들기=================================
(defun c:lm()
(setvar “cmdecho” 0)
(command “layer” “m” “1” “c” “green” “”
“m” “2” “c” “red” “”
“m” “3” “c” “yellow” “”
“m” “4” “c” “white” “”
“m” “5” “c” “red” “” “lt” “centerx2” “”
“m” “6” “c” “magenta” “” “lt” “phantom” “”
“m” “7” “c” “cyan” “” “lt” “phantomx2” “”
“m” “8” “c” “yellow” “” “lt” “hidden” “”
“m” “9” “c” “magenta” “”
“m” “10” “c” “white” “” “lt” “hidden” “”
“m” “11” “c” “GREEN” “” “lt” “hidden” “”
“m” “12” “c” “magenta” “” “lt” “hidden” “”
“m” “58” “c” “red” “”
“m” “59” “c” “YELLOW” “”
“m” “60” “c” “green” “”
“m” “61” “c” “green” “”
“m” “62” “c” “green” “”
“m” “63” “c” “red” “” “”
)
(command “layer” “s” “2” “”)
(princ)
);end of lm

;============Layer Hot Key===============
(defun c:la ()(command “.layer”)(princ))
(defun c:ls ()(command “.layer” “s”)(princ))
(defun c:ll ()(command “.layer” “t”)(princ))
(defun c:lf ()(command “.layer” “f”)(princ))
(defun c:11 ()(command “.layer” “s” “1” “”)(princ))
(defun c:22 ()(command “.layer” “s” “2” “”)(princ))
(defun c:33 ()(command “.layer” “s” “3” “”)(princ))
(defun c:44 ()(command “.layer” “s” “4” “”)(princ))
(defun c:55 ()(command “.layer” “s” “5” “”)(princ))
(defun c:66 ()(command “.layer” “s” “6” “”)(princ))
(defun c:77 ()(command “.layer” “s” “7” “”)(princ))
(defun c:88 ()(command “.layer” “s” “8” “”)(princ))
(defun c:99 ()(command “.layer” “s” “9” “”)(princ))
(defun c:10 ()(command “.layer” “s” “10” “”)(princ))
(defun c:1A ()(command “.layer” “s” “11” “”)(princ))
(defun c:6A ()(command “.layer” “s” “12” “”)(princ))

(defun c:q1 ()(setq s (ssget)) (command “.chprop” s “” “la” “1” “”) (princ))
(defun c:q2 ()(setq s (ssget)) (command “.chprop” s “” “la” “2” “”) (princ))
(defun c:q3 ()(setq s (ssget)) (command “.chprop” s “” “la” “3” “”)(princ))
(defun c:q4 ()(setq s (ssget)) (command “.chprop” s “” “la” “4” “”)(princ))
(defun c:q5 ()(setq s (ssget)) (command “.chprop” s “” “la” “5” “”)(princ))
(defun c:q6 ()(setq s (ssget)) (command “.chprop” s “” “la” “6” “”) (princ))
(defun c:q7 ()(setq s (ssget)) (command “.chprop” s “” “la” “7” “”)(princ))
(defun c:q8 ()(setq s (ssget)) (command “.chprop” s “” “la” “8” “”)(princ))
(defun c:q9 ()(setq s (ssget)) (command “.chprop” s “” “la” “9” “”) (princ))
(defun c:q10 () (setq s (ssget)) (command “.chprop” s “” “la” “10” “”) (princ))
(defun c:q1A () (setq s (ssget)) (command “.chprop” s “” “la” “11” “”) (princ))
(defun c:q6A () (setq s (ssget)) (command “.chprop” s “” “la” “12” “”) (princ))
(defun c:q58 () (setq s (ssget)) (command “.chprop” s “” “la” “58” “”) (princ))
(defun c:q59 () (setq s (ssget)) (command “.chprop” s “” “la” “59” “”) (princ))
(defun c:q60 () (setq s (ssget)) (command “.chprop” s “” “la” “60” “”) (princ))
(defun c:q61 () (setq s (ssget)) (command “.chprop” s “” “la” “61” “”) (princ))
(defun c:q62 () (setq s (ssget)) (command “.chprop” s “” “la” “62” “”)(princ))
(defun c:q63 () (setq s (ssget)) (command “.chprop” s “” “la” “63” “”)(princ))

lisp 알켜 준것에 대해 깊은 감사의 말씀 먼저 올리고요..
모르는부분이 모두 다 라..^^
일단은 님이 적으신 layer만들기 란에는 어디가가 복사를
해야 돼는지와..
layer hot key 란에는 key_mac 화일에 덮어 씌우면 될꺼
같거든요..맞는지 한번…^^
정확히..어디다가..복사를 해야 하는지좀 알켜 주세요..
감사 합니다..