用LISP设置快捷键
maoniu20000
2017年01月19日 16:20:57
只看楼主

本帖最后由 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))));对话框加载

本帖最后由 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));开启对话框(用户可见)

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






1ba0f8bf58adb9b6bd81.rar
1.7 KB
立即下载
免费打赏
maoniu20000
2017年01月19日 16:23:17
2楼
做出来的效果就想工具箱里面的改键
回复
maoniu20000
2017年01月19日 16:24:17
3楼
贱人工具箱里,快捷键设置是一次设置,重新打开CAD后,快捷键还在!
回复
maoniu20000
2017年01月19日 16:32:26
4楼
坐等高手帮忙完善,不胜感激涕零!
回复
rocer2001
2017年03月06日 09:16:58
5楼
应该有个地方存了一个临时文件!
回复

相关推荐

APP内打开