新手路过学习一下，谢谢分享。
edata 发表于 2014-7-7 22:35 static/image/common/back.gif
建议英明的明总提升edata为版主
edata老师点击按钮搜索函数学习了
又学到一招，这两天本有这个打算整理的，现成的出来了，又省了不少事
77077 发表于 2014-7-7 17:49 static/image/common/back.gif
楼主您好，这几天跟楼主学了一招，今天整理了一下自己收集和制作的一些小命令
下面显示格式是这样的
功能：写入特定文字
用法 修改为 命令： TEXT
上面只是举个例子，我想请楼主在现有的面板上面能否增加一个*执行*按钮
也即是当命令行显示命令的时候，点击执行的话就会方便很多。如果有难度的话 增加一个 拷贝 按钮。点击拷贝就把命令行内容拷贝下来 也可以。在这里先谢谢了~
xyp1964 发表于 2014-7-7 18:07 static/image/common/back.gif
点确定后应该直接复制到剪切板
院中您提的意见非常好。
当初看到您的留言还不是很理解，今天终于想明白了
如果能直接复制到剪切板，会有大用处，希望院长给修改一些。这里先谢谢了
界面小改一下，怎么修改代码？
(defun make-dcl (/ lst_str str file f)
(setq lst_str '(
"hsss:dialog {"
" label = \"函数搜索\" ;"
" :spacer {}"
" :row {"
":button{
"label=\"打开函数库\";"
"key=\"libfile\";"
"}"
" :edit_box {"
" key = \"key1\" ;"
" label = \"关键词\" ;"
" width = 60 ;"
" }"
" :button {"
" key = \"key2\" ;"
" label = \"搜索\" ;"
" }"
" :button {"
" key = \"key3\" ;"
" label = \"显示全部\" ;"
" }"
" }"
" :boxed_column {"
" label = \"函数列表\" ;"
" :list_box {"
" key = \"key4\" ;"
" }"
" }"
" :edit_box {"
" key = \"key5\" ;"
" label = \"功能\" ;"
" }"
" :edit_box {"
" key = \"key6\" ;"
" label = \"用法\" ;"
" }"
" :spacer {}"
" ok_cancel;"
"}"
)
)
(setq file (vl-filename-mktemp "DclTemp.dcl"))
(setq f (open file "w"))
(foreach str lst_str
(princ "\n" f)
(princ str f)
)
(close f)
file
)
;
谢谢楼主的奉献！
清风明月名字 发表于 2014-7-12 09:08
谢谢楼主的奉献！
帮忙改改，默认库改成指定库，
qyming 发表于 2014-7-12 08:51 static/image/common/back.gif
界面小改一下，怎么修改代码？
(defun make-dcl (/ lst_str str file ...
你去下载个飞诗DCL。做dcl的确不错。
面板改好了，就是下面怎么连接起来