(defun : RSCHAIN()
(setq chainlist1 (list “rs40-10t” “rs40-11t” “rs-4012t” ))
(setq chainlist2 (list “rs40-10t” “rs40-11t” “rs-4012t” ))
(setq dcl_id (loading_dialog “chain.dcl”))
(if (not (new_dialog “RSCHAINLIST” dcl_id))
(progn
(alert “THE RSCHAINLIST.DCL file could not be load”
(exit)
)
)
(start_list “chainlist1” 3)
(mpcar ‘add_list chainlist1)
(end_list)
(start_list “chainlist2” 3)
(mpcar ‘add_list chainlist2)
(end_list)
(acction_tile “accept” “(setq ddiag 2)(savevars)(done_dialog)”)
(start_dialog)
(unload_dialog dcl_id)
(if (= dialog 1)
(princ “n 취소버튼 누름”)
)
(if (= dialo2 2)
(progn
(princ (strcat “n chainlist 평면누름” chainlist1 “선택”))
(princ (strcat “n chainlist 측면누름” chainlist2 “선택”))
)
)
(princ)
)
아래 부분을 dcl에서 작동시켜 도면에 삽입하는 리습을 하려는데 어디에 넣어야 할지를 모르겠네요
평면
(command “insert” “c:/lisp/chain/rs40-10t.dwg” pause “1” “1” “0”)
(command “insert” “c:/lisp/chain/rs40-11t.dwg” pause “1” “1” “0”)
(command “insert” “c:/lisp/chain/rs40-12t.dwg” pause “1” “1” “0”)
측면
(command “insert” “c:/lisp/chain/rs40-10ts.dwg” pause “1” “1” “0”)
(command “insert” “c:/lisp/chain/rs40-11ts.dwg” pause “1” “1” “0”)
(command “insert” “c:/lisp/chain/rs40-12ts.dwg” pause “1” “1” “0”)
RSCHAINLIST : dialog {
label = ” THE CHAIN SPROCKET” ;
: colum {
: boxed_row {
: popup_list {
key = “chainlist1” ;
label = “평면” ;
fixed_width_font = true;
width = 30 ;
value = “” ;
}
: popup row {
key = “chainlist2” ;
label = “측면” ;
fixed_width_font = true;
width = 30 ;
value = “” ;
}
}
: boxed_row {
: button {
key = “accept” ;
label = “확인” ;
is_default = true ;
}
: button {
key = “cancel” ;
label = “취소” ;
is_default = false ;
is_cancel = trur ;
}
}
}
}