数字连续递增

湜１只鱼

(defun c:no()
  (SETQ A_GET (getint (STRCAT "\n请输入序号<" (RTOS (IF (= A nil)(setq A 1) A) 2 0) ">:")))
  (IF A_GET (setq A A_GET))
  (WHILE (setq  p1 (getpoint "\n请选择放置位置:"))
    (command "text" "J" "M" p1 5 0 A)
    (SETQ A (+ 1 A))
  )
  (princ)
)
哪位高手帮我改下，第2次，3次…… 输入命令no 接着前一次的数字递增。
假如说输入第一次命令 编号从1编到10  第二次输入命令直接拾取点编号为11 次程序再第二次输入命令时要回车2次才行。
哪位高手帮我改改

byghbcx

把变量A存到系统变量USERR1-5中，或写入注册表中，第二次读取系统变量或注册表
(defun c:no( / p1)
  (IF (= A nil) (setq A 1))
  (initget "K k")
  (WHILE (setq  p1 (getpoint (strcat "\n调整起始数字<k>\\请选择放置位置(" (RTOS A 2 0) "):")))
    (if (and (= (type p1) 'STR) (= (strcase p1) "K"))
      (SETQ a (getint (STRCAT "\n请输入序号<" (RTOS A 2 0) ">:")))
      (progn
    (command "text" "J" "M" p1 5 0 A)
    (SETQ A (+ 1 A))
    (initget "K k")
    )
  )
    )
  (princ)
)

湜１只鱼

谢谢  改的很好