用LISP设置快捷键

本帖最后由 maoniu20000 于 2017-1-19 16:31 编辑

RT。
本人想用lisp编写一个带对话框的修改快捷键的程序；遇到瓶颈，望高人指点！谢谢！
代码如下：
(defun C:www();;根据封小风分享lsp修改
(vl-load-com)
(setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl_Form1))));对话框加载
(vl-file-delete Dcl_File);加载后删除DCL文件
(setq Dialog_Return 2)
(while (> Dialog_Return 1) ;循环控制对话框是否结束
(new_dialog "Form1" dcl_id);建立窗体
;-->-->-对话框初始化->-->--
(setq keys '("Check1" "Text8" "Text1" "Command1" "Text2" "Text3" "Text4" "Text5" "Text6" "Text7" "accept" "cancel" "help"));列表全部控件名称
(foreach key keys;全部控件的初始化
(if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
(action_tile key "(Action_Form1_Keys $key $value)");点击动作
)
;--<--<-对话框初始化完成-<--<--
(setq Dialog_Return (start_dialog));开启对话框(用户可见)

)
具体代码详见下面的附件里