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

荒野孤行

初始程序部分源码：
  (if reg_wdy501 (eval (read (strcat "(defun c:" reg_wdy501 "() (wdy_zf))"))))
  (if reg_wdy502 (eval (read (strcat "(defun c:" reg_wdy502 "() (wdy_ff))"))))
  (if reg_wdy503 (eval (read (strcat "(defun c:" reg_wdy503 "() (wdy_py))"))))
  (if reg_wdy504 (eval (read (strcat "(defun c:" reg_wdy504 "() (wdy_sy))"))))
  (if reg_wdy505 (eval (read (strcat "(defun c:" reg_wdy505 "() (wdy_yy))"))))

优化源码应该如何写：
(setq lst1 (list wdy501 wdy502 wdy503 wdy504 wdy505))
(setq lst2 (list wdy_zf wdy_ff wdy_py wdy_sy wdy_yy))


(mapcar '(lambda (x y)



  )
)

'↑←  以上未完善的该如何写呢？

edata

建议采用这样的方便控制。

1. (setq lst(list(cons "wdy03" "wdy_zz")(cons "wdy04" "wdy_za")(cons "wdy05" "wdy_zb")))
   
2. (mapcar '(lambda(x)(princ(strcat "(defun c:" (car x) "() (" (cdr x) "))"))) lst)

(setq lst(list(cons "wdy03" "wdy_zz")(cons "wdy04" "wdy_za")(cons "wdy05" "wdy_zb")))<br /> (mapcar '(lambda(x)(princ(strcat "(defun c:" (car x) "() (" (cdr x) "))"))) lst)

Dani1988

77077 发表于 2014-10-31 19:23

点表里面应该是字符串，(setq qml '(("c1" . "yx_c1")("c2" . "yx_c2")("c3" . "yx_c3")))(foreach x qml
  (setq str (strcat
                 "(defun c:"
                 (car x)
                 "() (c:"
                 (cdr x)
                 "))"
            )
   )
  (eval (read str))
)

davide888

   找到了  感谢院长  机械工程师
http://bbs.mjtd.com/thread-110658-1-1.html

guankuiwu

学习一下

liu903758379

想学，看看，感谢分析

vladimirputin

看着不错  想试试 哪有下载啊？

davide888

荒野孤行 发表于 2017-11-13 18:51
等你来解决啊

这也太难了

荒野孤行

davide888 发表于 2017-11-8 22:11
谁来个读取INI或者TXT的呢

等你来解决啊

davide888

谁来个读取INI或者TXT的呢

dadiwusheng

这个好，谢谢分享