本帖最后由 e2002 于 2023-3-15 10:00 编辑
 - (setq lChars '("E" "F" "G" "H" "I" "J" "L" "M" "N"))
- (defun funcs_defun (lChars / sChar)
- (foreach sChar lChars
- (eval (list 'defun (read (strcat "C:+" sChar)) nil (list 'TQHZ "K*+*" sChar "Q")))
- );_for
- );_defun
都是一个套路哈...
|