请教自定义命令！请高手帮忙！

荒野孤行

到www.251090706.ys168.com里面去下载WDY工具箱。论坛里面也有这个工具。

illcyt

荒野孤行 发表于 2014-5-16 00:38
到www.251090706.ys168.com里面去下载WDY工具箱。论坛里面也有这个工具。

嗯，谢谢你的回复，现在明白了，这种命令编辑要用对话框来实现

llsheng_73

illcyt 发表于 2014-5-16 11:09
嗯，谢谢你的回复，现在明白了，这种命令编辑要用对话框来实现

如果清楚各个按钮所对应的命令或者函数的正确调用方法，想通过输入自己定义的命令来调用相应的功能而不想调出那个面板，那么可以建立edit_box的key值和对应功能的表，当按“确定”后，通过get_tile得到所自定义的命令与对应的功能函数关联，重新定义该功能的命令后再done_dialog
比如dialog里边有
:EDIT_box{label="功能2";key="key1";}
:EDIT_box{label="功能3";key="key2";}
...
:EDIT_box{label="功能n";key="keyn";}
这些控件都可以不用给它写action
:button{label="确定";key="OK";is_default=true;}
它所对应的action可以写为
(action_tile"OK" "(setq keys(mapcar'get_tile '(\"key1\" \"key2\" ... \"keyn\"))(done_dialog 1)")

有一个功能函数表functions'("fun1" "fun2" ... "funN") 与keys对应的话，接下来还有一个问题是怎么把functions定义为keys,由于defun 后边不能给它变量而只能直接给出sub,我能想到的办法是由程序写一个lisp文件，然后加载它进来，这样可以实现重定义

...(setq fileID(open "文件名" "a"));;;以追加方式写或者直接用"w"方式自己决定
(mapcar '(lambda(x y)
     (if (check   x ))         ;;;check检查 x是否能作为函数名(好象不是所有字符都可以作为函数名,尤其是第一个字母,所以要自己写程序来检查)
     (write (strcat "(defun c:" x "()(" y "))" fileID)))
    keys functions)
(close fileID)
(load  "文件名");;;从道理上说这样是可行的

知行ooo李肖坪

学习一下………………