TA的每日心情![](source/plugin/dsu_paulsign/img/emot/kx.gif) | 开心 2024-8-31 15:58 |
---|
签到天数: 89 天 [LV.6]常住居民II
管理员
- 积分
- 3366
|
popup_list.lsp
[code]
;功能:演示 1、 popup_list
;所需文件包括: popup_list.lsp popup_list.dcl
;
;加载步骤:
;1、加载lsp
;2、命令行输入 test
(defun c:test( / continue curBtn dlgId )
(setq lists '("A1" "A2" "A3" "A4"
"A5" "A6"))
(setq dlgId (load_dialog "popup_list.dcl"))
(if (not (new_dialog "a" dlgId))
(exit)
)
(start_list "popup") ;*start the list box
(mapcar 'add_list lists) ;*fill the list box
(end_list)
(start_dialog)
(cond ((= curBtn "btn1") (f1))
((= curBtn "cancel") (setq continue nil))
)
(unload_dialog dlgId)
)
[/code]
popup_list.dcl
[code]a:dialog{
label="popup_list";
: popup_list {
key = "popup";
value = "5" ;
}
:row{
:button{
key="okBtn";
label="确定";
}
:cancel_button{
label="关闭";
}
}
}
[/code] |
|