[求助]：如何实现编号的自动变化？

xiaotang

问题一：如图第一行，由于标注错误，要求将所有的数字标号减去3，从1号开始编排，有什么好方法吗？所有标号都是先画圆，再往圆里添数，不是软件自动生成的，并且所有的编号在图幅中分布广，按照随机路线排列的。
问题二：如图第二行，采取什么命令或者函数能将编号递增或递减或按照一定规律自动排列？

lsjjm

[PHP]
问题一:
(defun c:test1 ()
  (vl-load-com)
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (setq str (vla-get-textstring obj))
    (vla-put-textstring obj (itoa (- (atoi str) 3)))
    (setq n (1+ n))
  )
)
R14:
(defun c:test ()
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (while (< n (sslength ss))
    (setq eg (entget (ssname ss n)))
    (setq str (cdr (assoc 1 eg)))
    (setq eg (subst (cons 1 (itoa (- (atoi str) 3)))(assoc 1 eg) eg))
    (entmod eg)
    (setq n (1+ n))
  )
)
问题二: 说明具体条件和要求.
[/php]

cdhua001

也可以这样：（看不见的命令是ET工具的自动编号）