如何自定义程序快捷键

c735023723

LLXXZZ

;(setq lis '("a" "b")) (c:33)
;(ReDefunLib '("a33" "33"))
;(ReDefun '(("a333" "93")))

;(ReDefunLib '( "c99" "1-1"))
;(setq lis  '( "c99" "1-1"))
;lis--'("新名" "旧名")
(defun ReDefunLib (lis)
  (eval        (read (strcat "(defun c:"
                      (car lis)
                      "()(C:"
                      (cadr lis)
                      "))(princ)"
              )
        )
  )
)
;批量重定义函数
;ls--(("新名" "旧名")("新名" "旧名") ...)
(defun ReDefun (ls / )  
  (foreach n ls (ReDefunLib n))
)

半听可乐

hao3ren 发表于 2012-11-13 16:08
ll_j 老大，他应该不是这个意思，估计他想写个对话框形式的东东
我觉得一是写注册表，一个应该是往文本里面 ...

贱人工具箱里就有那样的功能，期待独立的出现

杨如迁

ou67169488 发表于 2012-11-15 08:21
已经找到办法啦！(eval (read (strcat "defun C:" 快捷方式 "()""(c:aa)")))

不明白