선종류/레이어/라인타입/색상 바꾸는 리습

검은 굵은 글씨가 명령어 이구요 붉은 글씨는 사용자가 입력을 해주셔야 사용 가능합니다.

;;;---★선종류 & 색상 바꾸는...★<선종류 및 색상은 아래 참조>---------------------------------------------

(defun C:1 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 굵은선
(defun C:2 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 가는실선
(defun C:3 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 중심선
(defun C:4 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 1점쇄선
(defun C:5 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 2점쇄선
(defun C:6 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 숨은선
(defun C:7 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 파단선
(defun C:8 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 다른선
(defun C:9 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 또 다른선
(defun C:0 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 계속 다른선

 

;;;---LAYER로 바꾸는...-------------------------------------------------------------------------------------

(defun C:L1 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 굵은선
(defun C:L2 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 가는실선
(defun C:L3 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 중심선
(defun C:L4 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 1점쇄선
(defun C:L5 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 2점쇄선
(defun C:L6 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 숨은선
(defun C:L7 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 파단선
(defun C:L8 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 다른선
(defun C:L9 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 또 다른선
(defun C:L0 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LA" "레이어이름" "C" "BYLAYER" "LT" "BYLAYER" "")) ; 계속 다른선

 

;;;---색상만 바꾸는...-------------------------------------------------------------------------------------

(defun C:RED () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "1" "")) ;빨간색
(defun C:YEL () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "2" "")) ;노란색
(defun C:GRE () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "3" "")) ;녹색
(defun C:CYA () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "4" "")) ;담청색
(defun C:BLU () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "5" ""))  ;파란색
(defun C:MAG () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "6" "")) ;선홍색
(defun C:WHI () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "7" ""))   ;흰색
(defun C:GRA () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "8" ""))  ;회색

 

;;;---선 종류만 바꾸는-------------------------------------------------------------------------------------

(defun C:CON () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LT" "CONTINUOUS" "")) ;실선 ─
(defun C:DAS () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LT" "DASHED" ""))         ;긴숨은선 ─ ─ ─
(defun C:HID () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LT" "HIDDEN" ""))            ;숨은선 - - - - - -
(defun C:CEN () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LT" "CENTER" ""))         ;중심선 ─ - ─
(defun C:PHA () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LT" "PHANTOM" ""))       ;2점쇄선 ─ - - ─
(defun C:DOT () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LT" "DOT" ""))                ;점(dot)선 .........
(defun C:DAH () (command "SELECT" "\\" "CHANGE" "P" "" "P" "LT" "DASHDOT" ""))        ;대쉬도트 _._._._

[출처] 선종류/레이어/라인타입/색상 바꾸는 리습 (메카피아닷컴) |작성자 수하