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

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

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

杨如迁

LLXXZZ 发表于 2012-12-19 12:34
;批量重定义函数
;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))
)
我改了加载了没反应

杨如迁

杨如迁

;(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"))
程序运行不了求帮助

杨如迁

谁举个列子

我爱lisp

哪里有可以重新定义系统函数的例子参考一下？