CAD 리습문의 입니다

숫자 번호로 레이어변경 하는 리습인데 작동을 안해서 고수님들 자문은 구하고자 올립니다.

(command “-LAYER” “S” “0” “”)
(princ));
(defun c:1()
(prompt “nCommand: CENTER Draw…”)(terpri)
(command “-layer” “M” “CENTER” “cen” “14” “CEN” “L” “CEN” “” “”)
(command “-LAYER” “S” “CEN” “”)
(princ));

(defun c:2()
(prompt “nCommand: col LAYER Draw…”)(terpri)
(command “-layer” “M” “col” “C” “2” “col” “”)
(command “-LAYER” “S” “col” “”)
(princ));
(defun c:3()
(prompt “nCommand: wal LAYER Draw…”)(terpri)
(command “-layer” “M” “wal” “C” “3” “wal” “”)
(command “-LAYER” “S” “wal” “”)
(princ));
(defun c:4()
(prompt “nCommand: etc LAYER Draw…”)(terpri)
(command “-layer” “M” “etc” “C” “7” “etc” “”)
(command “-LAYER” “S” “etc” “”)
(princ));
(defun c:5()
(prompt “nCommand: HAT LAYER Draw…”)(terpri)
(command “-layer” “M” “HAT” “C” “5” “HAT” “”)
(command “-LAYER” “S” “HAT” “”)
(princ));
(defun c:6()
(prompt “nCommand: dim LAYER Draw…”)(terpri)
(command “-layer” “M” “dim” “C” “134” “dim” “”)
(command “-LAYER” “S” “dim” “”)
(princ));
(defun c:7()
(prompt “nCommand: tex LAYER Draw…”)(terpri)
(command “-layer” “M” “tex” “C” “3” “tex” “”)
(command “-LAYER” “S” “tex” “”)
(princ));
(defun c:8()
(prompt “nCommand: wid LAYER Draw…”)(terpri)
(command “-layer” “M” “wid” “C” “4” “wid” “”)
(command “-LAYER” “S” “wid” “”)
(princ));
(defun c:9()
(prompt “nCommand: lan LAYER Draw…”)(terpri)
(command “-layer” “M” “lan” “C” “3” “lan” “”)
(command “-LAYER” “S” “lan” “”)
(princ))