你这改不了,我重写了，我这里边许多设置都没写，

其实一个完整的小程式，需要写更多行,局部变量，比如防错机制，环境变量重设与恢复，回显，命令行提示,我都没整上,还好你只有35个数，我list穷举出来，如果使用36进制还得写转换函数。你的0点我本来用个getpoint，更自由,要改字体大小把30那个字高改一下，以下为程式华丽分界线

;;;;-------------------

;; 顺序1~z;;; Rliu 2022.01.20 (defun C:hh ( )(setvar "osmode" 0)(setq nn (getint "输入尾数: "))(setq ku (list 1 2 3 4 5 6 7 8 9 "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "L" "m" "n" "o" "p" "q" "r" "s"

"t" "u" "v" "w" "x" "y" "z"))(setq num 1)(setq pt (list 0 0))(while (> nn 0)(setq txt (car ku))(setq ku (cdr ku))(command "text" "j" "m" pt 30 "0" txt)(setq nn (1- nn))(setq pt (list (+ (car pt) 100) (+(cadr pt) 200)))));end

;;;;;---------------------

 Rliu~2022.01.20

写的还行点“赞”;写的对点 "接受解答" 按钮.

yanlei.liu