(defun make_dialog (/ )
(setq fname (vl-filename-mktemp “LISP.dcl”))
(setq dcl (open fname “w”))
(write-line
“RB : radio_button
{
width = 35;
fixed_width = true;
}
LISP : dialog
{ label = ”LISP”;
spacer;
: boxed_column
{ label = ”LISP 리스트”;
: row
{
: RB
{ key = ”LISP_1”;
label = ”BOM 무게 계산하기(WW)”;
}
: RB
{ key = ”LISP_2”;
label = ”ITEM E값 계산하기(EE)”;
}
}
: row
{
: RB
{ key = ”LISP_3”;
label = ”DUMMY 길이 구하기(D1)”;
}
: RB
{ key = ”LISP_4”;
label = ”ROD 길이 50mm 더하기(FF)”;
}
}
: row
{
: RB
{ key = ”LISP_5”;
label = ”SECTION 입력하기(SC1)”;
}
: RB
{ key = ”LISP_6”;
label = ”같은 텍스트로 변경하기(CX)”;
}
}
: row
{
: RB
{ key = ”LISP_7”;
label = ”구름마크 그리기(Q1)”;
}
: RB
{ key = ”LISP_8”;
label = ”텍스트 변경하기(QQ)”;
}
}
: row
{
: RB
{ key = ”LISP_9”;
label = ”텍스트 폭비율 변경하기(CTT)”;
}
}
}
spacer;
ok_cancel;
}”
dcl)
(close dcl)
)
이런식으로 만들어서 실행을 시키면 아래처럼 대화상자가 나오는데
┌LISP 리스트ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ-┐
ㅣ ○BOM 무게 계산하기 ○ITEM E값 계산 ㅣ
ㅣ ○DUMMY 길이구하기 ○ROD 길이 50mm 더하기 ㅣ
ㅣ ○SECTION 입력하기 ○같은 텍스트로 변경하기 ㅣ
ㅣ ○구름마크 그리기 ○텍스트 변경하기 ㅣ
ㅣ ○텍스트 폭 비율 변경하기 ㅣ
└ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ-┘
여기서 체크를 하고 확인을 누르면 실행이 되게 만들었거든요
┌LISP 리스트ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ-┐
ㅣ ●BOM 무게 계산하기 ○ITEM E값 계산 ㅣ
ㅣ ●DUMMY 길이구하기 ○ROD 길이 50mm 더하기 ㅣ
ㅣ ●SECTION 입력하기 ○같은 텍스트로 변경하기 ㅣ
ㅣ ●구름마크 그리기 ○텍스트 변경하기 ㅣ
ㅣ ●텍스트 폭 비율 변경하기 ㅣ
└ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ-┘
근데 위에 처럼 체크를 할 수 있더라구요..
저는 한 boxed_column에 하나만 체크가 되게 하고싶은데
어떻게 해야 할까요… 자료가 많이 없어서 찾기도 힘들더라구요..
토글로도 해봤는데 그건 체크 해제해도 마지막에 누른거 기준으로 실행이 돼버리네요ㄷㄷ;;
헉…답변 감사합니다..고민해서 해결해보겠습니다..!