[求助]：求：更实用的文字递增程序

dzyh

希望能够实现这样的数字递增功能:WL1/AL2,WL2/AL2,WL3/AL2,WL4/AL2'''''.即只有第一位数字递增,而字母不改变.

我是笨鸟, 希望有高手能帮帮我.谢谢

xyp1964

[php]
(load "xyp_lib")
;|
加载通用函数
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
如果已在acad.lsp中添加了(load "xyp_lib")，可以直接运行下面的程序。
|;

(defun c:test ()
  (cmdla0)
  (jzhz)
  (command ".undo" "BE")
  (setq        no1 (ureal 1 "" "\nWL箱起始编号" no1)
        i   (- no1 1)
  )
  (while (setq pt (getpoint "\n标注点 : "))
    (setq txt (strcat "WL" (rtos (setq i (1+ i)) 2 0) "/AL2"))
    (command "text" "j" "mc" pt (* Sc 500) "0" txt)
  )
  (command ".undo" "E")
  (cmdla1)
)
[/php]

chuanxue

xyp_lib是什么文件啊？？