TA的每日心情 | 开心 2024-8-31 15:58 |
---|
签到天数: 89 天 [LV.6]常住居民II
管理员
- 积分
- 3366
|
演示如何在对话框中显示文本
text.lsp
[code]
;功能:演示 1、 在对话框中显示文本
;所需文件包括: text.lsp text.dcl
;
;加载步骤:
;1、加载lsp
;2、命令行输入 test
(defun c:test( / continue curBtn dlgId )
(setq dlgId (load_dialog "text.dcl"))
(if (not (new_dialog "a" dlgId "" (cond (position) ((list -1 -1)))))
(exit)
)
(start_dialog)
(cond ((= curBtn "btn1") (f1))
((= curBtn "cancel") (setq continue nil))
)
(unload_dialog dlgId)
)
[/code]
text.dcl
[code]a:dialog{
label="text";
:text{
key="text1";
width=8;
fixed_width=true;
label="鸟哥";
}
:row{
:button{
key="okBtn";
label="确定";
}
:cancel_button{
label="关闭";
}
}
}
[/code] |
|