c735023723 发表于 2012-11-18 11:23:20

LLXXZZ 发表于 2012-11-18 12:11:35

;(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))
)

半听可乐 发表于 2012-12-30 11:32:32

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

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

杨如迁 发表于 2013-1-7 08:58:55

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

不明白
页: 1 [2]
查看完整版本: 如何自定义程序快捷键