lisp填写明细表对话框_AutoLISP对话框DCL关于LIST_BOX应用示例

AutoLISP对话框DCL关于LIST_BOX应用示例，DCL对话框代码如下。 dia7a:dialog {

label = "列表框示例" ;

:list_box {

height = 10 ;

key = "klist" ;

label = "词库选单" ;

width = 30 ;

}

:edit_box {

key = "wordstr" ;

label = "词库" ;

}

spacer_1;

ok_cancel;

}

LSP文件代码如下。 (defun c:dia7a ()

(setvar "cmdecho" 0)

(setq word_list '("亚洲"

"中国"

"北京"

"天津"

"上海"

"广州"

"重庆"

"四川"

"河南"

"郑州"

"开封"

"武汉"

"河北"

"江西"

"甘肃"

)

)

(dcl_dia7a)

(prin1)

)

(defun dcl_dia7a ()

(setq dcl_id (load_dialog "dia7a"))

(new_dialog "dia7a" dcl_id)

(start_list "klist")

(mapcar 'add_list word_list)

(end_list)

(action_tile "klist" "(sub_klist $value)")

(action_tile "accept" "(ok_dia7a) (done_dialog 1)")

(setq dd (start_dialog))

(if    (= dd 1)

(progn

(setvar "cmdecho" 1)

(command "text" pause 0 wordstr)

(setvar "cmdecho" 0)

)

)

)

(defun sub_klist (vvs)

(set_tile "wordstr" (nth (atoi vvs) word_list))

)

(defun ok_dia7a    ()

(setq wordstr (get_tile "wordstr"))

)

代码完。