레이어 생성 리습인데 수정부탁드립니다.

명령어 “12”를 입력하고 레이어 명을 입력하면 그 레이어가 생성이 되는데요

여기에 색상도 제가 지정할수 있게 수정부탁드립니다.


(defun c:12 ()
 (setvar   “cmdecho” 0)
 (setq a (getstring “n : 레이어 명을 입력하세요—>  “))
 (if (= (tblsearch “layer” a) nil)  
    (command “-layer” “m” a “”)) ; 입력받은 레이어가 없으면 만든다
 (command “layer” “S” a “”)    ; 입력받은 레이어가 현재 레이어로 된다 
 )
;