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

ZZXXQQ

2. (setq lst1 (list wdy501 wdy502 wdy503 wdy504 wdy505))
   
3. (setq lst2 (list wdy_zf wdy_ff wdy_py wdy_sy wdy_yy))
   
4. (mapcar
   
5. '(lambda (x y)
   
6.   (setq a (eval(read(strcat "reg_" (vl-princ-to-string x)))))
   
7.   (if a (eval(read(strcat "(defun c:" a "() (" (vl-princ-to-string y) "))"))))
   
8. )
   
9. lst1
   
10. lst2
    
11. )
    

(setq lst1 (list wdy501 wdy502 wdy503 wdy504 wdy505))<br /> (setq lst2 (list wdy_zf wdy_ff wdy_py wdy_sy wdy_yy))<br /> (mapcar<br /> '(lambda (x y)<br />   (setq a (eval(read(strcat "reg_" (vl-princ-to-string x)))))<br />   (if a (eval(read(strcat "(defun c:" a "() (" (vl-princ-to-string y) "))"))))<br /> )<br /> lst1<br /> lst2<br /> )<br />

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)

edata

(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)(eval (read (strcat "(defun c:" x "() (" y "))")))
  )
lst1 lst2
)