레이어는 보존하고 색바꾸는 리습인데요 라인타입도 설정하고 싶어서요

(defun C:1()
(princ “nChange layer : 1=white”)(ssget)
(command “chprop” “p” “” “c” “7” “”)
(princ))
(defun C:2()
(princ “nChange layer : 1=yellow”)(ssget)
(command “chprop” “p” “” “c” “2” “”)
(princ))
(defun C:3()
(princ “nChange layer : 1=green”)(ssget)
(command “chprop” “p” “” “c” “3” “”)
(princ))
(defun C:4()
(princ “nChange layer : 1=magenta”)(ssget)
(command “chprop” “p” “” “c” “6” “”)
(princ))
(defun C:5()
(princ “nChange layer : 1=cyan”)(ssget)
(command “chprop” “p” “” “c” “4” “”)
(princ))
(defun C:6()
(princ “nChange layer : 1=red”)(ssget)
(command “chprop” “p” “” “c” “1” “”)
(princ))

흰색 실선 빨간색 center이런식으로요

한두개만 해주시면 제가 보고 변경할 수 있을꺼같아요.