(vl-bb-set 'NickName_Host "KiKO")
(vl-bb-set 'NickName_Guest "Obi-Wan")
(vl-bb-set 'WorkDirectory_W "C:\\Drawings\\")
(vl-bb-set 'SaveDirectory_S "C:\\Drawings\\")
(vl-bb-set 'KikoPlotSetFile "KiKO_Plot.txt")
(vl-bb-set 'DwgInfoFileNameS "Dwg_Info.txt")
(vl-bb-set 'SaveReactorOnDwg "On")
;; 레이어 자동 생성 목록 ================================================================================================
(vl-bb-set 'KiKO_ALM_Layer_List
       (list 
         ;;  |  명령어    |  레이어 이름  | 색상  | 레이어 라인타입 |출력 ON(1)| 메모            | 객체
         ;;  |            |               | 1~255 |                 |/OFF(0)   |                 | 색상
         (list "DIM*"        "Dimensions"    1      "Continuous"       1        "Dimension Layer")
         (list "*LEADER"     "Dimensions"    1      "Continuous"       1        "Dimension Layer")
         (list "*TEXT"       "Text"          2      "Continuous"       1        "Text Layer")
         (list "*HATCH"      "Hatch"         5      "Continuous"       1        "Hatch Layer")
         (list "*GRADIENT"   "Hatch"         5      "Continuous"       1        "Hatch Layer")
         (list "*POINT"      "Points"        250    "Continuous"       0        "Reference points")
         (list "*MEASURE"    "Points"        250    "Continuous"       0        "Reference points")
         (list "*XLINE"      "Defpoints"     250    "Continuous"       0        nil 251)
         (list "*MVIEW"      "Defpoints"     250    "Continuous"       0        nil)
         (list "*VPORT*"     "Defpoints"     250    "Continuous"       0        nil)
         (list "*REVCLOUD" (strcat "Revisions-" (substr (rtos (getvar 'cdate) 2 0) 3)) 2 "Continuous" 1 "Revision - ")
       )
)
;; 레이어 자동 생성 목록 ================================================================================================
(princ)

;(load "KiKO_Lisp.vlx") ;; 리습 로드

;;=== 도면 출력 리습 (셋팅 명령 : PLOTSET , PDFSET , PRINTSET , CTBSET , PSTAMP )
(defun C:PPO  (/) (KiKO_Auto_Plot_Program nil)) ;; 통합 출력 명령
(defun C:KPL  (/) (KiKO:Plot))  ;; PRINT 출력
(defun C:KPLN (/) (KiKO:Plot_Non_Scale))  ;; Non_Scale PRINT 출력 (용지에 맞춤)
(defun C:KPLA (/) (KiKO:Plot_All))  ;; 화일내의 인식 가능한 모든 도곽을 PRINT 출력
(defun C:DFS  (/) (KiKO_Plot_PDF nil))  ;; PDF 출력
(defun C:PDFN (/) (KiKO:Plot_PDF_Non_Scale))  ;; Non_Scale PDF 출력 (용지에 맞춤)
(defun C:PDFA (/) (KiKO:Plot_PDF_All))  ;; 화일내의 인식 가능한 모든 도곽을 PDF 출력
(defun C:230  (/) (KiKO:Plot_AreaSet_0)) ;; 펜 스타일 1
(defun C:231  (/) (KiKO:Plot_AreaSet_1)) ;; 펜 스타일 1
(defun C:232  (/) (KiKO:Plot_AreaSet_2)) ;; 펜 스타일 2
(defun C:234  (/) (KiKO:Plot_AreaSet_3)) ;; 펜 스타일 3
(defun C:236  (/) (KiKO:Plot_AreaSet_4)) ;; 펜 스타일 4
(defun C:238  (/) (KiKO:Plot_AreaSet_5)) ;; 2번 장치 사용
(defun C:239  (/) (KiKO:Plot_AreaSet_6)) ;; 테두리 없음
;;=== 도면 출력 리습 ===============================================

;;=== 객체 숨기기 / 보이기 리습 ====================================
(defun C:SHO (/) (KiKO:Show_All_E) )
(defun C:SA  (/) (KiKO:Show_All_E) )
(defun C:HID (/) (KiKO:Hidden_Selection_Region (ssget)) (princ))
(defun C:HD  (/) (KiKO:Hidden_Selection_Region (ssget)) (princ))
(defun C:SHD (/) (KiKO:Show_Selection_Region (ssget)) (princ))
(defun C:HS  (/) (KiKO:Show_Selection_Region (ssget)) (princ))
(defun C:HHK (/) (KiKO:Hidden_Selection_Dialog) (princ))
(defun C:SSK (/) (KiKO:Show_Selection_Dialog) (princ))
(defun C:HK  (/) (KiKO:Hidden_Selection_Region_Dialog) (princ))
(defun C:SK  (/) (KiKO:Show_Selection_Region_Dialog) (princ))
(defun C:RSH (/) (KiKO:Reverse_Show_Hidden) (princ))  ;;객체 선택 사항 반전

;;=== 객체 선택 리습 (명령 : SS 수정 불가)
(defun C:MM  (/) (KiKO:Move_SelectionM))
(defun C:CC  (/) (KiKO:Copy_SelectionC))
(defun C:EE  (/) (KiKO:Erase_SelectionE))
(defun C:CCOL (/) (KiKO:Color_Change_Number))     ;; 색상 변경
(defun C:KCOL (/) (KiKO:Color_Change_Selection))  ;; 색상 변경
;;=== 객체 숨기기 / 보이기 리습 ====================================

;;=== 화살표 관련 리습 =============================================
(defun C:ARSET (/) (C:ARROWSET))
(defun C:ARS (/) (arrow_reset_m nil) (princ))
(defun C:ARSD (/) (arrow_reset_m 35) (princ))
(defun C:KA  (/) (KiKO:End_Arrow_End)) ;; 양쪽 끝에 화살표
(defun C:AE  (/) (KiKO:End_Arrow_K))   ;; 한쪽 끝에 화살표
(defun C:ACL  (/) (KiKO:Arrow_Callouts_Leader 0) (princ)) ;; 화살표 지시선
(defun C:ACD  (/) (KiKO:Arrow_Callouts_Leader T) (princ)) ;; 화살표 지시선
;;=== 화살표 관련 리습 =============================================

;;=== Bracket 작도 리습 ============================================
(defun C:BTR (/) (kiko_bkt_txt_print_op_set))    ;; Bracket
(defun C:BN  (/) (KiKO:BRACKET_LEADER nil))      ;; Bracket
(defun C:BK  (/) (KiKO:Bracket_N_K 0 "Bracket")) ;; Bracket
(defun C:BKK (/) (KiKO:Bracket_N_K 1 "Bracket")) ;; Bracket
(defun C:B1  (/) (KiKO:Bracket_N_K 10 "BKT1"))   ;; Bracket
(defun C:B2  (/) (KiKO:Bracket_N_K 10 "BKT2"))   ;; Bracket
;(defun C:B3  (/) (KiKO:Bracket_N_K 10 "BKT3"))  ;; Bracket
;(defun C:B4  (/) (KiKO:Bracket_N_K 10 "BKT4"))  ;; Bracket
;(defun C:B5  (/) (KiKO:Bracket_N_K 10 "BKT5"))  ;; Bracket
(defun C:B11 (/) (KiKO:Bracket_N_K 11 "BKT6"))   ;; Bracket
(defun C:B22 (/) (KiKO:Bracket_N_K 11 "BKT7"))   ;; Bracket
;(defun C:B33 (/) (KiKO:Bracket_N_K 11 "BKT8"))  ;; Bracket
;(defun C:B44 (/) (KiKO:Bracket_N_K 11 "BKT9"))  ;; Bracket
;(defun C:B55 (/) (KiKO:Bracket_N_K 11 "BKT0"))  ;; Bracket
;;=== Bracket 작도 리습 ============================================

;;=== Scallop 작도 리습 ============================================
(defun C:RW  (/) (KiKO:Scallop_W_N nil)) ;; Scallop
(defun C:R1  (/) (KiKO:Scallop_W_N 25))  ;; Scallop
;(defun C:R2  (/) (KiKO:Scallop_W_N 35)) ;; Scallop
;(defun C:R3  (/) (KiKO:Scallop_W_N 50)) ;; Scallop
;(defun C:R4  (/) (KiKO:Scallop_W_N 75)) ;; Scallop
;;=== Scallop 작도 리습 ============================================

;;=== Lighting Hole 작도 리습 ======================================
(defun C:KLH (/) (KiKO:Lighting_Hole_G "L_HOLE_O")) ;; Lighting Hole
(defun C:LH1 (/) (KiKO:Lighting_Hole_G "L_HOLE_1")) ;; Lighting Hole
(defun C:LH2 (/) (KiKO:Lighting_Hole_G "L_HOLE_2")) ;; Lighting Hole
(defun C:LH3 (/) (KiKO:Lighting_Hole_G "L_HOLE_3")) ;; Lighting Hole
(defun C:LHS (/) (kiko_lhole_stiff_p)) ;; Lighting Hole Stiff.
(defun C:LHC (/) (Hole_Base_Point_S))  ;; Lighting Hole Center
;;=== Lighting Hole 작도 리습 ======================================

;;=== Block 관련 리습 ==============================================
(defun C:A2B (/) (KiKO:Add2Block))    ;; 블록에 객체 추가
(defun C:R2B (/) (KiKO:Remove2Block)) ;; 블록에 객체 제거
(defun C:BA (/) (KiKO:BlockAlign))    ;; 커브 위에 블록 정렬
(defun C:IBU (/) (KiKO:Burst))        ;; 속성이 있는 블록 깨기

(defun C:C1 (/) (KiKO:Clip_Block "Block_Clip_1"))
(defun C:C2 (/) (KiKO:Clip_Block "Block_Clip_2"))
;(defun C:C3 (/) (KiKO:Clip_Block "Block_Clip_3"))
;(defun C:C4 (/) (KiKO:Clip_Block "Block_Clip_4"))
;(defun C:C5 (/) (KiKO:Clip_Block "Block_Clip_5"))

(defun C:BLO (/) (KiKO:Block_Create_Ori))    ;; 블럭 생성
(defun C:BLS (/) (KiKO:Block_Create_Color))  ;; 블럭 생성 색상 변경
(defun C:BLH (/) (KiKO:Block_Create_Hidden)) ;; 블럭 생성 숨김 속성

(defun C:MB  (/) (KiKO_BlockNoName_A nil nil T nil) (princ)) ;; 이름 없는 블럭을 생성
(defun C:MBL (/) (KiKO_BlockNoName_A nil nil T T)   (princ)) ;; 이름 없고 분해 안되는 블럭을 생성
;;(KiKO_BlockNoName_A Code1 Code2 Code3 Code4)
;; - Code1  :  Block base point. < ex. (getpoint) >  or nil
;; - Code2  :  Object selection set < ex. (ssget) >  or nil
;; - Code3  :  Added to Block object < ex. T > Only
;; - Code4  :  Block object as Lock < ex. T >  or nil

(defun C:BEY (/) (KiKO:Block_Explode_Lock T)   (princ)) ;; 블럭을 분해가 가능한 상태로 변경
(defun C:BEN (/) (KiKO:Block_Explode_Lock nil) (princ)) ;; 블럭을 분해가 불가능한 상태로 변경

(defun C:REBN (/) (KiKO_BlockRename nil nil) (princ))  ;; 블럭 이름 변경
(defun C:REBA (/) (KiKO:BlockRename) (princ))  ;; 블럭 이름 변경 (유사 문자열)
(defun C:REBC (/) (KiKO_BlockCopy) (princ))  ;; 블럭 이름 변경 (기존 블럭 유지)

(defun C:BCC (/) (KiKO_Block_Color_Change nil nil))  ;; 블록 내부 객체 색상 변경
;;(KiKO_Block_Color_Change Code1 Code2)
;; - Code1  :  Block object selection set. < ex. (ssget) >  or nil
;; - Code2  :  Color number - int 0 ~ 256  < ex. 3 > or nil
(defun C:BLC (/) (KiKO_Block_Layer_Change nil nil nil nil nil))  ;; 블록 내부 객체 레이어 변경
(defun C:BLL (/) (KiKO_Block_Layer_Change nil "0" 0 "ByBlock" 1))  ;; 블록 내부 객체 레이어/색상 변경
;;(KiKO_Block_Layer_Change "G-code1" "G-code2" "G-code3" "G-code4" "G-code5")
;; - "G-code1"  :  Object selection set < ex. (ssget) >  or nil
;; - "G-code2"  :  Layer name - text    < ex. "Layer0" > or nil
;; - "G-code3"  :  Color number - int 0 ~ 256  < ex. 3 > or nil
;; - "G-code4"  :  Linetype - text  < ex. "HIDDEN" > or nil
;; - "G-code5"  :  Linetype scale - int  < ex. 1 > or nil

(defun C:BBP (/) (KiKO:Block_Base_Point_Change) (princ))  ;; 블록의 삽입 기준점 변경

(defun C:GC (/) (KiKO_Group_Creation_S nil)) ;; 그룹 생성
(defun C:GA (/) (KiKO_Group_Add_S))          ;; 그룹에 추가
(defun C:GS (/) (KiKO_Group_Subject_S))      ;; 그룹에서 분리
(defun C:GX (/) (KiKO_Group_eXplode_S))      ;; 그룹 해제

(defun C:XD (/) (KiKO_Block_Explode_Mult nil) (princ)) ;; 다중 블럭 분해
;; - (KiKO_Block_Explode_Mult 123) 1:블럭 , 2:해치 , 3:치수  ex.) (KiKO_Block_Explode_Mult 12) -> 블럭과 해치만 분해.
;;=== Block 관련 리습 ==============================================

;;=== Text 관련 리습 ===============================================
(defun C:TRE (/) (KiKO:AlignText2Curve)) ;; 커브 위에 텍스트 정렬
(defun C:TRR (/) (KiKO_AlignText2Curve "Copy")) ;; 커브 위에 텍스트 정렬
(defun C:BT (/) (KiKO:BoxText))    ;; 텍스트 박스
(defun C:TCO nil (KiKO:Copy_Text)) ;; 텍스트 복사
(defun C:TSW nil (KiKO:Swap_Text)) ;; 텍스트 교환

(defun C:TW  (/) (KiKO:Text_Resize_W nil 0.2)) ;; 글자 폭 변경
(defun C:TWW (/) (KiKO:Text_Resize_W "P" 0.2)) ;; 글자 폭 변경

(defun C:PHI (/) (KiKO:Insert_Head_Text_K "%%c"))  ;; 'Phi' 문자열 삽입
(defun C:*R  (/) (KiKO:Insert_Head_Text_K "R")) ;; 'R' 문자열 삽입
(defun C:**  (/) (KiKO:Insert_Head_Text_K "*")) ;; '*' 문자열 삽입
(defun C:*2  (/) (KiKO:Insert_End_Text_K "²"))  ;; '2' 문자열 삽입
(defun C:KHE (/) (KiKO:Insert_Head_End_Text))   ;; 머리말/꼬릿말 삽입
(defun C:KTSC (/) (KiKO:Text_Search_Change_S))  ;; 문자열 찾아서 바꾸기

(defun C:JM ( / s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0)
    (command "justifytext" (ssget '((0 . "TEXT,MTEXT"))) "" "MC") (setvar "cmdecho" s_cmd) (princ))
(defun C:JL ( / s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0)
    (command "justifytext" (ssget '((0 . "TEXT,MTEXT"))) "" "ML") (setvar "cmdecho" s_cmd) (princ))
(defun C:JR ( / s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0)
    (command "justifytext" (ssget '((0 . "TEXT,MTEXT"))) "" "MR") (setvar "cmdecho" s_cmd) (princ))
(defun C:JF ( / s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0)
    (command "justifytext" (ssget '((0 . "TEXT,MTEXT"))) "" "F") (setvar "cmdecho" s_cmd) (princ))

(defun C:UY  (/) (KiKO:Single_Strikethrough)) ;; 글자에 취소선 그리기
(defun C:UY1 (/) (KiKO:Double_Strikethrough)) ;; 글자에 2줄 취소선 그리기
(defun C:UY2 (/) (KiKO:Triple_Strikethrough)) ;; 글자에 3줄 취소선 그리기
(defun C:UT  (/) (KiKO:Single_Underline))     ;; 글자에 밑줄 그리기
(defun C:UT1 (/) (KiKO:Double_Underline))     ;; 글자에 2줄 밑줄 그리기
(defun C:UT2 (/) (KiKO:Double_Overline_Underline)) ;; 글자 위/아래에 줄 그리기
;;=== Text 관련 리습 ===============================================

;;=== 객체 편집 ====================================================
(defun C:CME (/) (KiKO:CMeasure))  ;; 커브의 거리
(defun C:OO nil (KiKO:DoubleOffset))   ;; 더블 오프셋
(defun C:OH nil (KiKO:DoubleOffset_h)) ;; 더블 오프셋 격벽 표시
(defun C:INA nil (KiKO:Incarray nil))  ;; 배열 복사 Standard version
(defun C:IND nil (KiKO:Incarray  t ))  ;; 동적 배열 복사 (Dynamic version)

(defun C:FA  (/) (KiKO:Face_End_Snip_A))   ;; End Snip
(defun C:AF  (/) (KiKO:Face_End_Snip_B 1)) ;; End Snip
(defun C:AAF (/) (KiKO:Face_End_Snip_B 0)) ;; End Snip
(defun C:AG  (/) (KiKO:Face_End_Snip_B 2)) ;; End Snip
(defun C:AAG (/) (KiKO:Face_End_Snip_B 3)) ;; End Snip
(defun C:EF  (/) (KiKO:Face_End_Snip_C))   ;; End Snip

(defun C:DE  (/) (KiKO:Length_Dist_Extension))  ;; 선 지정 길이 만큼 연장
(defun C:DW  (/) (KiKO:Length_Total_Extension)) ;; 선 전체 길이 변경
(defun C:DQ  (/) (KiKO:Length_Dist_Reduce))     ;; 선 지정 길이 만큼 축소
(defun C:DL  (/) (KiKO:Dist_of_Length))         ;; 객체 길이 확인

(defun C:OSC (/) (KiKO:Object_Scale_Change nil)) ;; 라인 타입 스케일 변경
(defun C:OSL (/) (KiKO:Object_Scale_Change 0))   ;; 라인 타입 스케일 변경 (선택)
(defun C:OSS (/) (KiKO:Object_Scale_Change 1))   ;; 라인 타입 스케일 변경 (선택)

(defun C:POV (/) (KiKO:Point_insert_Vertical_Dist))   ;; 수직 거리 포인터 삽입
(defun C:POH (/) (KiKO:Point_insert_Horizontal_Dist)) ;; 수평 거리 포인터 삽입
(defun C:PX  (/) (KiKO:Point_insert_X_Filter)) ;; X축 기준 포인터 필터
(defun C:PY  (/) (KiKO:Point_insert_Y_Filter)) ;; Y축 기준 포인터 필터

(defun c:rew (/) (KiKO:Revision_Cloud_K 3.5 "N" "N" nil))              ;; 개정 표시
(defun c:rwe (/) (KiKO:Revision_Cloud_K 4.0 "N" "Y" "RGB:255,0,127"))  ;; 개정 표시 (뒤집어...)
(defun c:req (/) (KiKO:Revision_Cloud_K 4.0 "C" "N" nil))              ;; 개정 표시 굵게
(defun c:rqe (/) (KiKO:Revision_Cloud_K 4.0 "C" "Y" "RGB:255,0,127"))  ;; 개정 표시 굵게 (뒤집어...)

(defun C:OI (/) (KiKO:Multi_Offset_O "OI" 75))  ;; 다중 오프셋 (앵글 타입)
(defun C:OU (/) (KiKO:Multi_Offset_O "OU" 250)) ;; 다중 오프셋 (T Bar 타입)
(defun C:OL (/) (KiKO:Multi_Offset_L 50))       ;; 다중 오프셋
(defun C:OD (/) (KiKO:Multi_Offset_D 75))       ;; 다중 오프셋 (원본 삭제)

(defun c:crr (/) (KiKO_Line_CrossLine (ssget '((0 . "LINE"))) nil) (princ))
(defun c:cre (/) (KiKO_Line_CrossLine (ssget '((0 . "LINE"))) 0.05) (princ))

(defun C:KIP (/) (KiKO:Intersection_Point_A)) ;; 교차점

(defun C:ICO (/) (KiKO:Increment_Copy_Obj))  ;; 증분 복사

(defun C:CCY (/) (KiKO:Cylinder_Break_Line) (princ)) ;; 원통 절단 표시
(defun C:CSX (/) (KiKO:Break_Line) (princ)) ;; 절단표시
(defun C:CUX (/) (KiKO_X_Box_P) (princ))

(defun C:KLL (/) (KiKO:Object_Length_T "LINE") (princ))  ;; 길이 측정 후 점 라인 작성
(defun C:KLO (/) (KiKO:Object_Length_Offset) (princ))    ;; 길이 측정 후 점 오프셋
(defun C:KLP (/) (KiKO:Object_Length_T "POINT") (princ)) ;; 길이 측정 후 점 삽입

(defun C:ET  (/) (KiKO:Extent_Trim_Line nil) (princ)) ;; Trim and Extend Line

(defun C:BX  (/) (KiKO:Box_Rectang nil)) ;; Box 그리기
(defun C:BD  (/) (KiKO:Box_Draw_C "BoxDraw" nil nil)) ;; Box 그리기
(defun C:BDX (/) (KiKO:Box_Draw_X "BoxDraw" nil nil)) ;; Box 그리기
(defun C:CEN (/) (KiKO:Centre_Line))   ;; 센터라인
(defun C:KCL (/) (KiKO:Centre_Line_2)) ;; 센터라인

(defun C:PC (/) (KiKO:PolyLine_Close_K)) ;; 폴리선 닫기
(defun C:PJ (/) (KiKO:PolyLine_Join_K))  ;; 폴리선 연결
(defun C:PW (/) (KiKO:PolyLine_Width_K)) ;; 폴리선 폭

(defun C:Q   nil (KiKO:Quick_Mirror nil nil)) ;; 빠른 미러
(defun C:QD  nil (KiKO:Quick_Mirror nil   t)) ;; 빠른 미러 (원본 삭제)
(defun C:QM  nil (KiKO:Quick_Mirror   t nil)) ;; 빠른 미러
(defun C:QMD nil (KiKO:Quick_Mirror   t   t)) ;; 빠른 미러 (원본 삭제)
;;=== 객체 편집 ====================================================

;;=== 치수 편집 ====================================================
(defun C:D1  (/) (KiKO:Dim_Ext1_Hidden))   ;; 치수보조선 (1) 끄기
(defun C:D11 (/) (KiKO:Dim_Ext1_L_Hidden)) ;; 치수선 (1) 끄기
(defun C:D2  (/) (KiKO:Dim_Ext2_Hidden))   ;; 치수보조선 (2) 끄기
(defun C:D22 (/) (KiKO:Dim_Ext2_L_Hidden)) ;; 치수선 (2) 끄기
(defun C:D3  (/) (KiKO:Dim_Ext_Hidden))    ;; 치수보조선 (1) (2) 끄기
(defun C:D33 (/) (KiKO:Dim_Ext_L_Hidden))  ;; 치수선 (1) (2) 끄기
(defun C:D4  (/) (KiKO:Dim_Ext_Show))      ;; 치수보조선 (1) (2) 켜기
(defun C:D5  (/) (KiKO:Leader_Dot))        ;; 지선선 점으로...
;;=== 치수 편집 ====================================================

;;=== 레이어 =======================================================
(defun C:CLC (/) (KiKO:Current_Layer_Change))  ;; 현재 레이어 변경
(defun C:CLA (/) (KiKO:Layer_Control_Current_Move)) ;; 현재 레이어로 선택 객체 이동
(defun C:LL0 (/) (KiKO:Layer_Lock_On_Off))  ;; 선택 객체의 레이어 잠금 / 잠금 해제
(defun C:LL1 (/) (KiKO:Layer_Lock_On))      ;; 모든 레이어의 잠금 해제
(defun C:LLO (/) (KiKO:Layer_Lock_On_And_Off)) ;; 레이어 잠금 / 잠금해제 상태 반전
(defun C:LF0 (/) (KiKO:Layer_Freezer_Off))  ;; 선택 객체의 레이어 동결
(defun C:LP0 (/) (KiKO:Layer_Print_On_Off)) ;; 선택 객체의 레이어 출력 잠금 / 출력 잠금 해제
(defun C:LP1 (/) (KiKO:Layer_Print_On))     ;; 모든 레이어의 출력 잠금 해제
(defun C:LO0 (/) (KiKO:Layer_And_Off))      ;; 선택 객체의 레이어 끄기
(defun C:LO1 (/) (KiKO:Layer_And_On))       ;; 꺼진 레어이를 모두 켜기
(defun C:LOO (/) (KiKO:Layer_On_And_Off))   ;; 레이어 켜기 / 끄기 상태 반전

(defun C:CCC (/) (KiKO:Current_Color_Change))  ;; 현재 색상 변경
(defun C:CTC (/) (KiKO:Current_Linetype_Change))  ;; 현재 라인타입 변경
;;=== 레이어 =======================================================

;;=== 객체 색상 및 라인타입 변경 ===================================
;; (KiKO_Color_Change nil 색상번호)
(defun C:KCC (/) (KiKO_Color_Change nil nil)) ;; 색상 변경
(defun C:1 (/) (KiKO_Color_Change nil 1)) ;; 색상 변경 1 (빨간색)
(defun C:2 (/) (KiKO_Color_Change nil 2)) ;; 색상 변경 2 (노란색)
(defun C:3 (/) (KiKO_Color_Change nil 3)) ;; 색상 변경 3 (초록색)
(defun C:4 (/) (KiKO_Color_Change nil 4)) ;; 색상 변경 4 (하늘색)
(defun C:5 (/) (KiKO_Color_Change nil 5)) ;; 색상 변경 5 (파란색)
(defun C:6 (/) (KiKO_Color_Change nil 6)) ;; 색상 변경 6 (분홍색)
(defun C:7 (/) (KiKO_Color_Change nil 7)) ;; 색상 변경 7 (하얀색)

;; (KiKO_Linetype_Change "라인타입" 라인색상번호 nil "레이어이름")
(defun C:0  (/) (KiKO_Linetype_Change "Center" nil nil nil)) ; Center Line
(defun C:0P (/) (KiKO_Linetype_Change "Center" 1 nil '("Center" "Center" 1))) ; Center Line & Layer
(defun C:9  (/) (KiKO_Linetype_Change "Dashed" nil nil nil))  ; Dashed Line
(defun C:8  (/) (KiKO_Linetype_Change "Phantom" nil nil nil))  ; Phantom Line
(defun C:8i (/) (KiKO_Linetype_Change "Phantom" 5 nil '("Center" "Center" 1)))  ; Phantom Line & Layer
(defun C:04 (/) (KiKO_Linetype_Change "KiKO_SEAM_1" "ByLayer" nil '("Seam" "KiKO_SEAM_1" 1)))
;;=== 객체 색상 및 라인타입 변경 ===================================

;;=== 파일 저장 ====================================================
(defun C:qsd (/) (KiKO:Dwg_Save_File_Date_K))     ;; 화일 이름 뒤에 오늘 날짜
(defun C:qsa (/) (KiKO:Dwg_Save_File_Appreved_K)) ;; 화일 이름 뒤에 Approval
(defun C:qss (/) (KiKO:Dwg_Save_File_Appreval_K)) ;; 화일 이름 뒤에 For Approval
(defun C:qsw (/) (KiKO:Dwg_Save_File_Working_K))  ;; 화일 이름 뒤에 For Warking
(defun C:qsf (/) (KiKO:Dwg_Save_File_Final_K))    ;; 화일 이름 뒤에 - F
(defun C:qsx (/) (KiKO:Quick_Save_Receive_N "X")) ;; {접수-' 문구 추가
(defun C:qsc (/) (KiKO:Quick_Save_Receive_N "C")) ;; {발송-' 문구 추가
;;=== 파일 저장 ====================================================

(defun C:BGC (/) (KiKO:BackGroundColorChange) (princ)) ;; 배경 색상 변경

(defun C:Z1 (/) (KiKO_View_Save_A 1) (princ))
(defun C:Z2 (/) (KiKO_View_Save_A 2) (princ))

(defun C:+ (/) (KiKO_Calculator_1 "+"))
(defun C:- (/) (KiKO_Calculator_1 "-"))
(defun C:* (/) (KiKO_Calculator_1 "*"))
(defun C:/ (/) (KiKO_Calculator_1 "/"))

(defun C:ktrans (/) (ToEn_ToKo_Trans 0)) ;구글 변역
(defun C:etrans (/) (ToEn_ToKo_Trans 1)) ;구글 변역

(defun c:V1  (/ s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (vl-cmdf "vports" "si")    (setvar "cmdecho" s_cmd) (princ))
(defun c:V2  (/ s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (vl-cmdf "vports" "2" "v") (setvar "cmdecho" s_cmd) (princ))
(defun c:V2H (/ s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (vl-cmdf "vports" "2" "h") (setvar "cmdecho" s_cmd) (princ))

(defun C:XH (/ s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (vl-cmdf "XLINE" "H") (setvar "cmdecho" s_cmd) (princ) )
(defun C:XV (/ s_cmd) (setq s_cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (vl-cmdf "XLINE" "V") (setvar "cmdecho" s_cmd) (princ) )

(if (= ALM_On_Off 0) (KiKO_Auto_Layer_Maker))

(if (vl-bb-ref 'KiKO_Lisp_Version)
  (progn
    (KiKO_ARROW_SET)
    (princ (strcat "\n  " (vl-bb-ref 'KiKO_Lisp_Version) " - DWG.ID : " (rtos (getvar 'userr3) 2 0)))
  )
)
(princ)