;;LOUT
(defun c:OLO()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "LOUT" "f" "*" ""))
(defun c:FLO()(command "-layer" "freeze"  "LOUT" ""))
(defun c:TLO()(command "-layer" "T" "LOUT"  "ON" "lout"   ""))	
(defun c:SLO()(command "-layer" "t" "lout" "S" "LOUT"  ""))
(defun c:ELO()(command "-layer" "E" "LOUT"  ""))
(defun c:COLO(/ a)
    (setq a (ssget))
    (command "copy" a "" "0,0" "0,0")
    (command "change" a "" "p" "la" "LOUT" ""))
(defun c:CHLO(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "LOUT" ""))


;;LP
(defun c:OLP()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "-LP" "f" "*" "t" "MM,GG,WIR,mark" ""))
(defun c:FLP()(command "-layer" "freeze" "-LP,-lpdim" ""))
(defun c:TLP()(command "-layer" "T" "-LP"  "ON" "-LP,MM,GG,WIR,mark"   ""))	
(defun c:SLP()(command "-layer" "t" "-lp,MM,GG,WIR,mark" "S" "-LP"  ""))
(defun c:ELP()(command "-layer" "E" "-LP"  ""))
(defun c:COLP(/ a)
    (setq a (ssget))
    (command "copy" a "" "0,0" "0,0")
    (command "change" a "" "p" "la" "-LP" ""))
(defun c:CHLP(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "-LP" ""))

;;LPDIM
(defun c:OLPM()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "-LPDIM" "f" "*" ""))
(defun c:FLPM()(command "-layer" "OFF" "-LPDIM"  ""))
(defun c:TLPM()(command "-layer" "T" "-LPDIM"  "ON" "-LPDIM" ""))	
(defun c:SLPM()(command "-layer" "t" "-LPdim" "S" "-LPDIM"  ""))
(defun c:COLPM(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "-LPDIM" ""))
(defun c:CHLPM(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "-LPDIM" ""))

;;0
(defun c:O0()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "0" "f" "*" ""))
(defun c:F0()(command "-layer" "OFF" "0" ""))
(defun c:T0()(command "-layer" "T" "0"  "ON" "0"   ""))	
(defun c:S0()(command "-layer" "t" "0" "S" "0"  ""))
(defun c:E0()(command "-layer" "E" "0"  ""))
(defun c:CH0(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "0" ""))

;;1
(defun c:O1()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "1" "f" "*" ""))
(defun c:F1()(command "-layer" "OFF" "1" ""))
(defun c:T1()(command "-layer" "T" "1"  "ON" "1"   ""))	
(defun c:S1()(command "-layer" "t" "1" "S" "1"  ""))
(defun c:E1()(command "-layer" "E" "1"  ""))
(defun c:CH1(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "1" ""))

;;2
(defun c:O2()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "2" "f" "*" ""))
(defun c:F2()(command "-layer" "OFF" "2" ""))
(defun c:T2()(command "-layer" "T" "2"   "ON" "2"  ""))	
(defun c:S2()(command "-layer" "t" "2" "S" "2"  ""))
(defun c:E2()(command "-layer" "E" "2"  ""))
(defun c:CH2(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "2" ""))

;;3
(defun c:O3()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "3" "f" "*" ""))
(defun c:F3()(command "-layer" "OFF" "3" ""))
(defun c:T3()(command "-layer" "T" "3"   "ON" "3"  ""))	
(defun c:S3()(command "-layer" "t" "3" "S" "3"  ""))
(defun c:E3()(command "-layer" "E" "3"  ""))
(defun c:CH3(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "3" ""))

;;4
(defun c:O4()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "4" "f" "*" ""))
(defun c:F4()(command "-layer" "OFF" "4" ""))
(defun c:T4()(command "-layer" "T" "4"   "ON" "4"  ""))	
(defun c:S4()(command "-layer" "t" "4" "S" "4"  ""))
(defun c:E4()(command "-layer" "E" "4"  ""))
(defun c:CH4(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "4" ""))

;;5
(defun c:O5()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "5" "f" "*" ""))
(defun c:F5()(command "-layer" "OFF" "5" ""))
(defun c:T5()(command "-layer" "T" "5"   "ON" "5"  ""))	
(defun c:S5()(command "-layer" "t" "5" "S" "5"  ""))
(defun c:E5()(command "-layer" "E" "5"  ""))
(defun c:CH5(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "5" ""))

;;6
(defun c:O6()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "6" "f" "*" ""))
(defun c:F6()(command "-layer" "OFF" "6" ""))
(defun c:T6()(command "-layer" "T" "6"  "ON" "6"   ""))	
(defun c:S6()(command "-layer" "t" "6" "S" "6"  ""))
(defun c:E6()(command "-layer" "E" "6"  ""))
(defun c:CH6(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "6" ""))

;;7
(defun c:O7()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "7" "f" "*" ""))
(defun c:F7()(command "-layer" "OFF" "7" ""))
(defun c:T7()(command "-layer" "T" "7"  "ON" "7"   ""))	
(defun c:S7()(command "-layer" "t" "7" "S" "7"  ""))
(defun c:E7()(command "-layer" "E" "7"  ""))
(defun c:CH7(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "7" ""))

;;DIM
(defun c:ODI()(command "-layer" "on" "*" "u" "*" "t" "*" "s" "DIM" "f" "*" ""))
(defun c:FDI()(command "-layer" "OFF" "DIM" ""))
(defun c:TDI()(command "-layer" "T" "DIM"   "ON" "DIM" ""))	
(defun c:SDI()(command "-layer" "t" "dim" "S" "DIM"  ""))
(defun c:EDI()(command "-layer" "E" "DIM"  ""))
(defun c:CHDI(/ a)
    (setq a (ssget))
    (command "change" a "" "p" "la" "DIM" ""))

