(defun C:MJL3 ( / #os n &kw h hh @p1 ff日夏养花网 L data)
(setq #os (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq L 0)
(setq n 1)
(princ "\n请选择点")
(setq &kw (ssget (list (cons 0 "POINT"))))
(if (null h) (setq h (getvar "textsize")) )
(setq hh (getdist (strcat "\n请输入文字高度<日夏养花网;" (rtos h 2) ">")))
(if (null hh) (set日夏养花网q hh h) (setq h hh) )
(if (/= &kw nil)
(progn
(setq ff (open "d:点编号.bin" "w"))
(repeat (sslength &kw)
(write-line (itoa n) ff)
(setq n (+ n 1))
)
(close ff)
(setvar "osmode" 0)
(setq n 0)
(setq ff (open "d:点编号.bin" "r"))
(setq data (read-line ff))
(while data
(setq @p1 (cdr (assoc 10 (entget (ssname &kw n)))))
(command "text" @p1 hh 0 data)
(setq @p1 nil)
(setq data (read-line ff))
(setq n (+ n 1))
(setq L (+ L 1))
)
(close ff)
)
)
(setvar "osmode" #os)
(princ "一共<") (princ L) (princ ">个点")
(prin1)
)
;;
以上的粘贴了到记事本，命名为(MJL3.lsp)
AutoCAD加载了这个就可以使用了。

相对好一些的办法：
1、从1开始，把这个数字给每个探点都复制一个
2、从1开始，依次选中所有数字
3、打开属性选项卡
4、在内容栏，写“1”，回车，写“2”回车，……如此依次。

这个得编程才行

相对好一些的办法：
1、从1开始，把这个数字给每个探点都复制一个
2、从1开始，依次选中所有数字
3、打开属性选项卡
4、在内容栏，写“1”，回车，写“2”回车，……如此依次，所有标注都变成了你写的内容~~
不知道是不是你想要的意思。