ZZXXQQ 发表于 2014-6-10 07:53:52

l

本帖最后由 ZZXXQQ 于 2014-6-10 07:55 编辑

(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)
(setq a (eval(read(strcat "reg_" (vl-princ-to-string x)))))
(if a (eval(read(strcat "(defun c:" a "() (" (vl-princ-to-string y) "))"))))
)
lst1
lst2
)

edata 发表于 2014-6-9 21:47:19

建议采用这样的方便控制。
(setq lst(list(cons "wdy03" "wdy_zz")(cons "wdy04" "wdy_za")(cons "wdy05" "wdy_zb")))
(mapcar '(lambda(x)(princ(strcat "(defun c:" (car x) "() (" (cdr x) "))"))) lst)

edata 发表于 2014-6-9 21:35:15

(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
)
页: 1 2 3 [4]
查看完整版本: 自制工具箱的自定义快捷键程序