函数搜索,便于大家收集整理自己的函数库~~~

恕放之生命

新手路过学习一下，谢谢分享。

Kye

edata 发表于 2014-7-7 22:35

建议英明的明总提升edata为版主
edata老师点击按钮搜索函数学习了

xiaotao

又学到一招，这两天本有这个打算整理的，现成的出来了，又省了不少事

yaokui25

77077 发表于 2014-7-7 17:49

楼主您好，这几天跟楼主学了一招，今天整理了一下自己收集和制作的一些小命令
下面显示格式是这样的
                                 功能：写入特定文字
                 用法 修改为 命令： TEXT
上面只是举个例子，我想请楼主在现有的面板上面能否增加一个*执行*按钮
也即是当命令行显示命令的时候，点击执行的话就会方便很多。如果有难度的话 增加一个 拷贝 按钮。点击拷贝就把命令行内容拷贝下来 也可以。在这里先谢谢了~

yaokui25

xyp1964 发表于 2014-7-7 18:07
点确定后应该直接复制到剪切板

院中您提的意见非常好。
当初看到您的留言还不是很理解，今天终于想明白了
如果能直接复制到剪切板，会有大用处，希望院长给修改一些。这里先谢谢了

qyming

界面小改一下，怎么修改代码？
(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
)
;

清风明月名字

谢谢楼主的奉献！

qyming

清风明月名字 发表于 2014-7-12 09:08
谢谢楼主的奉献！

帮忙改改，默认库改成指定库，

77077

qyming 发表于 2014-7-12 08:51
界面小改一下，怎么修改代码？
(defun make-dcl  (/ lst_str str file&#16 ...

你去下载个飞诗DCL。做dcl的确不错。

qyming

面板改好了，就是下面怎么连接起来