自己改的序号标注，也可做引线标注，有些小问题

669423907

这是我根据论坛上的程序改的，可以标序号，也可以作为一线标注用。
现发现有一个小问题，望大侠们指点：

当按 0 输入数字标注后，按一次右键不能退出，要按两次才行。
为什么呢？要怎么改呢？

(defun c:xuhao();2014.10.28
(xuhao?)(wzdd))

(defun wzdd()
(while (and (setq a (getpoint "\n请指定箭头位置"))
(setq b (getpoint a"\n请指定文字位置")))
(command "leader" "non" a "non" b "" h?s "")
(setq h?s (1+ h?s)))
(princ))

(defun wzd()
(setq gbwz (grread 3));光标位置
(if (member (car gbwz) '(3 5))
(progn (setq a (cadr gbwz))));鼠标位置
(setq b (getpoint a"\n请指定文字位置"))
(command "leader" "_non" a "_non" b "" h?s "")
(setq h?s (1+ h?s)))

(defun xuhao??()
(setq h?s (getint "\n请输入起始数:")))

(defun W?Z()
(setq h?s (getstring "\n请输入文字:")))

(defun xuhao?()
(princ "\n左键上一次+1，右键从1开始，.0=10，+0=20，-0=30，*0=40，/0=50，按0输入数值，空格输入文字")
(setq h?m (grread))
(cond
((= (car h?m) 3) (wzd))                 ;左键
((= (car h?m) 25) (setq h?s 1) (wzdd))        ;右键
((= (cadr h?m) 48) (xuhao??) (wzdd))    ;0
((= (cadr h?m) 32) (W?Z) ())                ;空格

((= (cadr h?m) 50) (setq h?s 2))
((= (cadr h?m) 51) (setq h?s 3))
((= (cadr h?m) 52) (setq h?s 4))
((= (cadr h?m) 53) (setq h?s 5))
((= (cadr h?m) 54) (setq h?s 6))
((= (cadr h?m) 55) (setq h?s 7))
((= (cadr h?m) 56) (setq h?s 8))
((= (cadr h?m) 57) (setq h?s 9))
))

ZZXXQQ

两个同名函数

zero8337

楼主，文字可以加框吗？圆形或矩形框？
如果序号从101开始，如何实现？

start4444

dabingrain

(while (and (setq a (getpoint "\r请指定箭头位置"))