[求助]文本编号

hdlyt11

 有没有这样的小程序，把说明重编号，就是写说明的时候都是考过来改的，改完以后那1，2，3都是乱的，就想用个小程序直接重编，这样就不用输1，2，3这样一个一个编了,附件中为修改前和修改后的文本，也就是序号重排序，但是可以处理数字后面带文本的情况，而不是纯数字。

hdlyt11

这个程序我已经有了思路，还希望高手们指点

(defun C:test (/ ss s1)

(setq ss (ssget '((0 . "TEXT"))))；选择多个单行文字

(setq s1 (substr ss 1 1))；提取每个单行文字的第一个字

(if (= s1 "~*[~`--9]*")；加入第一个是数字，则参与排序

(progn                 ；排序函数

 ;;按照内容排序(应该将数字从1按降序排列）

     (setq S2 (SORT-SE S1 1 nil nil nil))
 
     (setq I 0)
     (repeat (sslength S2)
  (princ "\n")
  (princ (cdr (assoc 1 (entget (ssname S2 I)))))
  (setq I (1+ I))
     )

)

)