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_dia