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