求大神给看看有什么问题呀,想要实现开关开了插字，关了不插字
DCL:dia6a:dialog{
label="轻松掌握 TOGGLE 切换开关应用范例";
:boxed_column{ //第一组框行
label="重要开关设定";
:toggle{ //切换开关1
label="123";
key="m1"; //key值
}
}
spacer_1; //空开一列
ok_cancel;
}
LSP;
(defun c:dia6a()
(setvar "cmdecho" 0)
(dcl_dia6a)
(prin1)
)
(defun dcl_dia6a()
(setq dcl_id (load_dialog "dia6a"))
(new_dialog "dia6a" dcl_id)
(set_tile "m1" "0")
(if (= m1 1)
(setq t1 (strcat "人啊张旭东啊按时啥啥" ))
)
(action_tile "accept" "(ok_dia6a)(done_dialog 1)")
(action_tile "cancel" "(cancel_dia6a)(done_dialog -1)")
(setq dd(start_dialog))
(if (= dd 1)
(progn
(setvar "cmdecho" 1)
(command "text" pause pause 0 t1)
(setvar "cmdecho" 0)
)
)
)
(defun ok_dia6a()
(setq m1(strcase (get_tile "m1")))
)
(defun cancel_dia6a()
)
页:
[1]