(defun C:GC (/) (KiKO_Group_Creat_W nil) (princ)) ;; 그룹 생성
(defun C:GA (/) (KiKO_Group_Add_W) (princ)) ;; 기존 그룹에 객체 추가
(defun C:GS (/) (KiKO_Group_Subject_W) (princ)) ;; 기존 그룹에서 객체 분리
(defun C:GX (/) (KiKO_Group_eXplode_W) (princ)) ;; 그룹 분해
(princ "\n: KiKO Group Lisp | GC  ||  GA  ||  GS  ||  GX :")
(princ)