[求助][0621]如何让文字的数字替换改为英文字母呢?

tctabc

[求助][0621]如何让文字的数字替换改为英文字母呢?

编写了选取文字替换输入数字增加的程序,
但如果将数字改为英文字母的增加方式,
EXP: a.b.c.d.....
该怎样编写程序呢
烦请各位高手可以帮忙解答一下~
谢谢~



CODE:
(defun c:test ()
(while
(setq en (car (entsel "\n select text:")))
(setq xobj (vlax-ename->vla-object en))
(setq ui5 (getvar "useri5"))
(if (= ui5 "")
(setq ui5 1)
)
(setq k (getint (strcat "\n setup number <<" (itoa ui5) ">>:" ) ))
(if (= k nil) (setq k ui5))
(setvar "useri5" k)
(vla-put-textstring xobj k)
(setq k (1+ k))
(setvar "useri5" k)
)
(prin1))

my_cheung

用(chr)和(acsii)函数转换啊！