根据表自动构建字符关键字及提示

st788796

1. (defun SetInitKey (lst / len i ll)
   
2.   (if (< (setq len (length lst)) 26)
   
3.     (progn
   
4.       (setq i 64)
   
5.       (repeat len
   
6.         (setq ll (cons (chr (setq i (1+ i))) ll))
   
7.       )
   
8.       (list (reverse ll)
   
9.             (strcat "["
   
10.                     (vl-string-trim
    
11.                       "()/"
    
12.                       (vl-princ-to-string
    
13.                         (mapcar        '(lambda (x y)
    
14.                                    (strcat x " - " y "/")
    
15.                                  )
    
16.                                 (reverse ll)
    
17.                                 (mapcar 'vl-princ-to-string lst)
    
18.                         )
    
19.                       )
    
20.                     )
    
21.                     "]: "
    
22.             )
    
23.       )
    
24.     )
    
25.   )
    
26. )

(defun SetInitKey (lst / len i ll)<br />   (if (< (setq len (length lst)) 26)<br />     (progn<br />       (setq i 64)<br />       (repeat len<br />         (setq ll (cons (chr (setq i (1+ i))) ll))<br />       )<br />       (list (reverse ll)<br />             (strcat "["<br />                     (vl-string-trim<br />                       "()/"<br />                       (vl-princ-to-string<br />                         (mapcar        '(lambda (x y)<br />                                    (strcat x " - " y "/")<br />                                  )<br />                                 (reverse ll)<br />                                 (mapcar 'vl-princ-to-string lst)<br />                         )<br />                       )<br />                     )<br />                     "]: "<br />             )<br />       )<br />     )<br />   )<br /> )

_$ (setinitkey '(1 2 3 4 5))
(("E" "D" "C" "B" "A") "[A - 1/ B - 2/ C - 3/ D - 4/ E - 5]: ")
_$