自制工具箱的自定义快捷键程序

czcxxx

谢谢分享！！！！！！！！！！！！！！

荒野孤行

lucas_3333 发表于 2015-6-10 20:03
贱人工具箱有个导入导出为ini的功能 ,必须存注册表吗?

公司电脑把本地盘给封了，没有权限，我们都是用的网络盘，所以我直接存在注册表里面。并且也不知道怎么存ini及调用ini文件。

lucas_3333

edata 发表于 2014-6-10 22:15
我的还没完。。Z版已经完成。。。

wzg356说的确实有理

本帖最后由 wzg356 于 2014-11-19 00:24 编辑


没有最好，只有更好
笨办法不一定影响效率
相反 方便理解
达到目的就行

荒野孤行的版本,看起来直观

lucas_3333

贱人工具箱有个导入导出为ini的功能 ,必须存注册表吗?

wzg356

没有最好，只有更好
笨办法不一定影响效率
相反 方便理解
达到目的就行

redcat

lisp动态示例

yx5277

优化得不错

77077

2. 
   
3. ;个人意见，命令和命令最好一一对应起来，弄成点表形式
   
4. (setq qml '((WDY501 . WDY_ZF) (WDY502 . WDY_FF) (WDY503 . WDY_PY) (WDY504 . WDY_SY) (WDY505 . WDY_YY)))
   
5. (foreach x qml
   
6.   (setq str (strcat
   
7.                  "(defun c:"
   
8.                  (car x)
   
9.                  "()"
   
10.                  (cdr x)
    
11.                  ")"
    
12.             )
    
13.    )
    
14.   (eval (read str))
    
15. )
    

<br /> ;个人意见，命令和命令最好一一对应起来，弄成点表形式<br /> (setq qml '((WDY501 . WDY_ZF) (WDY502 . WDY_FF) (WDY503 . WDY_PY) (WDY504 . WDY_SY) (WDY505 . WDY_YY)))<br /> (foreach x qml<br />   (setq str (strcat<br />                  "(defun c:"<br />                  (car x)<br />                  "()"<br />                  (cdr x)<br />                  ")"<br />             )<br />    )<br />   (eval (read str))<br /> )<br />

荒野孤行

edata 发表于 2014-6-10 22:15
我的还没完。。Z版已经完成。。。

每个人的写法不一样，我是用的最笨的方法，那些原始的代码是在Excel表里做的，检查时不容易找错误。

荒野孤行

ZZXXQQ 发表于 2014-6-10 21:51

Z版果然强大，我还要继续学习这些函数的用法。