안녕하세요. 리습좀봐주세요ㅠㅠ 레이어관련

생성하는거 찾아서 글 수정했었는데 꼭 이걸써야하네요ㅠㅠ
치수도 포함되있는 리습인가봐요ㅠㅠ

단축키만 바꾸면되는줄알았는데
ㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠ

첨부파일처럼, 빨간색밑줄부분 레이어로생성,
단축키는 C1 C2 C3 HH PP 이런식으로 바꾸고싶어요

저기 아래 LP, SP 이런거는 없어도 되는데
너무어려워요 도와주세요ㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠ

길어서 죄송합니다 뭘 지워야할지몰라서요ㅠㅠ

;————————————————————————————
(defun c:TE() (if (= nil (tblsearch “layer” “0”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “0”  “”)(princ “nCurrent Layer Setting—>TE”))
              )
(princ))
(defun c:LP() (if (= nil (tblsearch “layer” “LP”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “LP” “”)(princ “nCurrent Layer Setting—>LP”))
              )
(princ))
(defun c:SP() (if (= nil (tblsearch “layer” “SP”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “SP” “”)(princ “nCurrent Layer Setting—>SP”))
              )
(princ))
(defun c:FT() (if (= nil (tblsearch “layer” “FT”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “FT” “”)(princ “nCurrent Layer Setting—>FT”))
              )
(princ))
(defun c:DM() (if (= nil (tblsearch “layer” “DM”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “DM” “”)(princ “nCurrent Layer Setting—>DM”))
              )
(princ))
(defun c:CE() (if (= nil (tblsearch “layer” “CE”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “CE” “”)(princ “nCurrent Layer Setting—>CE”))
              )
(princ))
(defun c:PH() (if (= nil (tblsearch “layer” “PH”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “PH” “”)(princ “nCurrent Layer Setting—>PH”))
              )
(princ))
(defun c:EQ() (if (= nil (tblsearch “layer” “EQ”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “EQ” “”)(princ “nCurrent Layer Setting—>EQ”))
              )
(princ))
(defun c:AS() (if (= nil (tblsearch “layer” “AS”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “AS” “”)(princ “nCurrent Layer Setting—>AS”))
              )
(princ))
(defun c:CV() (if (= nil (tblsearch “layer” “CV”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “CV” “”)(princ “nCurrent Layer Setting—>CV”))
              )
(princ))
(defun c:DU() (if (= nil (tblsearch “layer” “DU”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “DU” “”)(princ “nCurrent Layer Setting—>DU”))
              )
(princ))
(defun c:EL() (if (= nil (tblsearch “layer” “EL”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “EL” “”)(princ “nCurrent Layer Setting—>EL”))
              )
(princ))

(defun c:L1() (if (= nil (tblsearch “layer” “L1”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L1” “”)(princ “nCurrent Layer Setting—>L1”))
              )
(princ))
(defun c:L2() (if (= nil (tblsearch “layer” “L2”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L2” “”)(princ “nCurrent Layer Setting—>L2”))
              )
(princ))
(defun c:L3() (if (= nil (tblsearch “layer” “L3”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L3” “”)(princ “nCurrent Layer Setting—>L3”))
              )
(princ))
(defun c:L4() (if (= nil (tblsearch “layer” “L4”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L4” “”)(princ “nCurrent Layer Setting—>L4”))
              )
(princ))
(defun c:L5() (if (= nil (tblsearch “layer” “L5”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L5” “”)(princ “nCurrent Layer Setting—>L5”))
              )
(princ))
(defun c:L6() (if (= nil (tblsearch “layer” “L6”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L6” “”)(princ “nCurrent Layer Setting—>L6”))
              )
(princ))
(defun c:L7() (if (= nil (tblsearch “layer” “L7”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L7” “”)(princ “nCurrent Layer Setting—>L7”))
              )
(princ))
(defun c:L8() (if (= nil (tblsearch “layer” “L8”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L8” “”)(princ “nCurrent Layer Setting—>L8”))
              )
(princ))
(defun c:L9() (if (= nil (tblsearch “layer” “L9”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “L9” “”)(princ “nCurrent Layer Setting—>L9”))
              )
(princ))

(defun c:S1() (if (= nil (tblsearch “layer” “S1”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S1” “”)(princ “nCurrent Layer Setting—>S1”))
              )
(princ))
(defun c:S2() (if (= nil (tblsearch “layer” “S2”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S2” “”)(princ “nCurrent Layer Setting—>S2”))
              )
(princ))
(defun c:S3() (if (= nil (tblsearch “layer” “S3”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S3” “”)(princ “nCurrent Layer Setting—>S3”))
              )
(princ))
(defun c:S4() (if (= nil (tblsearch “layer” “S4”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S4” “”)(princ “nCurrent Layer Setting—>S4”))
              )
(princ))
(defun c:S5() (if (= nil (tblsearch “layer” “S5”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S5” “”)(princ “nCurrent Layer Setting—>S5”))
              )
(princ))
(defun c:S6() (if (= nil (tblsearch “layer” “S6”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S6” “”)(princ “nCurrent Layer Setting—>S6”))
              )
(princ))
(defun c:S7() (if (= nil (tblsearch “layer” “S7”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S7” “”)(princ “nCurrent Layer Setting—>S7”))
              )
(princ))
(defun c:S8() (if (= nil (tblsearch “layer” “S8”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S8” “”)(princ “nCurrent Layer Setting—>S8”))
              )
(princ))
(defun c:S9() (if (= nil (tblsearch “layer” “S9”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “S9” “”)(princ “nCurrent Layer Setting—>S9”))
              )
(princ))
(defun c:LATT() (if (= nil (tblsearch “layer” “ATT”))
                (princ “nNot Layer”)
                (progn (command “layer” “s” “ATT” “”)(princ “nCurrent Layer Setting—>ATT”))
              )
(princ))
;————————————————————————————
(defun C-LA()
  (setvar “clayer” cla) (princ))
;————————————————————————————
(defun L-C-C()
  (command “chprop” (entlast) “” “la” “CE” “lt” “CONTINUOUS” “”))
(defun L-C-1()
  (command “chprop” (entlast) “” “la” “CE” “lt” “c-1” “”))
(defun L-C-2()
  (command “chprop” (entlast) “” “la” “CE” “lt” “c-2” “”))
(defun L-C-3()
  (command “chprop” (entlast) “” “la” “CE” “lt” “c-3” “”))
(defun L-C-4()
  (command “chprop” (entlast) “” “la” “CE” “lt” “c-4” “”))
(defun L-C-5()
  (command “chprop” (entlast) “” “la” “CE” “lt” “c-5” “”))
(defun L-H-1()
  (command “chprop” (entlast) “” “lt” “h-1” “”))
(defun L-H-2()
  (command “chprop” (entlast) “” “lt” “h-2” “”))
(defun L-H-3()
  (command “chprop” (entlast) “” “lt” “h-3” “”))
(defun L-H-4()
  (command “chprop” (entlast) “” “lt” “h-4” “”))
(defun L-H-5()
  (command “chprop” (entlast) “” “lt” “h-5” “”))
(defun L-P-1()
  (command “chprop” (entlast) “” “la” “PH” “lt” “p-1” “”))
(defun L-P-2()
  (command “chprop” (entlast) “” “la” “PH” “lt” “p-2” “”))
(defun L-P-3()
  (command “chprop” (entlast) “” “la” “PH” “lt” “p-3” “”))
(defun L-P-4()
  (command “chprop” (entlast) “” “la” “PH” “lt” “p-4” “”))
(defun L-P-5()
  (command “chprop” (entlast) “” “la” “PH” “lt” “p-5” “”))
(defun L-P-6()
  (command “chprop” (entlast) “” “la” “PH” “lt” “p-6” “”))
(defun L-P-7()
  (command “chprop” (entlast) “” “la” “PH” “lt” “p-7” “”))
(defun L-LP()
  (command “chprop” (entlast) “” “la” “LP” “lt” “BYLAYER” “”))
(defun L-SP()
  (command “chprop” (entlast) “” “la” “SP” “lt” “BYLAYER” “”))
(defun L-FT()
  (command “chprop” (entlast) “” “la” “FT” “lt” “BYLAYER” “”))
(defun L-EQ()
  (command “chprop” (entlast) “” “la” “EQ” “lt” “BYLAYER” “”))
(defun LA-1()  (if (= kid_ “SM”) (C:SP) (C:LP)))
(defun LA-2()  (if (= kid_ “SM”) (C:FT) (C:SP)))
;—————————————————————————-
(defun C:TT()
   (princ “nChange layer : 0<White, Text>”)(ssget)
   (command “chprop” “p” “” “la” “0” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:LL()
   (princ “nChange layer : LP<Large Pipe>”)(ssget)
   (command “chprop” “p” “” “la” “LP” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:SS()
   (princ “nChange layer : SP<Small Pipe>”)(ssget)
   (command “chprop” “P” “” “la” “SP” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:FF()
   (princ “nChange layer : FT<Fitting(Symbol)>”)(ssget)
   (command “chprop” “p” “” “la” “FT” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:EE()
   (princ “nChange layer : EQ<Equipment>”)(ssget)
   (command “chprop” “p” “” “la” “EQ” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:AA()
   (princ “nChange layer : AS<Architecture>”)(ssget)
   (command “chprop” “p” “” “la” “AS” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:VV()
   (princ “nChange layer : CV<Civil>”)(ssget)
   (command “chprop” “p” “” “la” “CV” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:DDU()
   (princ “nChange layer : DU<Duct>”)(ssget)
   (command “chprop” “p” “” “la” “DU” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:EEL()
   (princ “nChange layer : EL<Electric>”)(ssget)
   (command “chprop” “p” “” “la” “EL” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:DD()
   (princ “nChange layer : DM<White, Dimension>”)(ssget)
   (command “chprop” “p” “” “la” “DM” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun c:CC (/ siz ltype)
   (princ “nChange layer : CE<Red, Center>”)(ssget)
   (setq siz(strcase(getstring “nc-1/c-2/c-3/c-4/c-5/Continuous/<c-2> : “)))
   (cond ((= siz “1”) (setq ltype “c-1”))
         ((= siz “2”) (setq ltype “c-2”))
         ((= siz “3”) (setq ltype “c-3”))
         ((= siz “4”) (setq ltype “c-4”))
         ((= siz “5”) (setq ltype “c-5”))
         ((= siz “C”) (setq ltype “continuous”))
         ((= siz “” ) (setq ltype “c-2”)) (t nil)
   )
   (command “chprop” “P” “” “la” “CE” “lt” ltype “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun c:PP (/ siz ltype)
   (princ “nChange layer : PH<Red, Phantom>”)(ssget)
   (setq siz(strcase(getstring “np-1/p-2/p-3/p-4/p-5/p-6/p-7/Continuous/<p-4> : “)))
   (cond ((= siz “1”) (setq ltype “p-1”))
         ((= siz “2”) (setq ltype “p-2”))
         ((= siz “3”) (setq ltype “p-3”))
         ((= siz “4”) (setq ltype “p-4”))
         ((= siz “5”) (setq ltype “p-5”))
         ((= siz “6”) (setq ltype “p-6”))
         ((= siz “7”) (setq ltype “p-7”))
         ((= siz “C”) (setq ltype “continuous”))
         ((= siz “” ) (setq ltype “p-4”)) (t nil)
   )
   (command “chprop” “P” “” “la” “PH” “lt” ltype “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun c:HH (/ siz ltype)
   (princ “nChange layer : Bylayer<Bylayer, Hidden>”)(ssget)
   (setq siz(strcase(getstring “nh-1/h-2/h-3/h-4/h-5/<h-3> : “)))
   (cond ((= siz “1”) (setq ltype “h-1”))
         ((= siz “2”) (setq ltype “h-2”))
         ((= siz “3”) (setq ltype “h-3”))
         ((= siz “4”) (setq ltype “h-4”))
         ((= siz “5”) (setq ltype “h-5”))
         ((= siz “” ) (setq ltype “h-3”)) (t nil)
   )
   (command “chprop” “P” “” “lt” ltype “”)
   (princ))
;—————————————————————————-
(defun c:GCC (/ siz ltype)
   (princ “nChange layer : Bylayer<Bylayer, Center>”)(ssget)
   (setq siz(strcase(getstring “nc-1/c-2/c-3/c-4/c-5/Continuous/<c-2> : “)))
   (cond ((= siz “1”) (setq ltype “c-1”))
         ((= siz “2”) (setq ltype “c-2”))
         ((= siz “3”) (setq ltype “c-3”))
         ((= siz “4”) (setq ltype “c-4”))
         ((= siz “5”) (setq ltype “c-5”))
         ((= siz “C”) (setq ltype “continuous”))
         ((= siz “” ) (setq ltype “c-2”)) (t nil)
   )
   (command “chprop” “P” “” “c” “1””lt” ltype “”)
   (princ))
;—————————————————————————-
(defun c:GPP (/ siz ltype)
   (princ “nChange layer : Bylayer<Bylayer, Phantom>”)(ssget)
   (setq siz(strcase(getstring “np-1/p-2/p-3/p-4/p-5/p-6/p-7/Continuous/<p-5> : “)))
   (cond ((= siz “1”) (setq ltype “p-1”))
         ((= siz “2”) (setq ltype “p-2”))
         ((= siz “3”) (setq ltype “p-3”))
         ((= siz “4”) (setq ltype “p-4”))
         ((= siz “5”) (setq ltype “p-5”))
         ((= siz “6”) (setq ltype “p-6”))
         ((= siz “7”) (setq ltype “p-7”))
         ((= siz “C”) (setq ltype “continuous”))
         ((= siz “” ) (setq ltype “p-5”)) (t nil)
   )
   (command “chprop” “P” “” “c” “1” “lt” ltype “”)
;   (command “chprop” “P” “” “lt” ltype “”)
   (princ))
;—————————————————————————-
(defun c:ECC (/ siz ltype)
   (princ “nChange layer : Bylayer<Bylayer, Center>”)(ssget)
   (setq siz(strcase(getstring “nc-1/c-2/c-3/c-4/c-5/Continuous/<c-2> : “)))
   (cond ((= siz “1”) (setq ltype “c-1”))
         ((= siz “2”) (setq ltype “c-2”))
         ((= siz “3”) (setq ltype “c-3”))
         ((= siz “4”) (setq ltype “c-4”))
         ((= siz “5”) (setq ltype “c-5”))
         ((= siz “C”) (setq ltype “continuous”))
         ((= siz “” ) (setq ltype “c-2”)) (t nil)
   )
   (command “chprop” “P” “” “lt” ltype “”)
   (princ))
;—————————————————————————-
(defun c:EPP (/ siz ltype)
   (princ “nChange layer : Bylayer<Bylayer, Phantom>”)(ssget)
   (setq siz(strcase(getstring “np-1/p-2/p-3/p-4/p-5/p-6/p-7/Continuous/<p-5> : “)))
   (cond ((= siz “1”) (setq ltype “p-1”))
         ((= siz “2”) (setq ltype “p-2”))
         ((= siz “3”) (setq ltype “p-3”))
         ((= siz “4”) (setq ltype “p-4”))
         ((= siz “5”) (setq ltype “p-5”))
         ((= siz “6”) (setq ltype “p-6”))
         ((= siz “7”) (setq ltype “p-7”))
         ((= siz “C”) (setq ltype “continuous”))
         ((= siz “” ) (setq ltype “p-5”)) (t nil)
   )
   (command “chprop” “P” “” “lt” ltype “”)
   (princ))
;—————————————————————————-
(defun C:L11()
   (princ “nChange layer : L1<Red>”)(ssget)
   (command “chprop” “p” “” “la” “L1” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L22()
   (princ “nChange layer : L2<Yellow>”)(ssget)
   (command “chprop” “p” “” “la” “L2” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L33()
   (princ “nChange layer : L3<Green>”)(ssget)
   (command “chprop” “p” “” “la” “L3” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L44()
   (princ “nChange layer : L4<Cyan>”)(ssget)
   (command “chprop” “p” “” “la” “L4” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L55()
   (princ “nChange layer : L5<Blue>”)(ssget)
   (command “chprop” “p” “” “la” “L5” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L66()
   (princ “nChange layer : L6<Magenta>”)(ssget)
   (command “chprop” “p” “” “la” “L6” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L77()
   (princ “nChange layer : L7<White>”)(ssget)
   (command “chprop” “p” “” “la” “L7” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L88()
   (princ “nChange layer : L8<Dark Gray>”)(ssget)
   (command “chprop” “p” “” “la” “L8” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:L99()
   (princ “nChange layer : L9<Gray>”)(ssget)
   (command “chprop” “p” “” “la” “L9” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S11()
   (princ “nChange layer : S1<Red>”)(ssget)
   (command “chprop” “p” “” “la” “S1” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S22()
   (princ “nChange layer : S2<Yellow>”)(ssget)
   (command “chprop” “p” “” “la” “S2” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S33()
   (princ “nChange layer : S3<Green>”)(ssget)
   (command “chprop” “p” “” “la” “S3” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S44()
   (princ “nChange layer : S4<Cyan>”)(ssget)
   (command “chprop” “p” “” “la” “S4” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S55()
   (princ “nChange layer : S5<Blue>”)(ssget)
   (command “chprop” “p” “” “la” “S5” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S66()
   (princ “nChange layer : S6<Magenta>”)(ssget)
   (command “chprop” “p” “” “la” “S6” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S77()
   (princ “nChange layer : S7<White>”)(ssget)
   (command “chprop” “p” “” “la” “S7” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S88()
   (princ “nChange layer : S8<Dark Gray>”)(ssget)
   (command “chprop” “p” “” “la” “S8” “lt” “bylayer” “c” “bylayer” “”)
   (princ))
;—————————————————————————-
(defun C:S99()
   (princ “nChange layer : S9<Gray>”)(ssget)
   (command “chprop” “p” “” “la” “S9” “lt” “bylayer” “c” “bylayer” “”)
   (princ))