레이어 변경 리습 (없으면 만들기)

(defun c:CE()
; 메인 함수 (CE 는 캐드상에서 명령어로 사용- c: 부호가 없으면 (CE) 로 명령)

 

 (ssget)
; 객체선택을 요구함 ssget-다중선택가능, entsel-단일선택

 

 (setq ly (tblsearch "layer" "center"))
; 레이어 테이블에서 CENTER 라는 레이어 이름 찾아서 ly라는 함수로 기억시킴

 

(if (= ly nil)
; (조건식) 만약 ly 로 기억시킬 CENTER라는 레이어가 없을 때 아래 라인 수행(있다면  if는 수행치 않음)

 

(command "layer" "m" "center" "lt" "center" "" "c" "1" "" "" )) ; 조건식 if 끝
;CENTER 레이어 만듬
;....layer-명령어, m-만들기, center-레이어 이름, lt-라인타입, center-중심선, ""-엔터, c-색상, 1-색상번호, 이후 엔터두번
;Command 줄은  명령창에서 사용자가 수행하는 행위를 한 줄로 묶었다고 보시면 됩니다

(command "change" "p" "" "p" "la" "center"  "" )
; change-변경명령어, p-좀전에ssget으로 선택한 객체, 엔터, p-특성(P), center-center레이어, 엔터
                     
(command "layer" "s" "0" "" )
; layer-명령, s-선택, 0-0번 레이어, 엔터

 

) ;메인함수 defun 끝

[출처] 리습 궁금합니다 (메카피아) | 작성자 SuHa