杨如迁 发表于 2012-12-18 15:05:03

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

LLXXZZ 发表于 2012-12-19 12:34:41

;批量重定义函数
;ls--(("新名" "旧名")("新名" "旧名") ...)

例子有了,定义不会有问题吧.....

杨如迁 发表于 2012-12-20 13:03:34

LLXXZZ 发表于 2012-12-19 12:34 static/image/common/back.gif
;批量重定义函数
;ls--(("新名" "旧名")("新名" "旧名") ...)



;(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--((""tcbj" "bj")("ksjk" "jk") ...)
(defun ReDefun (ls / )
(foreach n ls (ReDefunLib n))
)
我改了加载了没反应

杨如迁 发表于 2013-2-3 23:52:08

杨如迁 发表于 2013-2-5 00:11:59

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

;;;;(ReDefunLib '( "c99" "1-1"))

;(setq lis'( "c99" "1-1"))
;;;(setq lis'( "ww" "gbtc"))

;lis--'("新名" "旧名")
(defun ReDefunLib (lis)
(eval      (read (strcat "(defun c:"
                     (car lis)
                      "()(C:"
                      (cadr lis)
                      "))(princ)"
            )
      )
)
)
;批量重定义函数
;ls--(("新名" "旧名")("新名" "旧名") ...)
(setq ls'( "bb" "gbtc")( "ww" "sdtc"))
(defun ReDefun (ls / )
(foreach n ls (ReDefunLib n))
)
(ReDefun '( "bb" "gbtc")( "ww" "gbtc"))
程序运行不了求帮助

杨如迁 发表于 2013-2-5 22:49:25

谁举个列子

我爱lisp 发表于 2015-6-2 09:33:56

哪里有可以重新定义系统函数的例子参考一下？
页: [1]
查看完整版本: LLXXZZ 怎么批量重定义函数